diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2003-04-11 18:37:41 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2003-04-11 18:37:41 +0000 |
commit | b4ef9f04ba6690ed2351abb5d6de5c7de334b75c (patch) | |
tree | 778b12d7866096dc6f0961a646a685fdd5601fc5 | |
parent | 515d449c17b88ada1cab6561a3f06c087d897cc4 (diff) | |
download | MPC-b4ef9f04ba6690ed2351abb5d6de5c7de334b75c.tar.gz |
ChangeLogTag: Fri Apr 11 13:37:34 2003 Chad Elliott <elliott_c@ociweb.com>
-rw-r--r-- | modules/Driver.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/modules/Driver.pm b/modules/Driver.pm index 8aff9671..cf53cc79 100644 --- a/modules/Driver.pm +++ b/modules/Driver.pm @@ -40,7 +40,7 @@ sub new { $self->{'path'} = $path; $self->{'name'} = $name; - $self->{'version'} = 1.7; + $self->{'version'} = 1.8; $self->{'types'} = {}; $self->{'creators'} = \@creators; $self->{'default'} = $creators[0]; @@ -237,7 +237,12 @@ sub run { $options->{'global'} = $global; } } + ## Save the original directory outside of the loop + ## to avoid calling it multiple times. + my($orig_dir) = $self->getcwd(); + ## Always add the default include paths + unshift(@{$options->{'include'}}, $orig_dir); unshift(@{$options->{'include'}}, $self->{'path'} . '/templates'); unshift(@{$options->{'include'}}, $self->{'path'} . '/config'); @@ -276,10 +281,6 @@ sub run { ## Set up un-buffered output for the progress callback $| = 1; - ## Save the original directory outside of the loop - ## to avoid calling it multiple times. - my($orig_dir) = $self->getcwd(); - ## Generate the files foreach my $cfile (@{$options->{'input'}}) { ## To correctly reference any pathnames in the input file, chdir to |