diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2003-04-01 16:07:55 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2003-04-01 16:07:55 +0000 |
| commit | 1665894bc14357c16fddaa26b5313c9ccbe2c206 (patch) | |
| tree | 5c2b1738d6c2b1ec24039a317f5cd9686a1027c4 | |
| parent | 6704372997f35c2fbed196b9473334831ad3248f (diff) | |
| download | MPC-1665894bc14357c16fddaa26b5313c9ccbe2c206.tar.gz | |
ChangeLogTag: Tue Apr 1 10:06:57 2003 Chad Elliott <elliott_c@ociweb.com>
| -rw-r--r-- | modules/Driver.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/modules/Driver.pm b/modules/Driver.pm index 79988d38..0e5b70d6 100644 --- a/modules/Driver.pm +++ b/modules/Driver.pm @@ -235,15 +235,16 @@ sub run { my($orig_dir) = Cwd::getcwd(); ## Generate the files - foreach my $file (@{$options->{'input'}}) { + foreach my $cfile (@{$options->{'input'}}) { ## To correctly reference any pathnames in the input file, chdir to ## its directory if there's any directory component to the specified path. - my($base) = basename($file); + my($base) = basename($cfile); foreach my $name (@{$options->{'generators'}}) { if (!$loaded{$name}) { require "$name.pm"; $loaded{$name} = 1; } + my($file) = $cfile; my($generator) = $name->new($options->{'global'}, $options->{'include'}, $options->{'template'}, |