thinko in change#4546 that caused variables to lose their importedness

(GvIMPORTED_XV_off should be !GvIMPORTED_XV)

p4raw-link: @4546 on //depot/perl: 11faa288e292c27cb2ddc4ccdc483b523d26ce19

p4raw-id: //depot/perl@5543

1 files changed, 9 insertions, 0 deletions

diff --git a/t/pragma/strict-vars b/t/pragma/strict-vars
index 9352c4b04c..954d1e5ab4 100644
--- a/t/pragma/strict-vars
+++ b/t/pragma/strict-vars
@@ -27,6 +27,15 @@ EXPECT
 # strict vars - no error
 use strict 'vars' ;
 use vars qw( $freddy) ;
+BEGIN { *freddy = \$joe::shmoe; }
+$freddy = 2 ;
+EXPECT
+
+########
+
+# strict vars - no error
+use strict 'vars' ;
+use vars qw( $freddy) ;
 local $abc::joe ;
 my $fred ;
 my $b = \$fred ;