Index: trunk/Nebulous/bin/neb-ls
===================================================================
--- trunk/Nebulous/bin/neb-ls	(revision 16263)
+++ trunk/Nebulous/bin/neb-ls	(revision 17873)
@@ -3,5 +3,5 @@
 # Copyright (C) 2007-2008  Joshua Hoblitt
 #
-# $Id: neb-ls,v 1.5 2008-01-30 00:15:18 jhoblitt Exp $
+# $Id: neb-ls,v 1.6 2008-05-31 02:41:17 jhoblitt Exp $
 
 use strict;
@@ -16,5 +16,5 @@
 use Pod::Usage qw( pod2usage );
 
-my ($server, $long);
+my ($server, $long, $recursive);
 
 $server = $ENV{'NEB_SERVER'} unless $server;
@@ -22,4 +22,5 @@
 GetOptions(
     'server|s=s'    => \$server,
+    'recursive|r'   => \$recursive,
     'l|1'           => \$long,
 ) || pod2usage( 2 );
@@ -40,4 +41,10 @@
 # default to listing everything (bad idea?)
 $pattern ||= ".*";
+
+if ($recursive) {
+    $pattern = "^" . $pattern . ".*";
+} else {
+    $pattern = "^" . $pattern . "\$";
+}
 
 my $keys = $neb->find_objects($pattern);