projects
/
p5sagit/p5-mst-13.2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
perlcheat is a reference, not tutorial.
[p5sagit/p5-mst-13.2.git]
/
lib
/
Cwd.pm
diff --git
a/lib/Cwd.pm
b/lib/Cwd.pm
index
7f8ef65
..
baeb05c
100644
(file)
--- a/
lib/Cwd.pm
+++ b/
lib/Cwd.pm
@@
-150,7
+150,7
@@
use strict;
use Carp;
-our $VERSION = '2.06';
+our $VERSION = '2.07';
use base qw/ Exporter /;
our @EXPORT = qw(cwd getcwd fastcwd fastgetcwd);
@@
-379,6
+379,7
@@
sub _perl_abs_path
{
$dotdots .= '/..';
@pst = @cst;
+ local *PARENT;
unless (opendir(PARENT, $dotdots))
{
carp "opendir($dotdots): $!";