r27465 - /trunk/dh-make-perl/t/dists.t

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sun Nov 30 13:00:36 2008
New Revision: 27465

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27465
Log:
fix the changelog date exception when requiring no diff to wanted-debian/

Modified:
    trunk/dh-make-perl/t/dists.t

Modified: trunk/dh-make-perl/t/dists.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/t/dists.t?rev=27465&op=diff
==============================================================================
--- trunk/dh-make-perl/t/dists.t (original)
+++ trunk/dh-make-perl/t/dists.t Sun Nov 30 13:00:36 2008
@@ -15,10 +15,20 @@
     $real =~ s{/wanted-debian/}{/debian/};
     my $diff = diff($File::Find::name, $real);
 
-    $diff = ''
-        unless grep { /^[-+] /
-                     and not /^[-+] -- Joe Maintainer <joemaint\@test.local>  / }
-            split( /\n/, $diff );
+    if ( $_ eq 'changelog' ) {
+        my $only_date_differs = 1;
+        for ( split( /\n/, $diff ) ) {
+            next if /^--- / or /^\+\+\+ /;
+            next unless /^[-+] /;
+            next if /^[-+] -- Joe Maintainer <joemaint\@test\.local>  /;
+
+            $only_date_differs = 0;
+            diag $_;
+            last;
+        }
+
+        $diff = '' if $only_date_differs;
+    }
 
     is($diff, '', "$File::Find::name is OK");
 }