r27293 - /trunk/dh-make-perl/dh-make-perl

[dmn at users.alioth.debian.org]

Author: dmn
Date: Wed Nov 26 10:42:06 2008
New Revision: 27293

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27293
Log:
find_debs_for_modules: specual treatment of perl versions (5.008 -> 5.8)

Modified:
    trunk/dh-make-perl/dh-make-perl

Modified: trunk/dh-make-perl/dh-make-perl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/dh-make-perl?rev=27293&op=diff
==============================================================================
--- trunk/dh-make-perl/dh-make-perl (original)
+++ trunk/dh-make-perl/dh-make-perl Wed Nov 26 10:42:06 2008
@@ -1119,6 +1119,16 @@
             if ( exists $dep_hash->{$module} ) {
                 my $v = $dep_hash->{$module};
                 $v =~ s/^v//;    # strip leading 'v' from version
+
+                # perl versions need special handling
+                if ( $module eq 'perl' and $v =~ /\.(\d+)$/ ) {
+                    my $ver = 0 + substr( $1, 0, 3 );
+                    if( length($1) > 3 ) {
+                        $ver .= '.' . ( 0 + substr( $1, 3 ) );
+                    }
+                    $v =~ s/\.\d+$/.$ver/;
+                }
+
                 push @debs, {
                         name    => $deb,
                         version => $v