#! /usr/bin/perl
-$INCPATH = "";
-$FILES = "";
+use strict;
+use warnings;
+
+my @INCPATH;
+my @FILES;
# expandfile() {
# for i in $INCPATH
my $f = shift;
my %var = @_;
my $p;
+ my $pivot;
if ($f =~ m,\$\((.*)\),) {
$pivot = $1;
# Argument parsing
#
-while ($foo = shift (@ARGV)) {
+while (my $foo = shift (@ARGV)) {
if ($foo =~ m,-I(.*),) {
push (@INCPATH, $1);
} else {
}
}
-%var=();
-for $f (@FILES) {
- $foo = $f;
+my %var;
+foreach my $f (@FILES) {
+ my $foo = $f;
$foo =~ s/\.wml$/\.php/;
printf "%s: %s", $foo, $f;
findincludes ($f, %var);