This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl@27437 fix File::Path::mkpath so that perl installs on VMS
authorPeter Prymmer <PPrymmer@factset.com>
Fri, 10 Mar 2006 15:24:23 +0000 (10:24 -0500)
committerCraig A. Berry <craigberry@mac.com>
Sat, 11 Mar 2006 17:26:00 +0000 (17:26 +0000)
Message-id: <OFBE8F84F1.A708DA4A-ON8525712D.006E4BF7-8525712D.007018C6@factset.com>

p4raw-id: //depot/perl@27474

lib/File/Path.pm

index 5605735..feaefad 100644 (file)
@@ -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);