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

[John E. Malmberg]

VMS needs @INC to be an absolute path for the find.t and taint.t tests 
to pass when it is run under the test harness.

-John
[EMAIL PROTECTED]
Personal Opinion Only
--- /rsync_root/perl/lib/File/Find/t/find.t     Mon Oct 22 22:41:49 2007
+++ lib/File/Find/t/find.t      Sun Nov 11 17:18:47 2007
@@ -12,6 +12,11 @@
 BEGIN {
     chdir 't' if -d 't';
     unshift @INC => '../lib';
+    if ($^O eq 'VMS') {
+        require File::Spec;
+        @INC = File::Spec->rel2abs('[-.lib]');
+    }
+
 
     $SIG{'__WARN__'} = sub { $warn_msg = $_[0]; warn "# $_[0]"; }
 }
--- /rsync_root/perl/lib/File/Find/t/taint.t    Mon Oct 22 22:41:49 2007
+++ lib/File/Find/t/taint.t     Sun Nov 11 17:20:02 2007
@@ -10,6 +10,10 @@
 BEGIN {
     chdir 't' if -d 't';
     unshift @INC => '../lib';
+    if ($^O eq 'VMS') {
+        require File::Spec;
+        @INC = File::Spec->rel2abs('[-.lib]');
+    }
 }
 
 use Config;