r8879 - in /scripts/qa/DebianQA: Svn.pm Watch.pm

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

Author: tincho-guest
Date: Mon Nov  5 19:21:25 2007
New Revision: 8879

URL: http://svn.debian.org/wsvn/?sc=1&rev=8879
Log:
Couple of bugfixes

Modified:
    scripts/qa/DebianQA/Svn.pm
    scripts/qa/DebianQA/Watch.pm

Modified: scripts/qa/DebianQA/Svn.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Svn.pm?rev=8879&op=diff
==============================================================================
--- scripts/qa/DebianQA/Svn.pm (original)
+++ scripts/qa/DebianQA/Svn.pm Mon Nov  5 19:21:25 2007
@@ -254,7 +254,7 @@
         push @wspecs, {
             line => $_,
             unmangled_ver => $unmangled,
-            md5 => md5_hex($opts.$_),
+            md5 => md5_hex(($opts || "").$_),
             opts => \%opts
         };
     }

Modified: scripts/qa/DebianQA/Watch.pm
URL: http://svn.debian.org/wsvn/scripts/qa/DebianQA/Watch.pm?rev=8879&op=diff
==============================================================================
--- scripts/qa/DebianQA/Watch.pm (original)
+++ scripts/qa/DebianQA/Watch.pm Mon Nov  5 19:21:25 2007
@@ -157,7 +157,7 @@
     foreach my $uver (@vers) {
         next unless($watch{opts}{uversionmangle});
         foreach(split(/;/, @{$watch{opts}{uversionmangle}})) {
-            eval "\$uver[1] =~ $_";
+            eval "\$uver->[1] =~ $_";
             if($@) {
                 error("Invalid watchfile: $@");
                 return "Invalid";