Procházet zdrojové kódy

* Bugfix: really use /etc/dpkg/shlibs.default
* Improvement: only look for debian/*/DEBIAN/{symbols,shlibs} instead of looking into subdirectories as well. File::Find is no more needed.

Raphael Hertzog před 19 roky
rodič
revize
33cef2fdb1
1 změnil soubory, kde provedl 4 přidání a 7 odebrání
  1. 4 7
      scripts/dpkg-shlibdeps.pl

+ 4 - 7
scripts/dpkg-shlibdeps.pl

@@ -43,12 +43,8 @@ my $debug= 0;
 
 
 my (@pkg_shlibs, @pkg_symbols);
 my (@pkg_shlibs, @pkg_symbols);
 if (-d "debian") {
 if (-d "debian") {
-    find sub {
-	push @pkg_shlibs, $File::Find::name
-	    if ($File::Find::name =~ m{/DEBIAN/shlibs$});
-	push @pkg_symbols, $File::Find::name
-	    if ($File::Find::name =~ m{/DEBIAN/symbols$});
-    }, "debian";
+    push @pkg_symbols, <debian/*/DEBIAN/symbols>;
+    push @pkg_shlibs, <debian/*/DEBIAN/shlibs>;
 }
 }
 
 
 my ($stdout, %exec);
 my ($stdout, %exec);
@@ -310,7 +306,8 @@ Dependency fields recognised are:
 sub add_shlibs_dep {
 sub add_shlibs_dep {
     my ($soname, $pkg) = @_;
     my ($soname, $pkg) = @_;
     foreach my $file ($shlibslocal, $shlibsoverride, @pkg_shlibs,
     foreach my $file ($shlibslocal, $shlibsoverride, @pkg_shlibs,
-			"$admindir/info/$pkg.shlibs")
+			"$admindir/info/$pkg.shlibs",
+			$shlibsdefault)
     {
     {
 	next if not -e $file;
 	next if not -e $file;
 	my $dep = extract_from_shlibs($soname, $file);
 	my $dep = extract_from_shlibs($soname, $file);