diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2003-04-18 17:25:46 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2003-04-18 17:25:46 +0000 |
| commit | 7dad25a0c65e617440441e968f20fbdad6ba6633 (patch) | |
| tree | 3adab0ed5ad950f97621bc74e3a1f60aac1382ad /bin | |
| parent | 12432fdec9947609dadb24d33a2b28d079aa11c2 (diff) | |
| download | ATCD-7dad25a0c65e617440441e968f20fbdad6ba6633.tar.gz | |
ChangeLogTag: Fri Apr 18 12:24:02 2003 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/MakeProjectCreator/modules/Driver.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/bin/MakeProjectCreator/modules/Driver.pm b/bin/MakeProjectCreator/modules/Driver.pm index 40b3785396d..8f4d43a53cb 100644 --- a/bin/MakeProjectCreator/modules/Driver.pm +++ b/bin/MakeProjectCreator/modules/Driver.pm @@ -40,7 +40,7 @@ sub new { $self->{'path'} = $path; $self->{'name'} = $name; - $self->{'version'} = 1.8; + $self->{'version'} = 1.9; $self->{'types'} = {}; $self->{'creators'} = \@creators; $self->{'default'} = $creators[0]; @@ -288,6 +288,11 @@ sub run { ## 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($cfile); + + if (-d $cfile) { + $base = ''; + } + foreach my $name (@{$options->{'generators'}}) { if (!$loaded{$name}) { require "$name.pm"; @@ -307,7 +312,7 @@ sub run { $options->{'toplevel'}, $options->{'baseprojs'}); if ($base ne $file) { - my($dir) = dirname($file); + my($dir) = ($base eq '' ? $file : dirname($file)); if (!$generator->cd($dir)) { print STDERR "ERROR: Unable to change to directory: $dir\n"; $status++; |