r34207 - in /trunk/dh-make-perl: debian/changelog lib/Debian/Dependencies.pm

gregoa at users.alioth.debian.org gregoa at users.alioth.debian.org
Mon Apr 27 14:44:50 UTC 2009


Author: gregoa
Date: Mon Apr 27 14:44:45 2009
New Revision: 34207

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=34207
Log:
Add the whole Debian::Dependency object to the deps hash in
Debian::Dependencies' prune function instead of just the version; fixes
"Can't call method "ver" without a package or object reference at
/usr/share/perl5/Debian/Dependencies.pm line 125." error that occurs when
a package is listed more than once in %deps.

Modified:
    trunk/dh-make-perl/debian/changelog
    trunk/dh-make-perl/lib/Debian/Dependencies.pm

Modified: trunk/dh-make-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/debian/changelog?rev=34207&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Mon Apr 27 14:44:45 2009
@@ -1,3 +1,13 @@
+dh-make-perl (0.56) UNRELEASED; urgency=low
+
+  * Add the whole Debian::Dependency object to the deps hash in
+    Debian::Dependencies' prune function instead of just the version; fixes
+    "Can't call method "ver" without a package or object reference at
+    /usr/share/perl5/Debian/Dependencies.pm line 125." error that occurs when
+    a package is listed more than once in %deps.
+
+ -- gregor herrmann <gregoa at debian.org>  Mon, 27 Apr 2009 16:42:59 +0200
+
 dh-make-perl (0.55) unstable; urgency=low
 
   [ Peter Pentchev ]

Modified: trunk/dh-make-perl/lib/Debian/Dependencies.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/Debian/Dependencies.pm?rev=34207&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/Dependencies.pm (original)
+++ trunk/dh-make-perl/lib/Debian/Dependencies.pm Mon Apr 27 14:44:45 2009
@@ -124,7 +124,7 @@
         if ( exists $deps{$p} ) {
             my $cur_ver = $deps{$p}->ver;
 
-            $deps{$p} = $v
+            $deps{$p} = $_
                 if defined($v) and not defined($cur_ver)
                     or $AptPkg::Config::_config->system->versioning->compare(
                         $cur_ver, $v ) < 0;




More information about the Pkg-perl-cvs-commits mailing list