Changeset 907 for dasscm/trunk/usr/bin
- Timestamp:
- Jun 28, 2010, 11:16:43 AM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
dasscm/trunk/usr/bin/dasscm
r895 r907 8 8 qw($DASSCM_PROD $DASSCM_REPO $USER $DASSCM_USERNAME $DASSCM_USER $DASSCM_PASSWORD $SHELL); 9 9 use Cwd; 10 use Getopt::Long qw(GetOptionsFromArray);10 use Getopt::Long; 11 11 use File::Basename; 12 12 use File::Compare; … … 1575 1575 1576 1576 # check and remove global options. if options are wrong, nothing to do 1577 if( GetOptionsFromArray( \@input, \%options_complete, @OPTIONS_GLOBAL ) ) { 1577 @ARGV = @input; 1578 if( GetOptions( \%options_complete, @OPTIONS_GLOBAL ) ) { 1578 1579 my $number_arguments = @input; 1579 1580 if ( $number_arguments <= 1 ) { … … 1591 1592 # check and remove options 1592 1593 my @options = get_command_possible_options( $command ); 1593 if( ( not @options ) || ( GetOptionsFromArray( \@input, \%options_complete, @options ) ) ) { 1594 @ARGV = @input; 1595 if( ( not @options ) || ( GetOptions( \%options_complete, @options ) ) ) { 1594 1596 1595 1597 my @params = get_command_possible_params( $command );
Note:
See TracChangeset
for help on using the changeset viewer.