summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-27 17:15:33 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-27 17:15:33 +0000
commitf8f13d73f8dddd39b78c057c88b3b5a0d9462db1 (patch)
treec836abd173c7a8b7b4ac4a14bec0f610e18fa824
parent2ab222dc73da1b6f90ce9ff6fdae84098c61f596 (diff)
downloadperl_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-xfake_packages/gen.pl1
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, $_);