diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-03-27 17:15:33 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-03-27 17:15:33 +0000 |
commit | f8f13d73f8dddd39b78c057c88b3b5a0d9462db1 (patch) | |
tree | c836abd173c7a8b7b4ac4a14bec0f610e18fa824 | |
parent | 2ab222dc73da1b6f90ce9ff6fdae84098c61f596 (diff) | |
download | perl_checker-f8f13d73f8dddd39b78c057c88b3b5a0d9462db1.tar perl_checker-f8f13d73f8dddd39b78c057c88b3b5a0d9462db1.tar.gz perl_checker-f8f13d73f8dddd39b78c057c88b3b5a0d9462db1.tar.bz2 perl_checker-f8f13d73f8dddd39b78c057c88b3b5a0d9462db1.tar.xz perl_checker-f8f13d73f8dddd39b78c057c88b3b5a0d9462db1.zip |
kill debug statement
-rwxr-xr-x | fake_packages/gen.pl | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/fake_packages/gen.pl b/fake_packages/gen.pl index a8704c9..8390534 100755 --- a/fake_packages/gen.pl +++ b/fake_packages/gen.pl @@ -135,7 +135,6 @@ 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, $_); |