regcomp.c: Rename a variable

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

diff --git a/t/op/gv.t b/t/op/gv.t
index 79519ca..8dc7f13 100644 (file)
--- a/t/op/gv.t
+++ b/t/op/gv.t
@@ -497,7 +497,7 @@ $::{borage} = \&ok;
 eval 'borage("sub ref in stash")' or fail "sub ref in stash";
 
 {
-    use vars qw($glook $smek $foof);
+    our ($glook, $smek, $foof);
     # Check reference assignment isn't affected by the SV type (bug #38439)
     $glook = 3;
     $smek = 4;