correctly annotate pins without description
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sun, 5 Nov 2017 15:15:06 +0000 (16:15 +0100)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sun, 5 Nov 2017 15:15:06 +0000 (16:15 +0100)
gpio.pl

diff --git a/gpio.pl b/gpio.pl
index 96b2e9d..5fdc5fe 100755 (executable)
--- a/gpio.pl
+++ b/gpio.pl
@@ -28,7 +28,7 @@ while(<DATA>) {
                $include = 0;
        } elsif ( $include ) {
                push @lines, $_;
-               push @{ $pins->{$1} }, $line_i while ( m/\t(P\w\w+)\s/g );
+               push @{ $pins->{$1} }, $line_i while ( m/\t(P\w\d+)/g );
                $line_i++;
        } else {
                warn "IGNORE: [$_]\n";