From 11ad98e42010b7df0ada5142dbeb7be938365fef Mon Sep 17 00:00:00 2001
From: "E. Choroba" <choroba@matfyz.cz>
Date: Sun, 27 Oct 2019 11:57:19 +0100
Subject: Use only the needed subset of "no strict"

---
 challenge-031/e-choroba/perl5/ch-2.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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";
 }
-- 
cgit