Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fix opt specs for purge script
  • Loading branch information
rwstauner committed Jun 20, 2015
1 parent d221b8b commit fb3508d
Showing 1 changed file with 3 additions and 4 deletions.
7 changes: 3 additions & 4 deletions bin/purge.pl
Expand Up @@ -22,13 +22,12 @@ =head1 DESCRIPTION

use MetaCPAN::Web;
use Getopt::Long::Descriptive;
use List::MoreUtils qw(any);

my ( $opt, $usage ) = describe_options(
'purge.pl %o <some-arg>',
[ 'all=s', "purge all", ],
'purge.pl %o',
[ 'all', "purge all", ],
[ 'tag|t=s@', "tag(s) to purge", ],
[ 'url|t=s@', "url(s) to purge", ],
[ 'url|u=s@', "url(s) to purge", ],
[],
[ 'help', "print usage message and exit" ],
);
Expand Down

0 comments on commit fb3508d

Please sign in to comment.