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 <[EMAIL PROTECTED]> @@ -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;