etc: Modernize the indenter

kewinwang · Apr 17, 2012 · f9eca21 · f9eca21
1 parent 35a93e6
commit f9eca21
Showing 1 changed file with 5 additions and 7 deletions.
diff --git a/src/etc/indenter b/src/etc/indenter
@@ -1,17 +1,15 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl
+use strict;
+use warnings;
 
-$indent = 0;
+my $indent = 0;
 while (<>) {
     if (/^rust: ">>/) {
         $indent += 1;
     } elsif (/^rust: "<</) {
         $indent -= 1;
     }
 
-    printf "%03d  ", $indent;
-    for ($i = 0; $i < $indent; $i++) {
-        printf("  ");
-    }
-    print;
+    printf "%03d  %s%s", $indent, ("  " x $indent), $_;
 }