patch@26188 - ext/List/Util/t/p_tainted.t assumes UNIX pathnames

[John E. Malmberg]

The file ext/List/Util/t/p_tainted.t is assuming a UNIX format pathname 
is returned by __FILE__.

This is a quick fix for VMS.
A proper fix needs use the routines to either generate a relative 
pathname or concatenate paths.

Also I need to find out is where __FILE__ is being set because I need to 
have it show up in UNIX format when the VMS CRTL is in UNIX 
compatibility mode, and when I set the VMS CRTL in this mode, I am still 
getting it in VMS format.

-John
[EMAIL PROTECTED]
Personal Opinion Only
--- /rsync_root/perl/ext/List/Util/t/p_tainted.t        Wed Nov  9 07:25:43 2005
+++ ext/List/Util/t/p_tainted.t Tue Nov 22 15:56:51 2005
@@ -4,4 +4,5 @@
 $List::Util::TESTING_PERL_ONLY = $List::Util::TESTING_PERL_ONLY = 1;
 
 (my $f = __FILE__) =~ s/p_//;
-do "./$f";
+$f = './' . $f unless $^O eq 'VMS';
+do "$f";