summaryrefslogtreecommitdiffstats
path: root/plugins
diff options
context:
space:
mode:
Diffstat (limited to 'plugins')
-rwxr-xr-xplugins/tests/check_curl.t8
1 files changed, 4 insertions, 4 deletions
diff --git a/plugins/tests/check_curl.t b/plugins/tests/check_curl.t
index bc0101a2..af01c97e 100755
--- a/plugins/tests/check_curl.t
+++ b/plugins/tests/check_curl.t
@@ -229,7 +229,7 @@ sub run_server {
229 # group 2 is uncaptured: (?:;(.*))? 229 # group 2 is uncaptured: (?:;(.*))?
230 # (? )? prevents the capture 230 # (? )? prevents the capture
231 # in between the ';' matches the first ever semicolon 231 # in between the ';' matches the first ever semicolon
232 # group3 is captured: any character stirng : (.*) 232 # group3 is captured: any character string : (.*)
233 my ($before_params, $params) = $uri =~ m{^([^;]*)(?:;(.*))?\?}; 233 my ($before_params, $params) = $uri =~ m{^([^;]*)(?:;(.*))?\?};
234 $before_params //= ''; 234 $before_params //= '';
235 $params //= ''; 235 $params //= '';
@@ -258,9 +258,9 @@ sub run_server {
258 258
259 # fragment: try to split into key=value pairs on ';' or '&' if present 259 # fragment: try to split into key=value pairs on ';' or '&' if present
260 my @fragment_pairs; 260 my @fragment_pairs;
261 my $fragment_seperator = ''; 261 my $fragment_separator = '';
262 if ($fragment ne '') { 262 if ($fragment ne '') {
263 $fragment_seperator = ($fragment =~ /&/ ? '&' : ';'); 263 $fragment_separator = ($fragment =~ /&/ ? '&' : ';');
264 for my $f (split /[&;]/, $fragment) { 264 for my $f (split /[&;]/, $fragment) {
265 next unless length $f; 265 next unless length $f;
266 my ($key,$value) = split /=/, $f, 2; 266 my ($key,$value) = split /=/, $f, 2;
@@ -310,7 +310,7 @@ sub run_server {
310 310
311 my $new_fragment_str = ''; 311 my $new_fragment_str = '';
312 if (@fragment_pairs) { 312 if (@fragment_pairs) {
313 $new_fragment_str = join($fragment_seperator, map { $_->[0] . '=' . $_->[1] } @fragment_pairs); 313 $new_fragment_str = join($fragment_separator, map { $_->[0] . '=' . $_->[1] } @fragment_pairs);
314 } 314 }
315 $content .= " new_fragment_str: ${new_fragment_str}\n"; 315 $content .= " new_fragment_str: ${new_fragment_str}\n";
316 316