Changeset 907 for dasscm/trunk/usr/bin


Ignore:
Timestamp:
Jun 28, 2010, 11:16:43 AM (14 years ago)
Author:
joergs
Message:

bugfix: SLES9 Getopt::Long doesn't provide function GetOptionsFromArray, there code is modified to cope without it

File:
1 edited

Legend:

Unmodified
Added
Removed
  • dasscm/trunk/usr/bin/dasscm

    r895 r907  
    88  qw($DASSCM_PROD $DASSCM_REPO $USER $DASSCM_USERNAME $DASSCM_USER $DASSCM_PASSWORD $SHELL);
    99use Cwd;
    10 use Getopt::Long qw(GetOptionsFromArray);
     10use Getopt::Long;
    1111use File::Basename;
    1212use File::Compare;
     
    15751575
    15761576    # 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 ) ) {
    15781579        my $number_arguments = @input;
    15791580        if ( $number_arguments <= 1 ) {
     
    15911592                # check and remove options
    15921593                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 ) ) ) {
    15941596
    15951597                    my @params  = get_command_possible_params( $command );
Note: See TracChangeset for help on using the changeset viewer.