lili/qt5
1
0
Fork 0
mirror of git://code.qt.io/qt/qt5.git synced 2026-04-20 20:06:32 +08:00
Code Issues Packages Projects Releases Wiki Activity

don't use GetOptionsFromArray, to restore msysgit perl compatibility

Browse Source 
Change-Id: Ic02a5d8b5a8a813a23bed1c0b45bcb8ee47e3edb
Reviewed-by: Simon Hausmann <simon.hausmann@theqtcompany.com>
This commit is contained in:
Oswald Buddenhagen
2015-08-17 17:03:39 +02:00
committed by Simon Hausmann
parent 43135d6e33
commit c3e404fffd
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
init-repository
View File

@@ -180,7 +180,7 @@ missing modules will fall back to the canonical URLs.
use Carp qw( confess ); use Carp qw( confess );
use English qw( -no_match_vars ); use English qw( -no_match_vars );
use Getopt::Long qw( GetOptionsFromArray ); use Getopt::Long qw( GetOptions );
use Pod::Usage qw( pod2usage ); use Pod::Usage qw( pod2usage );
use Cwd qw( getcwd ); use Cwd qw( getcwd );
@@ -222,7 +222,7 @@ sub exe
sub parse_arguments sub parse_arguments
{ {
my ($self, @args) = @_; my ($self) = @_;
%{$self} = (%{$self}, %{$self} = (%{$self},
'alternates' => "", 'alternates' => "",
@@ -237,7 +237,7 @@ sub parse_arguments
'module-subset' => "default", 'module-subset' => "default",
); );
GetOptionsFromArray(\@args, GetOptions(
'alternates=s' => \$self->{qw{ alternates }}, 'alternates=s' => \$self->{qw{ alternates }},
'branch' => \$self->{qw{ branch }}, 'branch' => \$self->{qw{ branch }},
'codereview-username=s' => \$self->{qw{ codereview-username }}, '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; 1;