459 |
my @language; |
my @language; |
460 |
do { |
do { |
461 |
@language = (); |
@language = (); |
462 |
|
use Getopt::Long; |
463 |
Getopt::Long::Configure ("pass_through"); |
Getopt::Long::Configure ("pass_through"); |
464 |
getopt ("l|language=s" => \@language); |
GetOptions ("l|language=s" => \@language); |
465 |
|
|
466 |
foreach (@language) |
foreach (@language) |
467 |
{ |
{ |
475 |
|
|
476 |
# Process the arguments for real this time. |
# Process the arguments for real this time. |
477 |
my @trace; |
my @trace; |
|
Getopt::Long::Configure ("defaults"); |
|
478 |
getopt |
getopt |
479 |
( |
( |
480 |
# Operation modes: |
# Operation modes: |