Parse and ignore use vXXX

sorear · Dec 2, 2010 · 55c766a · 55c766a
1 parent e7cb374
commit 55c766a
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/Niecza/Actions.pm b/src/Niecza/Actions.pm
@@ -85,6 +85,9 @@ sub nofun { }
 sub curlycheck { }
 sub pod_comment { }
 sub infixstopper { }
+sub vnum { }
+sub version { }
+sub version__S_v { }
 
 sub category { }
 sub category__S_category { }
@@ -2388,6 +2391,10 @@ sub statement_control__S_for { my ($cl, $M) = @_;
 }
 
 sub statement_control__S_use { my ($cl, $M) = @_;
+    if ($M->{version}) {
+        return;
+    }
+
     my $name = $M->{module_name}{_ast}{name};
     my $args = $M->{arglist} ? $M->{arglist}{_ast} : [];