X-Git-Url: https://ruderich.org/simon/gitweb/?a=blobdiff_plain;f=bin%2Fremove-continuation.pl;h=3deb7d7d376b4d9980083b3bf2a0095fef4486f8;hb=c7c76fd58de40b365a671bcc80efeda3e3fcf223;hp=8658df8033109d379fe73168beced34c8ba4bb21;hpb=ab9717d6cf1d9b0d1a5a3e2c932f39e8dd561a7f;p=config%2Fdotfiles.git

diff --git a/bin/remove-continuation.pl b/bin/remove-continuation.pl
index 8658df8..3deb7d7 100755
--- a/bin/remove-continuation.pl
+++ b/bin/remove-continuation.pl
@@ -24,17 +24,17 @@ use warnings;
 
 
 my $continuation = 0;
-while (my $line = <>) {
+while (<STDIN>) {
     # 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;
     }
 }