Check strict refs functionality __END__ # no strict, should build & run ok. my $fred ; $b = "fred" ; $a = $$b ; $c = ${"def"} ; $c = @{"def"} ; $c = %{"def"} ; $c = *{"def"} ; $c = \&{"def"} ; $c = def->[0]; $c = def->{xyz}; EXPECT ######## # strict refs - error use strict ; my $fred ; my $a = ${"fred"} ; EXPECT Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 5. ######## # strict refs - error use strict 'refs' ; my $fred ; my $a = ${"fred"} ; EXPECT Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 5. ######## # strict refs - error use strict 'refs' ; my $fred ; my $b = "fred" ; my $a = $$b ; EXPECT Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 6. ######## # strict refs - error use strict 'refs' ; my $b ; my $a = $$b ; EXPECT Can't use an undefined value as a SCALAR reference at - line 5. ######## # strict refs - error use strict 'refs' ; my $b ; my $a = @$b ; EXPECT Can't use an undefined value as an ARRAY reference at - line 5. ######## # strict refs - error use strict 'refs' ; my $b ; my $a = %$b ; EXPECT Can't use an undefined value as a HASH reference at - line 5. ######## # strict refs - error use strict 'refs' ; my $b ; my $a = *$b ; EXPECT Can't use an undefined value as a symbol reference at - line 5. ######## # strict refs - error use strict 'refs' ; my $a = fred->[0] ; EXPECT Can't use bareword ("fred") as an ARRAY ref while "strict refs" in use at - line 4. ######## # strict refs - error use strict 'refs' ; my $a = fred->{barney} ; EXPECT Can't use bareword ("fred") as a HASH ref while "strict refs" in use at - line 4. ######## # strict refs - no error use strict ; no strict 'refs' ; my $fred ; my $b = "fred" ; my $a = $$b ; use strict 'refs' ; EXPECT ######## # strict refs - no error use strict qw(subs vars) ; my $fred ; my $b = "fred" ; my $a = $$b ; use strict 'refs' ; EXPECT ######## # strict refs - no error my $fred ; my $b = "fred" ; my $a = $$b ; use strict 'refs' ; EXPECT ######## # strict refs - no error use strict 'refs' ; my $fred ; my $b = \$fred ; my $a = $$b ; EXPECT ######## # Check runtime scope of strict refs pragma use strict 'refs'; my $fred ; my $b = "fred" ; { no strict ; my $a = $$b ; } my $a = $$b ; EXPECT Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 10. ######## # Check runtime scope of strict refs pragma no strict ; my $fred ; my $b = "fred" ; { use strict 'refs' ; my $a = $$b ; } my $a = $$b ; EXPECT Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 8. ######## # Check runtime scope of strict refs pragma no strict ; my $fred ; my $b = "fred" ; { use strict 'refs' ; $a = sub { my $c = $$b ; } } &$a ; EXPECT Can't use string ("fred") as a SCALAR ref while "strict refs" in use at - line 8. ######## --FILE-- abc my $a = ${"Fred"} ; 1; --FILE-- use strict 'refs' ; require "./abc"; EXPECT ######## --FILE-- abc use strict 'refs' ; 1; --FILE-- require "./abc"; my $a = ${"Fred"} ; EXPECT ######## --FILE-- abc use strict 'refs' ; my $a = ${"Fred"} ; 1; --FILE-- ${"Fred"} ; require "./abc"; EXPECT Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at ./abc line 2. Compilation failed in require at - line 2. ######## --FILE-- abc.pm use strict 'refs' ; my $a = ${"Fred"} ; 1; --FILE-- my $a = ${"Fred"} ; use abc; EXPECT Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at abc.pm line 2. Compilation failed in require at - line 2. BEGIN failed--compilation aborted at - line 2. ######## # Check scope of pragma with eval no strict ; eval { my $a = ${"Fred"} ; }; print STDERR $@ ; my $a = ${"Fred"} ; EXPECT ######## # Check scope of pragma with eval no strict ; eval { use strict 'refs' ; my $a = ${"Fred"} ; }; print STDERR $@ ; my $a = ${"Fred"} ; EXPECT Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 6. ######## # Check scope of pragma with eval use strict 'refs' ; eval { my $a = ${"Fred"} ; }; print STDERR $@ ; EXPECT Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 5. ######## # Check scope of pragma with eval use strict 'refs' ; eval { no strict ; my $a = ${"Fred"} ; }; print STDERR $@ ; my $a = ${"Fred"} ; EXPECT Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 9. ######## # Check scope of pragma with eval no strict ; eval ' my $a = ${"Fred"} ; '; print STDERR $@ ; my $a = ${"Fred"} ; EXPECT ######## # Check scope of pragma with eval no strict ; eval q[ use strict 'refs' ; my $a = ${"Fred"} ; ]; print STDERR $@; EXPECT Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at (eval 1) line 3. ######## # Check scope of pragma with eval use strict 'refs' ; eval ' my $a = ${"Fred"} ; '; print STDERR $@ ; EXPECT Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at (eval 1) line 2. ######## # Check scope of pragma with eval use strict 'refs' ; eval ' no strict ; my $a = ${"Fred"} ; '; print STDERR $@; my $a = ${"Fred"} ; EXPECT Can't use string ("Fred") as a SCALAR ref while "strict refs" in use at - line 8. ######## # [perl #26910] hints not propagated into (?{...}) use strict 'refs'; /(?{${"foo"}++})/; EXPECT Can't use string ("foo") as a SCALAR ref while "strict refs" in use at (re_eval 1) line 1.