# HG changeset patch
# User Matthias Förste <foerste@schlittermann.de>
# Date 1293017908 -3600
# Node ID 7a91026ef6905b5342edbbc12c46c204960085b7
# Parent  eafc2621fc184dfce020949de4d7fdbc215f4276
removed unusable '[no]recursive' option (File::Find doesn't support nonrecursive operation anyway)

diff -r eafc2621fc18 -r 7a91026ef690 purge-proe
--- a/purge-proe	Wed Dec 22 12:07:06 2010 +0100
+++ b/purge-proe	Wed Dec 22 12:38:28 2010 +0100
@@ -30,8 +30,7 @@
 
   dirs => [],   # dont set default dir here because arguments to --directory will
                 # not overwrite it, but added to it
-  keep => 3,
-  recursive => 1
+  keep => 3
 
 };
 
@@ -42,7 +41,6 @@
   'help' => sub { pod2usage(-verbose => 1, -exitval => 0) },
   'man' => sub { pod2usage(-verbose => 2, -exitval => 0) },
   'keep=i' => \$opt->{keep},
-  'recursive' => \$opt->{recursive}
 );
 
 sub doit {