From ceb1d97cfb3500d75811e5420e5a0f7a6cc03a13 Mon Sep 17 00:00:00 2001 From: Wichert Akkerman Date: Sun, 22 Oct 2000 20:25:42 +0000 Subject: [PATCH] remove debug statement --- scripts/dpkg-gencontrol.pl | 4 ++-- scripts/dpkg-shlibdeps.pl | 1 - 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/scripts/dpkg-gencontrol.pl b/scripts/dpkg-gencontrol.pl index 8410010c..adf151c8 100755 --- a/scripts/dpkg-gencontrol.pl +++ b/scripts/dpkg-gencontrol.pl @@ -49,7 +49,7 @@ $i=100;grep($fieldimps{$_}=$i--, Pre-Depends Depends Recommends Suggests Enhances Optional Conflicts Replaces Provides Installed-Size Maintainer Source Description Build-Depends Build-Depends-Indep Build-Conflicts - Build-Conflicts-Indep Source Bugs-Submit-To Bugs-Submit-Style )); + Build-Conflicts-Indep Source Bugs-Submit-To )); while (@ARGV) { $_=shift(@ARGV); @@ -111,7 +111,7 @@ for $_ (keys %fi) { $v= $fi{$_}; if (s/^C //) { #print STDERR "G key >$_< value >$v<\n"; - if (m/^Origin|Bugs-(Submit-To|Submit-Style)|Maintainer$/) { $f{$_}=$v; } + if (m/^Origin|Bugs-Submit-To|Maintainer$/) { $f{$_}=$v; } elsif (m/^Source$/) { &setsourcepackage; } elsif (s/^X[CS]*B[CS]*-//i) { $f{$_}= $v; } elsif (m/^X[CS]+-|^Standards-Version$|^Build-(Depends|Conflicts)(-Indep)?$/i) { } diff --git a/scripts/dpkg-shlibdeps.pl b/scripts/dpkg-shlibdeps.pl index 2ae6481f..1877dc47 100755 --- a/scripts/dpkg-shlibdeps.pl +++ b/scripts/dpkg-shlibdeps.pl @@ -106,7 +106,6 @@ for ($i=0;$i<=$#exec;$i++) { # Now: See if it is in this package. See if it is in any other package. sub searchdir { my $dir = shift; -print STDERR "DEBUG: searching in $dir\n"; if(opendir(DIR, $dir)) { my @dirents = readdir(DIR); closedir(DIR); -- 2.39.5