From fc49d04a36bc948b50da6259c0a6c10f8acb6dd0 Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 11 Sep 2009 13:40:06 +0100
Subject: 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>
---
 lib/Cwd.pm | 4 ++--
 1 file 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
-- 
cgit v1.2.1