Revision 0ab92915
Von Sven Schöling vor fast 13 Jahren hinzugefügt
| SL/MoreCommon.pm | ||
|---|---|---|
| 176 | 176 |
$str =~ tr/+/ /; |
| 177 | 177 |
$str =~ s/\\$//; |
| 178 | 178 |
|
| 179 |
$str =~ s/%([0-9a-fA-Z]{2})/pack("c",hex($1))/eg;
|
|
| 179 |
$str =~ s/%([0-9a-fA-Z]{2})/pack("C",hex($1))/eg;
|
|
| 180 | 180 |
$str = Encode::decode('utf-8-strict', $str) if $::locale->is_utf8;
|
| 181 | 181 |
|
| 182 | 182 |
return $str; |
Auch abrufbar als: Unified diff
typo: pack "c" ist für signed byte, pack "C" für unsigned byte