develooper Front page | perl.perl5.porters | Postings from December 2000

[20000615.005] [PATCH] Cwd::fastgetcwd broken (or mis-named?) on Unix

Thread Next
From:
rspier
Date:
December 12, 2000 18:12
Subject:
[20000615.005] [PATCH] Cwd::fastgetcwd broken (or mis-named?) on Unix
Message ID:
14902.56087.678086.725773@rls.cx

Here's a simple patch to make fastgetcwd always work.  

(The problem was that fastgetcwd is defined using a glob alias on a
$^O dependent basis - and there was no default assignment or perl
subroutine.)

--- Cwd.pm      Tue Dec 12 21:05:33 2000
+++ Cwd.pm.orig Tue Dec 12 20:55:01 2000
@@ -70,7 +70,7 @@
 
 use Carp;
 
-our $VERSION = '2.04';
+our $VERSION = '2.03';
 
 use base qw/ Exporter /;
 our @EXPORT = qw(cwd getcwd fastcwd fastgetcwd);
@@ -99,9 +99,6 @@
     }
 }
 
-# set a reasonable (and very safe) default for fastgetcwd, in case it
-# isn't redefined later (20001212 rspier)
-*fastgetcwd = \&cwd;
 
 # By Brandon S. Allbery
 #



Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About