From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 14 Jul 2000 17:38:08 +0000 (+0000)
Subject: Fix AutoSplit to use File::Spec the right way in VMS,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b117983900e00fec1a326438505f92cf9183d038;p=p5sagit%2Fp5-mst-13.2.git

Fix AutoSplit to use File::Spec the right way in VMS,
from Peter Prymmer.

p4raw-id: //depot/perl@6407
---

diff --git a/lib/AutoSplit.pm b/lib/AutoSplit.pm
index bb20372..8640576 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 ".