diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2006-03-10 10:24:23 -0500 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2006-03-11 17:26:00 +0000 |
| commit | e1af127d6fcbe67c5ce9900b1abe65c6688a8d3b (patch) | |
| tree | a03a131b3ae7d16b1a33b8fb8ba2c95ec9e256cb /lib/File | |
| parent | 85a556a55972fa9231f9b89742f002ffae39d10a (diff) | |
| download | perl-e1af127d6fcbe67c5ce9900b1abe65c6688a8d3b.tar.gz | |
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
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Path.pm | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/lib/File/Path.pm b/lib/File/Path.pm index 5605735954..feaefad99c 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); |