equal
deleted
inserted
replaced
17 sub purge_unused; |
17 sub purge_unused; |
18 sub check_images; |
18 sub check_images; |
19 |
19 |
20 my %o = ( |
20 my %o = ( |
21 yes => undef, |
21 yes => undef, |
22 verbose => undef, |
22 verbose => 1, |
23 check => undef, |
23 check => undef, |
24 ); |
24 ); |
25 lock_keys(%o); |
25 lock_keys(%o); |
26 |
26 |
27 MAIN: { |
27 MAIN: { |
248 |
248 |
249 =head1 OPTIONS |
249 =head1 OPTIONS |
250 |
250 |
251 =over |
251 =over |
252 |
252 |
|
253 =item B<-v>|B<-->[no]B<verbose> |
|
254 |
|
255 Generate more output about what's going on. (default: on) |
|
256 |
253 =item B<-y>|B<--yes> |
257 =item B<-y>|B<--yes> |
254 |
258 |
255 Assume "yes" for all questions (dangerous!). (default: no) |
259 Assume "yes" for all questions (dangerous!). (default: no) |
256 |
260 |
257 =item B<-h>|B<--help> |
261 =item B<-h>|B<--help> |