]> ruderich.org/simon Gitweb - config/dotfiles.git/commitdiff
bin/remove-continuation.pl: minor cleanup
authorSimon Ruderich <simon@ruderich.org>
Wed, 2 Apr 2014 21:10:15 +0000 (23:10 +0200)
committerSimon Ruderich <simon@ruderich.org>
Tue, 29 Apr 2014 13:22:35 +0000 (15:22 +0200)
bin/remove-continuation.pl

index 8658df8033109d379fe73168beced34c8ba4bb21..df36d332a4d1fc9d05d848325f61db0c01baeb26 100755 (executable)
@@ -24,17 +24,17 @@ use warnings;
 
 
 my $continuation = 0;
-while (my $line = <>) {
+while (<>) {
     # Remove leading whitespace if the last line was a line continuation.
     if ($continuation) {
-        $line =~ s/^\s+//;
+        s/^\s+//;
     }
 
-    if ($line =~ /^(.+?)\\$/) {
+    if (/^(.+?)\\$/) {
         print $1;
         $continuation = 1;
     } else {
-        print $line;
+        print $_;
         $continuation = 0;
     }
 }