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

[dmn at users.alioth.debian.org]

Author: dmn
Date: Sun Nov 30 12:58:45 2008
New Revision: 27463

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27463
Log:
compare debian/ to wanted-debian/, not vice versa

this really should also compare file lists tto be sure we are not
missing some extra generated file

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=27463&op=diff
==============================================================================
--- trunk/dh-make-perl/t/dists.t (original)
+++ trunk/dh-make-perl/t/dists.t Sun Nov 30 12:58:45 2008
@@ -11,9 +11,9 @@
 
     return unless -f $File::Find::name;
 
-    my $wanted = $File::Find::name;
-    $wanted =~ s{/debian/}{/wanted-debian/};
-    my $diff = diff($wanted, $File::Find::name);
+    my $real = $File::Find::name;
+    $real =~ s{/wanted-debian/}{/debian/};
+    my $diff = diff($File::Find::name, $real);
 
     $diff = ''
         unless grep { /^[-+] /
@@ -37,7 +37,7 @@
     use File::Find qw(find);
     use Text::Diff qw(diff);
 
-    find(\&compare, "$dist/debian");
+    find(\&compare, "$dist/wanted-debian");
 
     # clean after the test
     find( sub{