Document what to do with object on the left and add some TODO tests for that

[perl5.git] / t / TestInit.pm

diff --git a/t/TestInit.pm b/t/TestInit.pm
index 058ad29..aa76fe1 100644 (file)
--- a/t/TestInit.pm
+++ b/t/TestInit.pm
@@ -18,13 +18,7 @@ package TestInit;
 $VERSION = 1.01;
 
 chdir 't' if -d 't';
-if ($^O eq 'VMS') {
-    require File::Spec;
-    @INC = File::Spec->rel2abs('[-.lib]');
-}
-else {
-    @INC = '../lib';
-}
+@INC = '../lib';
 
 # Don't interfere with the taintedness of %ENV, this could perturbate tests
 $ENV{PERL_CORE} = 1 unless ${^TAINT};