diff options
author | Oswald Buddenhagen <oswald.buddenhagen@theqtcompany.com> | 2015-08-17 17:03:39 +0200 |
---|---|---|
committer | Simon Hausmann <simon.hausmann@theqtcompany.com> | 2015-12-25 08:07:10 +0000 |
commit | c3e404fffd954050ab30d1da92700dc37e1d2a7b (patch) | |
tree | 65d371cfc718f7ef1e3d6889547f501f29e8def6 /init-repository | |
parent | 43135d6e33875d864cc8d34e5ba51cc02ed33840 (diff) |
don't use GetOptionsFromArray, to restore msysgit perl compatibility
Change-Id: Ic02a5d8b5a8a813a23bed1c0b45bcb8ee47e3edb
Reviewed-by: Simon Hausmann <simon.hausmann@theqtcompany.com>
Diffstat (limited to 'init-repository')
-rwxr-xr-x | init-repository | 8 |
1 files 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; |