From: Peter Prymmer <PPrymmer@factset.com>
Date: Fri, 10 Mar 2006 15:24:23 +0000 (-0500)
Subject: perl@27437 fix File::Path::mkpath so that perl installs on VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e1af127d6fcbe67c5ce9900b1abe65c6688a8d3b;p=p5sagit%2Fp5-mst-13.2.git

perl@27437 fix File::Path::mkpath so that perl installs on VMS
	Message-id: <OFBE8F84F1.A708DA4A-ON8525712D.006E4BF7-8525712D.007018C6@factset.com>

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

diff --git a/lib/File/Path.pm b/lib/File/Path.pm
index 5605735..feaefad 100644
--- a/lib/File/Path.pm
+++ b/lib/File/Path.pm
@@ -161,9 +161,6 @@ sub mkpath {
 	if ($Is_VMS) {
 	    next if $path eq '/';
 	    $path = VMS::Filespec::unixify($path);
-	    if ($path =~ m:^(/[^/]+)/?\z:) {
-	        $path = $1.'/000000';
-	    }
 	}
 	next if -d $path;
 	my $parent = File::Basename::dirname($path);