diff options
| author | Denis Barbier <barbier> | 2002-01-24 23:28:00 +0000 |
|---|---|---|
| committer | Denis Barbier <barbier> | 2002-01-24 23:28:00 +0000 |
| commit | 7ab42fb5aa22e1e99679d055920069859322b4c1 (patch) | |
| tree | ce7c13a8f8f86bd5bd6820c0c320dd61ec23c310 /Perl/Webwml | |
| parent | 362c1ff671ba066235c74e2814a7d0bd656c759c (diff) | |
Add tests to suppress warnings
CVS version numbers
Perl/Webwml/L10n/Debconf.pm: 1.3 -> 1.4
Diffstat (limited to 'Perl/Webwml')
| -rw-r--r-- | Perl/Webwml/L10n/Debconf.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Perl/Webwml/L10n/Debconf.pm b/Perl/Webwml/L10n/Debconf.pm index b7f3b50992c..7a21852af0c 100644 --- a/Perl/Webwml/L10n/Debconf.pm +++ b/Perl/Webwml/L10n/Debconf.pm @@ -214,7 +214,8 @@ sub _read_dispatched { goto SKIP; } next unless defined $self->{orig}->{$tmpl}; - if ($_ eq $self->{orig}->{$tmpl}->{choices}) { + if (defined($self->{orig}->{$tmpl}->{choices}) && + $_ eq $self->{orig}->{$tmpl}->{choices}) { $status = 'count'; } else { $status = 'fuzzy'; @@ -246,7 +247,8 @@ sub _read_dispatched { $msg =~ s/^\s+//gm; $msg =~ s/\s+$//gm; $msg =~ tr/ \t\n/ /s; - if ($msg eq $self->{orig}->{$tmpl}->{description}) { + if (defined($self->{orig}->{$tmpl}->{description}) && + $msg eq $self->{orig}->{$tmpl}->{description}) { $status = 'count'; } else { $status = 'fuzzy'; |