long-lines.pl: switch spaces to tabs

Signed-off-by: Florian Pritz <bluewind@xinu.at>

1 files changed, 15 insertions, 15 deletions

diff --git a/long-lines.pl b/long-lines.pl
index d0f0c21..c0e1da0 100755
--- a/long-lines.pl
+++ b/long-lines.pl
@@ -9,12 +9,12 @@ my %opt;
 getopts("hm:t:", \%opt);
 
 if (@ARGV == 0 || $opt{h}) {
-  print "usage: ", basename($0), " [options] file(s)...\n\n";
-  print "Options:\n";
-  print "  -m NUMBER       maximum chars tolerated per line (default: 80)\n";
-  print "  -t NUMBER       count \\t as NUMBER chars (default: 4)\n";
-  print "  -h              this help\n";
-  exit 0;
+	print "usage: ", basename($0), " [options] file(s)...\n\n";
+	print "Options:\n";
+	print "  -m NUMBER     maximum chars tolerated per line (default: 80)\n";
+	print "  -t NUMBER     count \\t as NUMBER chars (default: 4)\n";
+	print "  -h            this help\n";
+	exit 0;
 }
 
 my $max = 80;
@@ -25,13 +25,13 @@ $max = $opt{m} if ($opt{m});
 $Text::Tabs::tabstop = $opt{t} if ($opt{t});
 
 for my $file (@ARGV) {
-  open FILE,"<", $file;
-  $line = 0;
-  while (<FILE>) {
-    $line++;
-	$_ = expand $_;
-    if (length > $max) {
-      print "\"$file\" - line $line: ", length, " chars\n";
-    }
-  }
+	open FILE,"<", $file;
+	$line = 0;
+	while (<FILE>) {
+		$line++;
+		$_ = expand $_;
+		if (length > $max) {
+			print "\"$file\" - line $line: ", length, " chars\n";
+		}
+	}
 }