r13936 - /scripts/qa/DebianQA/Svn.pm
tincho-guest at users.alioth.debian.org
tincho-guest at users.alioth.debian.org
Fri Feb 1 05:44:31 UTC 2008
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;
More information about the Pkg-perl-cvs-commits
mailing list