patch@32274 file/find/t/ find.t and taint.t fixes for VMS.

From: "John E. Malmberg" <wb8tyw@qsl.net>
	Message-id: <47379376.6070809@qsl.net>

With variations to make it cross-platform.

p4raw-id: //depot/perl@32279

diff --git a/lib/File/Find/t/find.t b/lib/File/Find/t/find.t
index 33e5264..60834bd 100644 (file)
--- a/lib/File/Find/t/find.t
+++ b/lib/File/Find/t/find.t
@@ -10,8 +10,10 @@ my ($warn_msg, @files, $file);
 
 
 BEGIN {
+    require File::Spec;
     chdir 't' if -d 't';
-    unshift @INC => '../lib';
+    # May be doing dynamic loading while @INC is all relative
+    unshift @INC => File::Spec->rel2abs('../lib');
 
     $SIG{'__WARN__'} = sub { $warn_msg = $_[0]; warn "# $_[0]"; }
 }

diff --git a/lib/File/Find/t/taint.t b/lib/File/Find/t/taint.t
index 1d6fb00..2059765 100644 (file)
--- a/lib/File/Find/t/taint.t
+++ b/lib/File/Find/t/taint.t
@@ -8,8 +8,12 @@ my ($cwd, $cwd_untainted);
 
 
 BEGIN {
+    require File::Spec;
     chdir 't' if -d 't';
-    unshift @INC => '../lib';
+    # May be doing dynamic loading while @INC is all relative
+    my $lib = File::Spec->rel2abs('../lib');
+    $lib = $1 if $lib =~ m/(.*)/;
+    unshift @INC => $lib;
 }
 
 use Config;