diff options
| -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"; } |