comparison bins_edit @ 7:69923c621cfe

log verbosity
author Peter Gervai <grin@grin.hu>
date Thu, 16 Oct 2008 00:05:56 +0200
parents 3021deef1599
children c28af937b9bd
comparison
equal deleted inserted replaced
6:3021deef1599 7:69923c621cfe
406 'q|quiet' => sub { $verbose = 0 }, 406 'q|quiet' => sub { $verbose = 0 },
407 'h|help' => sub { help() }, 407 'h|help' => sub { help() },
408 'copyright' => sub { copyleft() }, 408 'copyright' => sub { copyleft() },
409 ) 409 )
410 or usage(1); 410 or usage(1);
411 411
412 print "Verbosity is $verbose" if $verbose>1;
413
412 my @files; 414 my @files;
413 if ($#ARGV < 0) { 415 if ($#ARGV < 0) {
414 if ($album) { 416 if ($album) {
415 @files = ("."); 417 @files = (".");
416 } else { 418 } else {