Minor cleanup.
authorMahlon E. Smith <mahlon@laika.com>
Thu, 17 Feb 2011 18:02:46 -0800
changeset 9 cb5e528f7ff2
parent 8 38aaae38427a
child 10 664bbe3dcd44
Minor cleanup.
shelldap
--- a/shelldap	Thu Feb 17 18:00:55 2011 -0800
+++ b/shelldap	Thu Feb 17 18:02:46 2011 -0800
@@ -1415,10 +1415,8 @@
 	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({