fix new perl warning

master
Joey Hess 2013-08-30 22:33:11 -04:00
parent 582e52d3ca
commit db6f258745
1 changed files with 1 additions and 1 deletions

View File

@ -302,7 +302,7 @@ sub extract_timestamp (@) {
open (my $out, "-|", @_); open (my $out, "-|", @_);
my @log = bzr_log($out); my @log = bzr_log($out);
if (length @log < 1) { if (length(scalar(@log)) < 1) {
return 0; return 0;
} }