diff options
| author | Denis Barbier <barbier> | 2002-05-20 01:18:00 +0000 |
|---|---|---|
| committer | Denis Barbier <barbier> | 2002-05-20 01:18:00 +0000 |
| commit | 3ba02b808a02f02b1e1dda6aa2fc9ced62d4ea23 (patch) | |
| tree | affbcbf62a25df973f57cb93ce6cd5d73ddfde72 /Perl | |
| parent | 8e6c45bb722b79879320a1955ab5931c90734d84 (diff) | |
Remove warnings about uninitialized values
CVS version numbers
Perl/Local/WmlDiffTrans.pm: 1.3 -> 1.4
Diffstat (limited to 'Perl')
| -rw-r--r-- | Perl/Local/WmlDiffTrans.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Perl/Local/WmlDiffTrans.pm b/Perl/Local/WmlDiffTrans.pm index 8b59c055c88..1afa4c651f5 100644 --- a/Perl/Local/WmlDiffTrans.pm +++ b/Perl/Local/WmlDiffTrans.pm @@ -527,7 +527,7 @@ sub get_text_lines { # print " stop : $stop \n"; for $line_num ($start..$stop) { - $text .= $lines->[$line_num]; + $text .= $lines->[$line_num] || ''; } return $text; @@ -548,14 +548,14 @@ sub display_full_diff_info { for $elem (@$diff_parts) { - my $diff_start = $elem->{'diff_line'}; - my $diff_count = $elem->{'diff_count'}; + my $diff_start = $elem->{'diff_line'} || 0; + my $diff_count = $elem->{'diff_count'} || 0; my $diff_stop = $diff_start + $diff_count; $text .= get_text_lines($diff_lines, $diff_start, $diff_stop) . "\n"; - my $trans_start = $elem->{'before'}; - my $trans_stop = $elem->{'after'}; + my $trans_start = $elem->{'before'} || 0; + my $trans_stop = $elem->{'after'} || 0; my $trans_count = $trans_stop - $trans_start; $text .= "--> $trans_start,$trans_count <--\n"; |