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

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

Author: tincho-guest
Date: Fri Feb  1 05:44:31 2008
New Revision: 13936

URL: http://svn.debian.org/wsvn/?sc=1&rev=13936
Log:
Correctly process comments 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=13936&op=diff
==============================================================================
--- scripts/qa/DebianQA/Svn.pm (original)
+++ scripts/qa/DebianQA/Svn.pm Fri Feb  1 05:44:31 2008
@@ -329,13 +329,14 @@
     $version ||= '';
     $watch ||= '';
     debug("parse_watch('$version', '...')");
-    $watch =~ s/\\\n//gs;
 
     # Strip epoch and debian release
     $version =~ s/^(?:\d+:)?(.+?)(?:-[^-]+)?$/$1/;
 
+    $watch =~ s/^#.*$//gm;
+    $watch =~ s/\\\n//gs;
     my @watch_lines = split(/\n/, $watch);
-    @watch_lines = grep((!/^#/ and !/^version\s*=/ and !/^\s*$/),
+    @watch_lines = grep((!/^version\s*=/ and !/^\s*$/),
         @watch_lines);
 
     my @wspecs;