This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
dd87e51
)
File::Find::_find_dir nit for VMS, plus version bump.
author
Craig A. Berry
<craigberry@mac.com>
Tue, 23 Oct 2007 03:43:02 +0000
(
03:43
+0000)
committer
Craig 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
patch
|
blob
|
blame
|
history
diff --git
a/lib/File/Find.pm
b/lib/File/Find.pm
index
06fe587
..
c41c4dc
100644
(file)
--- a/
lib/File/Find.pm
+++ b/
lib/File/Find.pm
@@
-3,7
+3,7
@@
use 5.006;
use strict;
use warnings;
use warnings::register;
-our $VERSION = '1.1
1
';
+our $VERSION = '1.1
2
';
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;
}