pkg-kde: commit - rev 38 - people/jd/scripts

[David Pashley <jd-guest@quantz.debian.org>]

Author: jd-guest
Date: 2004-02-16 22:03:17 +0100 (Mon, 16 Feb 2004)
New Revision: 38

Modified:
   people/jd/scripts/check-replaces
Log:
Deal with different levels of whitespace in control lines.


Modified: people/jd/scripts/check-replaces
===================================================================
--- people/jd/scripts/check-replaces	2004-02-15 15:44:37 UTC (rev 37)
+++ people/jd/scripts/check-replaces	2004-02-16 21:03:17 UTC (rev 38)
@@ -1,7 +1,6 @@
 #!/usr/bin/perl
-
 #
-# check-conflicts - Checks for conflicting files in packages currently
+# check-replaces - Checks for conflicting files in packages currently
 # in stable, testing and unstable.
 #
 # (c) 2004 David Pashley <david@davidpashley.com>
@@ -49,8 +48,8 @@
       }
       if (m/Replaces: (.*)$/) {
          my %temp;
-         for my $conflict ( split /, /, $1) {
-            $conflict =~ m/^([\-a-zA-Z0-9]+)( .*)?/;
+         for my $conflict ( split /,/, $1) {
+            $conflict =~ m/^\s*([\-a-zA-Z0-9]+)( .*)?/;
             $temp{$1} = $conflict;
          }
          $replaces{$current_package} = \%temp;