diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-07-14 17:38:08 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-07-14 17:38:08 +0000 |
| commit | b117983900e00fec1a326438505f92cf9183d038 (patch) | |
| tree | 2bada318f28acab65cb885d657ca9bedf0226e47 /lib/AutoSplit.pm | |
| parent | a422fd2daf7c8932b983f20168fdc22a95c19633 (diff) | |
| download | perl-b117983900e00fec1a326438505f92cf9183d038.tar.gz | |
Fix AutoSplit to use File::Spec the right way in VMS,
from Peter Prymmer.
p4raw-id: //depot/perl@6407
Diffstat (limited to 'lib/AutoSplit.pm')
| -rw-r--r-- | lib/AutoSplit.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm index bb20372792..8640576cc7 100644 --- a/lib/AutoSplit.pm +++ b/lib/AutoSplit.pm @@ -180,6 +180,9 @@ sub autosplit_lib_modules{ s|\\|/|g; # bug in ksh OS/2 s#^lib/##s; # incase specified as lib/*.pm my($lib) = catfile(curdir(), "lib"); + if ($Is_VMS) { # may need to convert VMS-style filespecs + $lib =~ s#^\[\]#.\/#; + } s#^$lib\W+##s; # incase specified as ./lib/*.pm if ($Is_VMS && /[:>\]]/) { # may need to convert VMS-style filespecs my ($dir,$name) = (/(.*])(.*)/s); @@ -250,6 +253,9 @@ sub autosplit_file { $def_package or die "Can't find 'package Name;' in $filename\n"; my($modpname) = _modpname($def_package); + if ($Is_VMS) { + $modpname = VMS::Filespec::unixify($modpname); # may have dirs + } # this _has_ to match so we have a reasonable timestamp file die "Package $def_package ($modpname.pm) does not ". |