Changeset 41050 for branches/eam_branches/ipp-20191011

Timestamp:

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

Author:

eugene

Message:

add help info

File:

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

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

@@ -16 +16 @@
 use Pod::Usage qw( pod2usage );
 
-my ($volume, $server);
+my ($volume, $server, $help);
 
 $server = $ENV{'NEB_SERVER'} unless $server;
@@ -23 +23 @@
     'volume=s'      => \$volume,
     'server|s=s'    => \$server,
+    'help|h'        => \$help,
 ) || pod2usage( 2 );
+
+# explicitly defined -h / --help:
+if ($help) { pod2usage( -verbose => 1 ); }
 
 my $src = shift;