lexical warnings update (warning.t fails one test

[p5sagit/p5-mst-13.2.git] / t / pragma / warning.t

diff --git a/t/pragma/warning.t b/t/pragma/warning.t
index 7914121..73e4c8d 100755 (executable)
--- a/t/pragma/warning.t
+++ b/t/pragma/warning.t
@@ -79,7 +79,7 @@ for (@prgs){
                   `MCR $^X $switch $tmpfile` :
                  $Is_MSWin32 ?
                   `.\\perl -I../lib $switch $tmpfile 2>&1` :
-                  `./perl $switch $tmpfile 2>&1`;
+                  `./perl -I../lib $switch $tmpfile 2>&1`;
     my $status = $?;
     $results =~ s/\n+$//;
     # allow expected output to be written as if $prog is on STDIN