fix highlight
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 18 Jun 2016 11:10:15 +0000 (13:10 +0200)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 18 Jun 2016 11:10:15 +0000 (13:10 +0200)
gpio.pl

diff --git a/gpio.pl b/gpio.pl
index 579d845..5c1c82e 100755 (executable)
--- a/gpio.pl
+++ b/gpio.pl
@@ -45,7 +45,6 @@ foreach (@gpio) {
        chomp $line;
        my @l = split(/\|/, $line);
        my @o = split(/\|/, $last[$i] || '');
-       $last[$i] = $line;
 
        if ( $#l >= 9 ) {
                no warnings;
@@ -66,10 +65,14 @@ foreach (@gpio) {
                }
        }
 
-       $line = join('|', @l) . "|";
+       $last[$i] = $line;
+       $i++;
+
+       # re-create from modified data
+       $line = join('|', @l);
+       $line .= "|" unless $line =~ m/\+$/;
        print "$line\n";
 
-       $i++;
 }
 
 #warn "# mode = ", dump($mode);