diff --git a/shelldap b/shelldap
index 8b853d3..35e80b4 100755
--- a/shelldap
+++ b/shelldap
@@ -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({