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