From: Shlomi Fish <shlomif@shlomifish.org>
Date: Mon, 17 Dec 2012 20:44:54 +0000 (+0200)
Subject: Fix some warnigns in recent perls.
X-Git-Url: http://git.tremily.us/?a=commitdiff_plain;h=12c9219d671c672fedcf9e9ab7f9187b23b8f7f4;p=ikiwiki.git

Fix some warnigns in recent perls.

All existing tests pass.
---

diff --git a/IkiWiki/Plugin/git.pm b/IkiWiki/Plugin/git.pm
index 0c0e27521..3879abeae 100644
--- a/IkiWiki/Plugin/git.pm
+++ b/IkiWiki/Plugin/git.pm
@@ -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.