diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-09-11 13:40:06 +0100 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2009-09-11 14:20:43 +0100 |
| commit | fc49d04a36bc948b50da6259c0a6c10f8acb6dd0 (patch) | |
| tree | f9da2f4cfe6165137332caacb03f77a0c810bcc8 | |
| parent | ffde7796c71438bd9fa148cea309617217fd3982 (diff) | |
| download | perl-fc49d04a36bc948b50da6259c0a6c10f8acb6dd0.tar.gz | |
Fix test in Cwd for presence of DynaLoader.
Stops EU-MM's miniperl.t blowing up at the END when trying to load Win32
in the course of an rmtree() call. Fixes:
Subject: Re: Smoke [5.11.0] blead-2228-gc6c613e FAIL(F) MSWin32 Win2000 SP4
Message-ID: <20090911092103.GS60303@plum.flirble.org>
| -rw-r--r-- | lib/Cwd.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Cwd.pm b/lib/Cwd.pm index 4618f94a86..3a0fda3406 100644 --- a/lib/Cwd.pm +++ b/lib/Cwd.pm @@ -171,7 +171,7 @@ use strict; use Exporter; use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION); -$VERSION = '3.30'; +$VERSION = '3.3001'; my $xs_version = $VERSION; $VERSION = eval $VERSION; @@ -748,7 +748,7 @@ sub _os2_cwd { } sub _win32_cwd { - if (defined &DynaLoader::boot_DynaLoader) { + if (eval 'defined &DynaLoader::boot_DynaLoader') { $ENV{'PWD'} = Win32::GetCwd(); } else { # miniperl |