made numeric argument to --verbose optional

2009-04-12 23:04:33 -07:00 · 2009-04-12 23:04:33 -07:00 · 276e8f36d2
commit 276e8f36d2
parent bcbcb7778a
1 changed files with 1 additions and 1 deletions
--- a/stow.in
+++ b/stow.in
@ -176,7 +176,7 @@ sub process_options {
    Getopt::Long::config('no_ignore_case', 'bundling', 'permute');
    GetOptions(
        'v'              => sub { $Option{'verbose'}++            },
-        'verbose=s'      => sub { $Option{'verbose'}      = $_[1] },
+        'verbose:i'      => sub { $Option{'verbose'}+= $_[1] || 1 },
        'h|help'         => sub { $Option{'help'}         = '1'   },
        'n|no|simulate'  => sub { $Option{'simulate'}     = '1'   },
        'c|conflicts'    => sub { $Option{'conflicts'}    = '1'   },