Changeset 25
- Timestamp:
- 01/07/08 14:49:32 (5 years ago)
- Files:
-
- trunk/lib/Mungo/Request.pm (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lib/Mungo/Request.pm
r17 r25 70 70 if(@params == 1) { 71 71 # in mod_perl2 ->args is just a string 72 %qs = (map { (split /=/, $_, 2) } (split /&/, $params[0])); 72 %qs = map { s/\+/ /g; s/%([0-9a-f]{2})/chr(hex($1))/ige; } 73 (map { (split /=/, $_, 2) } (split /&/, $params[0])); 73 74 } 74 75 else {