diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-22 14:03:12 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-22 14:03:12 +0000 |
| commit | b04f6d364dc3b26d2309e24417e692690629b145 (patch) | |
| tree | 04d894cdc82307e45056d5444bd4466152fde502 /lib/Cwd.pm | |
| parent | 05fb677a707541c064a1e603c5ed94d6d12db486 (diff) | |
| download | perl-b04f6d364dc3b26d2309e24417e692690629b145.tar.gz | |
Upgrade to PathTools 3.05
p4raw-id: //depot/perl@24069
Diffstat (limited to 'lib/Cwd.pm')
| -rw-r--r-- | lib/Cwd.pm | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index c389c385d6..002b7c1183 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -170,7 +170,7 @@ use strict; use Exporter; use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION); -$VERSION = '3.04_01'; +$VERSION = '3.05'; @ISA = qw/ Exporter /; @EXPORT = qw(cwd getcwd fastcwd fastgetcwd); @@ -199,15 +199,16 @@ if ($^O eq 'os2') { return 1; } +# If loading the XS stuff doesn't work, we can fall back to pure perl eval { -if ( $] >= 5.006 ) { - require XSLoader; - XSLoader::load( __PACKAGE__, $VERSION ); -} else { - require DynaLoader; - push @ISA, 'DynaLoader'; - __PACKAGE__->bootstrap( $VERSION ); -} + if ( $] >= 5.006 ) { + require XSLoader; + XSLoader::load( __PACKAGE__, $VERSION ); + } else { + require DynaLoader; + push @ISA, 'DynaLoader'; + __PACKAGE__->bootstrap( $VERSION ); + } }; # Must be after the DynaLoader stuff: |