fix new perl warning
parent
582e52d3ca
commit
db6f258745
|
@ -302,7 +302,7 @@ sub extract_timestamp (@) {
|
|||
open (my $out, "-|", @_);
|
||||
my @log = bzr_log($out);
|
||||
|
||||
if (length @log < 1) {
|
||||
if (length(scalar(@log)) < 1) {
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
|
Loading…
Reference in New Issue