From 6c6463e2a6dcc80d76e91c5aaf19f3816899b04a Mon Sep 17 00:00:00 2001 From: Jan Dubois Date: Wed, 20 Dec 2006 10:53:51 -0800 Subject: [PATCH] allow blib.pm to be used for testing Win32 module (again) Message-ID: p4raw-id: //depot/perl@29607 --- lib/blib.pm | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/lib/blib.pm b/lib/blib.pm index 45ccd9b..8a39dc8 100644 --- a/lib/blib.pm +++ b/lib/blib.pm @@ -46,7 +46,18 @@ $Verbose = 0; sub import { my $package = shift; - my $dir = getcwd; + my $dir; + if ($^O eq "MSWin32") { + # We don't use getcwd() on Windows because it will internally + # call Win32::GetCwd(), which will get the Win32 module loaded. + # That means that it would not be possible to run `make test` + # for the Win32 module because blib.pm would always load the + # installed version before @INC gets updated with the blib path. + chomp($dir = `cd`); + } + else { + $dir = getcwd; + } if ($^O eq 'VMS') { ($dir = VMS::Filespec::unixify($dir)) =~ s-/\z--; } if (@_) { -- 2.7.4