Changeset 28052

Timestamp:

May 20, 2010, 3:52:51 PM (16 years ago)

Author:

bills

Message:

remove redundant error check

File:

• trunk/pstamp/scripts/pstamp_request_file (modified) (1 diff)

trunk/pstamp/scripts/pstamp_request_file

@@ -29 +29 @@
 
 printhelp($0) if $help;
+
 pod2usage( -msg => "Unknown option: @ARGV", -exitval => 2 ) if @ARGV;
-pod2usage( -msg => "Required options: --input",
-           -exitval => 3) unless defined $input;
+
+unless (defined $input) {
+    print STDERR "Required options: --input\n";
+    printhelp($0);
+}
 
 # The header kewords