bin/archive-dir

changeset 529
99f120bc1ad9
parent 485
a58682115510
child 549
0bd45054802e
--- a/bin/archive-dir
+++ b/bin/archive-dir
@@ -20,7 +20,7 @@ sub main {
     ],
     ['age|a=i' => "minimum age in days for archival", {default => 60}],
     ['files|f' => "operate on plain files only"],
-    ['yes|y'   => "actually move stuff"],
+    ['yes|Y'   => "actually move stuff"],
     ['help|h'  => "print usage message and exit", {shortcircuit => 1}],
   );
   print($usage->text), exit if $opt->help || !@ARGV;

mercurial