On Thu, Sep 06, 2007 at 12:13:18AM +0300, Jari Aalto wrote:
> +++ b/scripts/dpkg-source.pl
> @@ -190,6 +190,7 @@ sub handleformat {
>
>
> my $opmode;
> +my $flag_I_opt_done;
>
> while (@ARGV && $ARGV[0] =~ m/^-/) {
> $_=shift(@ARGV);
> @@ -216,7 +217,9 @@ while (@ARGV && $ARGV[0] =~ m/^-/) {
> } elsif (m/^-I(.+)$/) {
> push @tar_ignore, "--exclude=$1";
> } elsif (m/^-I$/) {
> - push @tar_ignore, $diff_I_opt_default_regexp;
> + push @tar_ignore, $diff_I_opt_default_regexp unless
> $$flag_I_opt_done;
> + # Prevent adding multiple times
> + $flag_I_opt_done = "done";
> } elsif (m/^-V(\w[-:0-9A-Za-z]*)[=:]/) {
> $substvar{$1}= "$'";
> } elsif (m/^-T/) {
looks like inconsistent whitespace.
Gruesse,
--
Frank Lichtenheld <[EMAIL PROTECTED]>
www: http://www.djpig.de/
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
