# HG changeset patch # User Matthias Förste # 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 {