1 files changed, 4 insertions, 0 deletions
diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl
index 3b49922..37b2ef8 100755
--- a/fake_packages/gen.pl
+++ b/fake_packages/gen.pl
@@ -16,6 +16,10 @@ sub get_paras {
     return if member($name, qw(print use));
     $l{$current_package}{$name} = [ map {
 	if (/\Q.../) {
+            # C code:
+	    '@_more_paras';
+	} elsif (/[%@]\w+.* = \@_/) {
+            # perl code:
 	    '@_more_paras';
 	} else {
 	    my ($optional) = s/=(.*)//;