Minor cleanup.

FossilOrigin-Name: 8b54ff7fabd125c4a01a2c91a71804ca5449baf4916ea9ee605731cca2ee3351
This commit is contained in:
mahlon@laika.com 2011-02-18 02:02:45 +00:00
parent d676104d7a
commit 95fd214af9

View file

@ -1415,10 +1415,8 @@ sub run_list
my ( $recurse, $long );
if ( $flags ) {
$recurse = $flags =~ /R/;
$long = $flags =~ /l/;
if ($long) {
$attrs = [ '*', 'hasSubordinates' ];
}
$long = $flags =~ /l/;
$attrs = [ '*', 'hasSubordinates' ] if $long;
}
my $s = $self->search({