r56169 - /trunk/dh-make-perl/lib/Debian/AptContents.pm

[dmn at users.alioth.debian.org]

Author: dmn
Date: Fri Apr 16 09:41:48 2010
New Revision: 56169

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56169
Log:
find_perl_module_package: fix sorting of file search results

what we have here is a plain list of package names, not the lines from
the Contents file.

Modified:
    trunk/dh-make-perl/lib/Debian/AptContents.pm

Modified: trunk/dh-make-perl/lib/Debian/AptContents.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/lib/Debian/AptContents.pm?rev=56169&op=diff
==============================================================================
--- trunk/dh-make-perl/lib/Debian/AptContents.pm (original)
+++ trunk/dh-make-perl/lib/Debian/AptContents.pm Fri Apr 16 09:41:48 2010
@@ -423,9 +423,9 @@
 
     # rank non -perl packages lower
     @matches = sort {
-        if    ( $a !~ /-perl: / ) { return 1; }
-        elsif ( $b !~ /-perl: / ) { return -1; }
-        else                      { return $a cmp $b; }    # or 0?
+        if    ( $a !~ /-perl$/ ) { return 1; }
+        elsif ( $b !~ /-perl$/ ) { return -1; }
+        else                     { return $a cmp $b; }    # or 0?
     } @matches;
 
     my $direct_dep;