r3470 - scripts/trunk

[Cyril Brulebois]

Author: kibi-guest
Date: 2007-07-28 06:13:24 +0000 (Sat, 28 Jul 2007)
New Revision: 3470

Modified:
   scripts/trunk/XS-Vcs-fields-update.pl
Log:
Fix stupid copy/paste, fix stupid greedy matches

Modified: scripts/trunk/XS-Vcs-fields-update.pl
===================================================================
--- scripts/trunk/XS-Vcs-fields-update.pl	2007-07-28 05:52:33 UTC (rev 3469)
+++ scripts/trunk/XS-Vcs-fields-update.pl	2007-07-28 06:13:24 UTC (rev 3470)
@@ -50,7 +50,7 @@
         or die "Oops, unable to close $package/debian/control";
 
     # SVN: Already contains this field?
-    if ($control =~ /^XS-Vcs-Svn: (.*)$/ms ) {
+    if ($control =~ /^XS-Vcs-Svn: (.*?)$/ms ) {
         my $svn = $1;
         print "[$package] XS-Vcs-Svn already present: ";
     
@@ -71,12 +71,12 @@
     }
 
     # BROWSER: Already contains this field?
-    if ($control =~ /^XS-Vcs-Browser: (.*)$/ms ) {
+    if ($control =~ /^XS-Vcs-Browser: (.*?)$/ms ) {
         my $browser = $1;
         print "[$package] XS-Vcs-Browser already present: ";
     
         # Matches the appropriate value?
-        if ($browser eq xs_vcs_svn($package)) {
+        if ($browser eq xs_vcs_browser($package)) {
             print "ALREADY OK\n";
         }
         else {