Perlito5 - parser - "use $version" loads feature.pm

fglock · Apr 1, 2019 · d6bb8c8 · d6bb8c8
1 parent a37bc9f
commit d6bb8c8
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/src5/lib/Perlito5/Grammar/Use.pm b/src5/lib/Perlito5/Grammar/Use.pm
@@ -63,6 +63,15 @@ token stmt_use {
             my $version = $MATCH->{"version_string"}{capture}{buf};
             $version = Perlito5::test_perl_version($version);
 
+            # load feature.pm
+            parse_time_eval(
+                {
+                    mod       => "feature",
+                    code      => "use",
+                    arguments => [],    # skip import
+                }
+            );
+
             my $code = feature->can('unimport');
             if (defined($code)) {
                 # no feature ':all';