This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
File::Find::_find_dir nit for VMS, plus version bump.
authorCraig A. Berry <craigberry@mac.com>
Tue, 23 Oct 2007 03:43:02 +0000 (03:43 +0000)
committerCraig A. Berry <craigberry@mac.com>
Tue, 23 Oct 2007 03:43:02 +0000 (03:43 +0000)
p4raw-id: //depot/perl@32176

lib/File/Find.pm

index 06fe587..c41c4dc 100644 (file)
@@ -3,7 +3,7 @@ use 5.006;
 use strict;
 use warnings;
 use warnings::register;
-our $VERSION = '1.11';
+our $VERSION = '1.12';
 require Exporter;
 require Cwd;
 
@@ -969,10 +969,13 @@ sub _find_dir($$$) {
                if ($Is_MacOS) {
                    $tmp = (':' x ($CdLvl-$Level)) . ':';
                }
+               elsif ($Is_VMS) {
+                   $tmp = '[' . ('-' x ($CdLvl-$Level)) . ']';
+               }
                else {
                    $tmp = join('/',('..') x ($CdLvl-$Level));
                }
-               die "Can't cd to $dir_name" . $tmp
+               die "Can't cd to $tmp from $dir_name"
                    unless chdir ($tmp);
                $CdLvl = $Level;
            }