summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorelliott_c <ocielliottc@users.noreply.github.com>2003-04-11 18:37:41 +0000
committerelliott_c <ocielliottc@users.noreply.github.com>2003-04-11 18:37:41 +0000
commitb4ef9f04ba6690ed2351abb5d6de5c7de334b75c (patch)
tree778b12d7866096dc6f0961a646a685fdd5601fc5
parent515d449c17b88ada1cab6561a3f06c087d897cc4 (diff)
downloadMPC-b4ef9f04ba6690ed2351abb5d6de5c7de334b75c.tar.gz
ChangeLogTag: Fri Apr 11 13:37:34 2003 Chad Elliott <elliott_c@ociweb.com>
-rw-r--r--modules/Driver.pm11
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