Changeset 12245

Timestamp:

Mar 5, 2007, 3:21:59 PM (19 years ago)

Author:

Paul Price

Message:

Silently chew --no-op, with no effect

Location:

trunk/ippScripts/scripts

Files:

• register_exp.pl (modified) (2 diffs)
• register_imfile.pl (modified) (2 diffs)

trunk/ippScripts/scripts/register_exp.pl

@@ -31 +31 @@
     );
 
-my ($cache, $exp_tag, $workdir, $dbname, $no_update);
+my ($cache, $exp_tag, $workdir, $dbname, $no_update, $no_op);
 
 GetOptions(
@@ -38 +38 @@
     'workdir|w=s'   => \$workdir, # Working directory for output files
     'dbname|d=s'    => \$dbname, # Database name    
-    'no-update'     => \$no_update
+    'no-update'     => \$no_update,
+    'no-op'         => \$no_op,
 ) or pod2usage( 2 );
 

trunk/ippScripts/scripts/register_imfile.pl

@@ -37 +37 @@
 use Pod::Usage qw( pod2usage );
 
-my ($cache, $exp_tag, $class_id, $uri, $workdir, $dbname, $no_update);
+my ($cache, $exp_tag, $class_id, $uri, $workdir, $dbname, $no_update, $no_op);
 
 # print "args: @ARGV\n";
@@ -51 +51 @@
     'workdir|w=s'   => \$workdir, # Working directory for output files
     'dbname|d=s'    => \$dbname,# Database name
-    'no-update'     => \$no_update
+    'no-update'     => \$no_update,
+    'no-op'         => \$no_op,
 ) or pod2usage( 2 );