dpkg-shlibdeps: bugfix, avoid unwanted modification of @pkg_shlibs by my_find_library

diff --git a/ChangeLog b/ChangeLog
index 941c39afbd4a3835f7a9ca73cced9be3aa985228..1eb1e32b3a15f031759bc3cfe537ec7cdbeecebc 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -5,6 +5,8 @@
        * debian/rules: include cputable ostable triplettable in
        build-tree so that they are available during make check (Dpkg.pm
        exports ".." as $pkgdatadir during tests).
+       * scripts/dpkg-shlibdeps.pl: bugfix, avoid unwanted modification
+       of @pkg_shlibs by my_find_library.
 
 2007-10-14  Raphael Hertzog  <hertzog@debian.org>
 

diff --git a/scripts/dpkg-shlibdeps.pl b/scripts/dpkg-shlibdeps.pl
index 3196a4ff35023922dd5e5bf36f4f8cb2527e0e0b..7f9c381e2aa5fac314cf7a745ed23494ff98dc62 100755 (executable)
--- a/scripts/dpkg-shlibdeps.pl
+++ b/scripts/dpkg-shlibdeps.pl
@@ -434,7 +434,8 @@ sub my_find_library {
     # that provides shlibs file...)
     # TODO: we should probably replace that by a cleaner way to look into
     # the various temporary build directories...
-    foreach my $builddir (map { s{/DEBIAN/shlibs$}{}; $_ } @pkg_shlibs) {
+    my @copy = (@pkg_shlibs);
+    foreach my $builddir (map { s{/DEBIAN/shlibs$}{}; $_ } @copy) {
        $file = find_library($lib, \@RPATH, $format, $builddir);
        return $file if defined($file);
     }