Parent Directory
| 
Revision Log
| 
Patch
| Revision 360 | Revision 367 | ||
|---|---|---|---|
| … | … | ||
| 133 | 133 | ||
| 134 | # ----- | 134 | # ----- |
| 135 | 135 | ||
| 136 | sub decode($) { | 136 | sub decode($) { |
| 137 | my $string = shift; | 137 | my $string = shift; |
| 138 | return unless defined $string and $string; | ||
| 138 | my %hash = $string =~ /(.*?)(?<!\\)=(.*?)(?:(?<!\\)&|$)/g; | 139 | my %hash = $string =~ /(.*?)(?<!\\)=(.*?)(?:(?<!\\)&|$)/g; |
| 139 | $hash{$_} =~ s/\\(.)/$1/ foreach (keys %hash); # unescape anything | 140 | $hash{$_} =~ s/\\(.)/$1/ foreach (keys %hash); # unescape anything |
| 140 | return %hash; | 141 | return %hash; |
| 141 | } | 142 | } |
| 142 | 143 | ||
|
||||||||
| aubreyja at gmail dot com | ViewVC Help |
| Powered by ViewVC 1.0.9 |