# HG changeset patch
# User Meredith Howard <mhoward@roomag.org>
# Date 1485059410 18000
# Node ID a586821155108187cf3623ef29a2afe446ed477b
# Parent  a32d6511d251454c6aa6bbe4984175e29cc8b4a5
print usage on no args too

diff --git a/bin/archive-dir b/bin/archive-dir
--- a/bin/archive-dir
+++ b/bin/archive-dir
@@ -23,7 +23,7 @@ sub main {
     ['yes|y'   => "actually move stuff"],
     ['help|h'  => "print usage message and exit", {shortcircuit => 1}],
   );
-  print($usage->text), exit if $opt->help;
+  print($usage->text), exit if $opt->help || !@ARGV;
 
   archive_dir($opt, $_) for @ARGV;
 }