integrate cfgperl contents into mainline

[p5sagit/p5-mst-13.2.git] / t / op / defins.t

diff --git a/t/op/defins.t b/t/op/defins.t
index 0ed61ce..9e714a7 100755 (executable)
--- a/t/op/defins.t
+++ b/t/op/defins.t
@@ -6,7 +6,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
     $SIG{__WARN__} = sub { $warns++; warn $_[0] };
     print "1..14\n";
 }
@@ -61,6 +61,7 @@ while ($where{$seen} = <FILE>)
  }
 print "not " unless $seen;
 print "ok 5\n";
+close FILE;
 
 opendir(DIR,'.');
 $seen = 0;