fix new perl warning
parent
582e52d3ca
commit
db6f258745
|
@ -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;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue