summaryrefslogtreecommitdiffstats
path: root/fake_packages/gen.pl
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
commitda1146a69edbf72e7818fa00ac493de1b4604c3e (patch)
treec836abd173c7a8b7b4ac4a14bec0f610e18fa824 /fake_packages/gen.pl
parent28c517bd5a2418308e95b6371d5ec0240ede5762 (diff)
downloadperl_checker-da1146a69edbf72e7818fa00ac493de1b4604c3e.tar
perl_checker-da1146a69edbf72e7818fa00ac493de1b4604c3e.tar.gz
perl_checker-da1146a69edbf72e7818fa00ac493de1b4604c3e.tar.bz2
perl_checker-da1146a69edbf72e7818fa00ac493de1b4604c3e.tar.xz
perl_checker-da1146a69edbf72e7818fa00ac493de1b4604c3e.zip
kill debug statement
Diffstat (limited to 'fake_packages/gen.pl')
-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, $_);