Skip to content
Snippets Groups Projects
Commit c1b12e87 authored by Nigel Kukard's avatar Nigel Kukard
Browse files

Small code cleanup

parent 83b220c1
No related branches found
No related tags found
No related merge requests found
...@@ -67,8 +67,7 @@ sub parseFormContent ...@@ -67,8 +67,7 @@ sub parseFormContent
# Split information into name/value pairs # Split information into name/value pairs
my @pairs = split(/&/, $data); my @pairs = split(/&/, $data);
foreach my $pair (@pairs) foreach my $pair (@pairs) {
{
my ($name, $value) = split(/=/, $pair); my ($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /; $value =~ tr/+/ /;
$value =~ s/%(..)/pack("C", hex($1))/eg; $value =~ s/%(..)/pack("C", hex($1))/eg;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment