Changeset 907

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:

• dasscm/trunk/usr/bin/dasscm (modified) (3 diffs)

dasscm/trunk/usr/bin/dasscm

@@ -8 +8 @@
   qw($DASSCM_PROD $DASSCM_REPO $USER $DASSCM_USERNAME $DASSCM_USER $DASSCM_PASSWORD $SHELL);
 use Cwd;
-use Getopt::Long qw(GetOptionsFromArray);
+use Getopt::Long;
 use File::Basename;
 use File::Compare;
@@ -1575 +1575 @@
 
     # check and remove global options. if options are wrong, nothing to do
-    if( GetOptionsFromArray( \@input, \%options_complete, @OPTIONS_GLOBAL ) ) {
+    @ARGV = @input;
+    if( GetOptions( \%options_complete, @OPTIONS_GLOBAL ) ) {
         my $number_arguments = @input;
         if ( $number_arguments <= 1 ) {
@@ -1591 +1592 @@
                 # check and remove options
                 my @options = get_command_possible_options( $command );
-                if( ( not @options ) || ( GetOptionsFromArray( \@input, \%options_complete, @options ) ) ) {
+                @ARGV = @input;
+                if( ( not @options ) || ( GetOptions( \%options_complete, @options ) ) ) {
 
                     my @params  = get_command_possible_params( $command );