Mercurial > bins
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 { |