(perl #129125) copy form data if it might be freed

[perl5.git] / t / op / defins.t

diff --git a/t/op/defins.t b/t/op/defins.t
index 54d3150..fb746d5 100644 (file)
--- a/t/op/defins.t
+++ b/t/op/defins.t
@@ -6,10 +6,11 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = qw(. ../lib);
+    require './test.pl';
+    set_up_inc( qw(. ../lib) );
     $SIG{__WARN__} = sub { $warns++; warn $_[0] };
 }
-require 'test.pl';
+
 plan( tests => 27 );
 
 my $unix_mode = 1;