diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-03-27 17:15:31 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-03-27 17:15:31 +0000 |
| commit | 2ab222dc73da1b6f90ce9ff6fdae84098c61f596 (patch) | |
| tree | 2db6cf70288c42d03e3c8e0ccc185e490aa4a721 /fake_packages | |
| parent | 8b5ce1e6da0082846da36b054da847ed628f4f4c (diff) | |
| download | perl_checker-2ab222dc73da1b6f90ce9ff6fdae84098c61f596.tar perl_checker-2ab222dc73da1b6f90ce9ff6fdae84098c61f596.tar.gz perl_checker-2ab222dc73da1b6f90ce9ff6fdae84098c61f596.tar.bz2 perl_checker-2ab222dc73da1b6f90ce9ff6fdae84098c61f596.tar.xz perl_checker-2ab222dc73da1b6f90ce9ff6fdae84098c61f596.zip | |
recognize binmode() (for eg urpmi)
Diffstat (limited to 'fake_packages')
| -rwxr-xr-x | fake_packages/gen.pl | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl index 8390534..a8704c9 100755 --- a/fake_packages/gen.pl +++ b/fake_packages/gen.pl @@ -135,6 +135,7 @@ sub parse_pm { $name =~ s/{$//; $l{$current_package}{$name} = [] if !defined($l{$current_package}{$name}) && !is_blacklisted($name); $state = 'waiting_for_param'; + warn ">> N=$name\n"; get_paras($name, $_) if /shift->/; } elsif ($state eq 'waiting_for_param' && /=\s*\@_/) { get_paras($name, $_); |