Fix some warnigns in recent perls.

All existing tests pass.
master
Shlomi Fish 2012-12-17 22:44:54 +02:00
parent a877cc5d4c
commit 12c9219d67
1 changed files with 2 additions and 2 deletions

View File

@ -341,8 +341,8 @@ sub parse_diff_tree ($) {
my $dt_ref = shift;
# End of stream?
return if !defined @{ $dt_ref } ||
!defined @{ $dt_ref }[0] || !length @{ $dt_ref }[0];
return if ! @{ $dt_ref } ||
!defined $dt_ref->[0] || !length $dt_ref->[0];
my %ci;
# Header line.