diff options
| author | E. Choroba <choroba@matfyz.cz> | 2019-10-27 11:57:19 +0100 |
|---|---|---|
| committer | E. Choroba <choroba@matfyz.cz> | 2019-10-27 11:57:19 +0100 |
| commit | 11ad98e42010b7df0ada5142dbeb7be938365fef (patch) | |
| tree | 66e824aa56d4bc08d4417c988fdd5de17996efd7 /challenge-031 | |
| parent | d645881edf9f69970703fcbbb156d1f836552495 (diff) | |
| download | perlweeklychallenge-club-11ad98e42010b7df0ada5142dbeb7be938365fef.tar.gz perlweeklychallenge-club-11ad98e42010b7df0ada5142dbeb7be938365fef.tar.bz2 perlweeklychallenge-club-11ad98e42010b7df0ada5142dbeb7be938365fef.zip | |
Use only the needed subset of "no strict"
Diffstat (limited to 'challenge-031')
| -rwxr-xr-x | challenge-031/e-choroba/perl5/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-031/e-choroba/perl5/ch-2.pl b/challenge-031/e-choroba/perl5/ch-2.pl index ca9c5dc731..b7b2594f4d 100755 --- a/challenge-031/e-choroba/perl5/ch-2.pl +++ b/challenge-031/e-choroba/perl5/ch-2.pl @@ -3,7 +3,7 @@ use warnings; use strict; my $var_name = shift; -{ no strict; +{ no strict 'refs'; ${ $var_name } = "Don't try this at home!"; print "\$$var_name: ", $$var_name, "\n"; } |