[perl #43425] local $[: fix scoping during parser error handling.

[p5sagit/p5-mst-13.2.git] / lib / vmsish.t

diff --git a/lib/vmsish.t b/lib/vmsish.t
index f40e434..847d1a6 100644 (file)
--- a/lib/vmsish.t
+++ b/lib/vmsish.t
@@ -10,7 +10,7 @@ $perl = VMS::Filespec::vmsify($perl) if $^O eq 'VMS';
 
 my $Invoke_Perl = qq(MCR $perl "-I[-.lib]");
 
-require "./test.pl";
+BEGIN { require "./test.pl"; }
 plan(tests => 25);
 
 SKIP: {