r68127 - in /trunk/dh-make-perl: debian/changelog t/dists.t

[periapt-guest at users.alioth.debian.org]

Author: periapt-guest
Date: Sat Feb  5 17:49:27 2011
New Revision: 68127

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=68127
Log:
Added fix for .svn at the end of a filename rather than the middle

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

Modified: trunk/dh-make-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/debian/changelog?rev=68127&op=diff
==============================================================================
--- trunk/dh-make-perl/debian/changelog (original)
+++ trunk/dh-make-perl/debian/changelog Sat Feb  5 17:49:27 2011
@@ -14,6 +14,7 @@
   * Added logic to parse special email change directives in the changelog
     so that the refresh command respects email changes (Closes: #609409)
   * Added myself to Uploaders
+  * Added fix for .svn at the end of a filename rather than the middle
 
   [ Salvatore Bonaccorso ]
   * Email change: Salvatore Bonaccorso -> carnil at debian.org

Modified: trunk/dh-make-perl/t/dists.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/dh-make-perl/t/dists.t?rev=68127&op=diff
==============================================================================
--- trunk/dh-make-perl/t/dists.t (original)
+++ trunk/dh-make-perl/t/dists.t Sat Feb  5 17:49:27 2011
@@ -22,8 +22,8 @@
         sub {
             my ( $a, $b ) = @_;
             return
-                if $a and $a =~ m{/\.(?:svn|gh|git|CVS)/}
-                    or $b and $b =~ m{/\.(?:svn|gh|git|CVS)/};
+                if $a and $a =~ m{/\.(?:svn|gh|git|CVS)(?:/|\z)}
+                    or $b and $b =~ m{/\.(?:svn|gh|git|CVS)(?:/|\z)};
             return
                 if $a and $a =~ /\.bak$/
                     or $b and $b =~ /\.bak$/;