r13937 - /scripts/qa/DebianQA/Svn.pm

tincho-guest at users.alioth.debian.org tincho-guest at users.alioth.debian.org
Fri Feb 1 05:50:30 UTC 2008


Author: tincho-guest
Date: Fri Feb  1 05:50:29 2008
New Revision: 13937

URL: http://svn.debian.org/wsvn/?sc=1&rev=13937
Log:
Correctly trim whitespace in watch files

Modified:
    scripts/qa/DebianQA/Svn.pm

Modified: scripts/qa/DebianQA/Svn.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Svn.pm?rev=13937&op=diff
==============================================================================
--- scripts/qa/DebianQA/Svn.pm (original)
+++ scripts/qa/DebianQA/Svn.pm Fri Feb  1 05:50:29 2008
@@ -334,7 +334,9 @@
     $version =~ s/^(?:\d+:)?(.+?)(?:-[^-]+)?$/$1/;
 
     $watch =~ s/^#.*$//gm;
-    $watch =~ s/\\\n//gs;
+    $watch =~ s/\s*\\\n\s*/ /gs;
+    $watch =~ s/^\s+//gm;
+    $watch =~ s/\s+$//gm;
     my @watch_lines = split(/\n/, $watch);
     @watch_lines = grep((!/^version\s*=/ and !/^\s*$/),
         @watch_lines);




More information about the Pkg-perl-cvs-commits mailing list