Changeset 41049

Timestamp:

Nov 5, 2019, 8:08:08 AM (7 years ago)

Author:

eugene

Message:

add help info

File:

• branches/eam_branches/ipp-20191011/Nebulous/bin/neb-cull (modified) (2 diffs)

branches/eam_branches/ipp-20191011/Nebulous/bin/neb-cull

@@ -17 +17 @@
 
 my ($min_copies, $server, $volume, $one_only);
-my ($soft_volume);
+my ($soft_volume, $help);
 $server = $ENV{'NEB_SERVER'} unless $server;
 
@@ -26 +26 @@
     'one_only|o'    => \$one_only,
     'soft_volume'   => \$soft_volume,
+    'help|h'        => \$help,
 ) || pod2usage( 2 );
+
+# explicitly defined -h / --help:
+if ($help) { pod2usage( -verbose => 1 ); }
 
 my $key = shift;