diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-10-27 11:02:12 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-10-27 11:02:12 +0000 |
| commit | b06bfa34831dcbd0f6211c4a07b4cb0d8450d94a (patch) | |
| tree | 66e824aa56d4bc08d4417c988fdd5de17996efd7 | |
| parent | d645881edf9f69970703fcbbb156d1f836552495 (diff) | |
| parent | 11ad98e42010b7df0ada5142dbeb7be938365fef (diff) | |
| download | perlweeklychallenge-club-b06bfa34831dcbd0f6211c4a07b4cb0d8450d94a.tar.gz perlweeklychallenge-club-b06bfa34831dcbd0f6211c4a07b4cb0d8450d94a.tar.bz2 perlweeklychallenge-club-b06bfa34831dcbd0f6211c4a07b4cb0d8450d94a.zip | |
Merge pull request #848 from choroba/ech31c
Use only the needed subset of "no strict"
| -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"; } |