r56335 - /trunk/dh-make-perl/t/debian-version.t

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sat Apr 17 20:37:32 2010
New Revision: 56335

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56335
Log:
debian-version.t: ignore debian revision

Modified:
    trunk/dh-make-perl/t/debian-version.t

Modified: trunk/dh-make-perl/t/debian-version.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/t/debian-version.t?rev=56335&op=diff
==============================================================================
--- trunk/dh-make-perl/t/debian-version.t (original)
+++ trunk/dh-make-perl/t/debian-version.t Sat Apr 17 20:37:32 2010
@@ -13,5 +13,6 @@
 my $cl = Parse::DebianChangelog->init->parse( { infile => "$Bin/../debian/changelog" } );
 
 my $pkg_ver = $cl->data( { count => 1   } )->[0]->{Version};
-$pkg_ver =~ s/~.+//;    # ignore !foo suffix
+$pkg_ver =~ s/~.+//;        # ignore !foo suffix
+$pkg_ver =~ s/-[^-]+$//;    # ignore debian revision
 is( $pkg_ver, $DhMakePerl::VERSION, 'Debian package version matches module version' );