Perlito5 - parser - "use 5.011" or larger loads strict.pm

fglock · May 24, 2019 · 92d9128 · 92d9128
1 parent d6bb8c8
commit 92d9128
Showing 1 changed file with 11 additions and 0 deletions.
diff --git a/src5/lib/Perlito5/Grammar/Use.pm b/src5/lib/Perlito5/Grammar/Use.pm
@@ -72,6 +72,17 @@ token stmt_use {
                 }
             );
 
+            if ($version ge '5.011') {
+                # use strict
+                parse_time_eval(
+                    {
+                        mod       => "strict",
+                        code      => "use",
+                        arguments => undef,
+                    }
+                );
+            }
+
             my $code = feature->can('unimport');
             if (defined($code)) {
                 # no feature ':all';