comparison src/gearsTools/generate_stub.pl @ 357:e194c940c664

fix Getopt
author anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp>
date Mon, 15 Jun 2020 18:41:01 +0900
parents fde5f96c6ff1
children 87a28b02c88f
comparison
equal deleted inserted replaced
356:599ad98aee00 357:e194c940c664
16 # } Worker; 16 # } Worker;
17 17
18 our($opt_o,$opt_d,$opt_h, $opt_project); 18 our($opt_o,$opt_d,$opt_h, $opt_project);
19 19
20 GetOptions( 20 GetOptions(
21 "o=s" => \$opt_o, 21 "o=s" => \$opt_o,
22 "d=s" => \$opt_d, 22 "d=s" => \$opt_d,
23 "h" => \$opt_h, 23 "h" => \$opt_h,
24 "project" => \$opt_project, 24 "project=s" => \$opt_project,
25 ); 25 );
26 26
27 my $dir = "."; 27 my $dir = ".";
28 if ($opt_d) { 28 if ($opt_d) {
29 $dir = $opt_d; 29 $dir = $opt_d;