# HG changeset patch
# User Mahlon E. Smith <mahlon@laika.com>
# Date 1297994566 28800
# Node ID cb5e528f7ff2c18dcbdcee85355ff924fd4107e0
# Parent  38aaae38427aa1b7cbae363e1c6091473df580dd
Minor cleanup.

diff -r 38aaae38427a -r cb5e528f7ff2 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({