fill-in single row header
authorDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 1 Nov 2017 12:16:29 +0000 (13:16 +0100)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Wed, 1 Nov 2017 12:16:29 +0000 (13:16 +0100)
gpio.pl

diff --git a/gpio.pl b/gpio.pl
index bdb01cb..96b2e9d 100755 (executable)
--- a/gpio.pl
+++ b/gpio.pl
@@ -84,6 +84,7 @@ foreach my $line ( @line_parts ) {
        if ( $#$line == 0 ) {
                print $line->[0], "\n";
        } else {
        if ( $#$line == 0 ) {
                print $line->[0], "\n";
        } else {
+               push @$line, '' while ($#$line < 3); # fill-in single row header
                printf $fmt, @$line;
        }
 }
                printf $fmt, @$line;
        }
 }