summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorOswald Buddenhagen <oswald.buddenhagen@theqtcompany.com>2015-08-17 17:03:39 +0200
committerSimon Hausmann <simon.hausmann@theqtcompany.com>2015-12-25 08:07:10 +0000
commitc3e404fffd954050ab30d1da92700dc37e1d2a7b (patch)
tree65d371cfc718f7ef1e3d6889547f501f29e8def6
parent43135d6e33875d864cc8d34e5ba51cc02ed33840 (diff)
don't use GetOptionsFromArray, to restore msysgit perl compatibility
Change-Id: Ic02a5d8b5a8a813a23bed1c0b45bcb8ee47e3edb Reviewed-by: Simon Hausmann <simon.hausmann@theqtcompany.com>
-rwxr-xr-xinit-repository8
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;