From c3e404fffd954050ab30d1da92700dc37e1d2a7b Mon Sep 17 00:00:00 2001 From: Oswald Buddenhagen Date: Mon, 17 Aug 2015 17:03:39 +0200 Subject: don't use GetOptionsFromArray, to restore msysgit perl compatibility Change-Id: Ic02a5d8b5a8a813a23bed1c0b45bcb8ee47e3edb Reviewed-by: Simon Hausmann --- init-repository | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/init-repository b/init-repository index 91c0519f..4f017318 100755 --- a/init-repository +++ b/init-repository @@ -180,7 +180,7 @@ missing modules will fall back to the canonical URLs. use Carp qw( confess ); use English qw( -no_match_vars ); -use Getopt::Long qw( GetOptionsFromArray ); +use Getopt::Long qw( GetOptions ); use Pod::Usage qw( pod2usage ); use Cwd qw( getcwd ); @@ -222,7 +222,7 @@ sub exe sub parse_arguments { - my ($self, @args) = @_; + my ($self) = @_; %{$self} = (%{$self}, 'alternates' => "", @@ -237,7 +237,7 @@ sub parse_arguments 'module-subset' => "default", ); - GetOptionsFromArray(\@args, + GetOptions( 'alternates=s' => \$self->{qw{ alternates }}, 'branch' => \$self->{qw{ branch }}, 'codereview-username=s' => \$self->{qw{ codereview-username }}, @@ -563,5 +563,5 @@ sub run #============================================================================== -Qt::InitRepository->new(@ARGV)->run if (!caller); +Qt::InitRepository->new()->run if (!caller); 1; -- cgit v1.2.3