summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rwxr-xr-xpictor.pl28
1 files changed, 14 insertions, 14 deletions
diff --git a/pictor.pl b/pictor.pl
index ec59229..11778af 100755
--- a/pictor.pl
+++ b/pictor.pl
@@ -36,7 +36,7 @@ my @files = (
 # Unveil each file with only read permission.
 foreach my $fn (@files) {
     unveil( $fn, "r" ) or
-    	die "Unable to unveil: $!";
+        die "Unable to unveil: $!";
 }
 
 # Block further unveil calls.
@@ -53,22 +53,22 @@ my $total_acronyms = 0;
 # Search for acronym in every file.
 foreach my $fn (@files) {
     open my $fh, '<', $fn or
-	# The program should continue if the file doesn't exist but
-	# warn the user about it.
-	do {
-	    warn "Unable to open $fn: $!\n";
-	    next;
+        # The program should continue if the file doesn't exist but
+        # warn the user about it.
+        do {
+            warn "Unable to open $fn: $!\n";
+            next;
     };
 
     while (my $line = readline $fh) {
-	# \Q is quotemeta, \E terminates it because otherwise it would
-	# mess with \t. This regex matches when $line starts with
-	# "$term\t". We replace \t with ": " before printing to make
-	# the input neat.
-	if ($line =~ /^\Q${term}\E\t/i) {
-	    print $line =~ s/\t/: /r;
-	    $total_acronyms++;
-	}
+        # \Q is quotemeta, \E terminates it because otherwise it would
+        # mess with \t. This regex matches when $line starts with
+        # "$term\t". We replace \t with ": " before printing to make
+        # the input neat.
+        if ($line =~ /^\Q${term}\E\t/i) {
+            print $line =~ s/\t/: /r;
+            $total_acronyms++;
+        }
     }
 }