From 57dc2f7e4047fccce93f7feac31750a02d47ff8e Mon Sep 17 00:00:00 2001 From: Dagobert Michelsen Date: Sat, 21 Mar 2015 15:38:56 +0100 Subject: testcurl: Allow '=' in values given on command line --- tests/testcurl.pl | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'tests') diff --git a/tests/testcurl.pl b/tests/testcurl.pl index 8c804e4cb..5d28817e1 100755 --- a/tests/testcurl.pl +++ b/tests/testcurl.pl @@ -88,25 +88,25 @@ $setupfile = 'setup'; $configurebuild = 1; while ($ARGV[0]) { if ($ARGV[0] =~ /--target=/) { - $targetos = (split(/=/, shift @ARGV))[1]; + $targetos = (split(/=/, shift @ARGV, 2))[1]; } elsif ($ARGV[0] =~ /--setup=/) { - $setupfile = (split(/=/, shift @ARGV))[1]; + $setupfile = (split(/=/, shift @ARGV, 2))[1]; } elsif ($ARGV[0] =~ /--extvercmd=/) { - $extvercmd = (split(/=/, shift @ARGV))[1]; + $extvercmd = (split(/=/, shift @ARGV, 2))[1]; } elsif ($ARGV[0] =~ /--mktarball=/) { - $mktarball = (split(/=/, shift @ARGV))[1]; + $mktarball = (split(/=/, shift @ARGV, 2))[1]; } elsif ($ARGV[0] =~ /--name=/) { - $name = (split(/=/, shift @ARGV))[1]; + $name = (split(/=/, shift @ARGV, 2))[1]; } elsif ($ARGV[0] =~ /--email=/) { - $email = (split(/=/, shift @ARGV))[1]; + $email = (split(/=/, shift @ARGV, 2))[1]; } elsif ($ARGV[0] =~ /--desc=/) { - $desc = (split(/=/, shift @ARGV))[1]; + $desc = (split(/=/, shift @ARGV, 2))[1]; } elsif ($ARGV[0] =~ /--configure=(.*)/) { $confopts = $1; -- cgit v1.2.3