Change 27474 by [EMAIL PROTECTED] on 2006/03/11 17:26:00
Subject: [PATCH] [EMAIL PROTECTED] fix File::Path::mkpath so that perl
installs on VMS
From: Peter Prymmer <[EMAIL PROTECTED]>
Date: Fri, 10 Mar 2006 15:24:23 -0500
Message-id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/File/Path.pm#39 edit
Differences ...
==== //depot/perl/lib/File/Path.pm#39 (text) ====
Index: perl/lib/File/Path.pm
--- perl/lib/File/Path.pm#38~25362~ 2005-09-07 03:31:47.000000000 -0700
+++ perl/lib/File/Path.pm 2006-03-11 09:26:00.000000000 -0800
@@ -161,9 +161,6 @@
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);
End of Patch.
