Convert script to strict mode

[infodrom.org/service.infodrom.org] / bin / wmldepend.pl

diff --git a/bin/wmldepend.pl b/bin/wmldepend.pl
index 7987516..4b6926a 100755 (executable)
--- a/bin/wmldepend.pl
+++ b/bin/wmldepend.pl
@@ -1,7 +1,10 @@
 #! /usr/bin/perl
 
-$INCPATH = "";
-$FILES = "";
+use strict;
+use warnings;
+
+my @INCPATH;
+my @FILES;
 
 # expandfile() {
 #        for i in $INCPATH
@@ -23,6 +26,7 @@ sub expandfile
     my $f = shift;
     my %var = @_;
     my $p;
+    my $pivot;
 
     if ($f =~ m,\$\((.*)\),) {
        $pivot = $1;
@@ -68,14 +72,14 @@ sub findincludes
            $p = $2;
            $foo = expandfile ($p, %var);
        }
-       printf " \\\n %s", $foo;
+       printf " \\\n\t%s", $foo;
        findincludes ($foo, %var);
     }
 }
 
 # Argument parsing
 #
-while ($foo = shift (@ARGV)) {
+while (my $foo = shift (@ARGV)) {
     if ($foo =~ m,-I(.*),) {
        push (@INCPATH, $1);
     } else {
@@ -83,10 +87,10 @@ while ($foo = shift (@ARGV)) {
     }
 }
 
-%var=();
-for $f (@FILES) {
-    $foo = $f;
-    $foo =~ s/\.wml$/\.html/;
+my %var;
+foreach my $f (@FILES) {
+    my $foo = $f;
+    $foo =~ s/\.wml$/\.php/;
     printf "%s: %s", $foo, $f;
     findincludes ($f, %var);
     print "\n";