Wichert Akkerman лет назад: 26
Родитель
Сommit
ceb1d97cfb
2 измененных файлов с 2 добавлено и 3 удалено
  1. 2 2
      scripts/dpkg-gencontrol.pl
  2. 0 1
      scripts/dpkg-shlibdeps.pl

+ 2 - 2
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) { }

+ 0 - 1
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);