Changeset 31919 for main/trunk/greenstone2
- Timestamp:
- 2017-08-24T12:34:30+12:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/parse2.pm
r28700 r31919 275 275 # If it is start with a "-" sign then take it off 276 276 $strOneArg =~ s/^-+//; 277 277 } 278 278 # If the inputed argument is defined in the argument 279 279 # list from this plugin then process … … 296 296 if($blnAllowExtraOptions eq "true") 297 297 { 298 push(@ExtraOption," -$strOneArg");298 push(@ExtraOption,"$strOneArg"); 299 299 } 300 300 else 301 301 { 302 302 print STDERR "<BadArgument a=$strOneArg>\n"; 303 print STDERR " Error: occur in parse2.pm::parse()\n Extra Arguments: $strOneArg\n";303 print STDERR " Error: occur in parse2.pm::parse()\n Invalid Argument: $strOneArg\n"; 304 304 return -1; 305 305 } 306 306 } 307 }308 309 # This part follow the previous parsing system.310 # It doesn't return error message even user311 # gave a invalid argument.312 else313 {314 if($blnAllowExtraOptions eq "true")315 {316 push(@ExtraOption,$strOneArg);317 }318 else319 {320 print STDERR " Error: occur in parse2.pm::parse()\n Invalid Argument: $strOneArg\n";321 return -1;322 }323 }324 307 } 325 308
Note:
See TracChangeset
for help on using the changeset viewer.