Parent Directory | Revision Log | Patch
revision 32 by laperla, Sun Nov 12 09:31:04 2000 UTC | revision 41 by laperla, Mon Nov 13 20:25:49 2000 UTC | |
---|---|---|
# | Line 81 sub AUTOLOAD { | Line 81 sub AUTOLOAD { |
81 | no strict 'refs'; | no strict 'refs'; |
82 | *$func = sub { | *$func = sub { |
83 | # Courtesy JHI | # Courtesy JHI |
84 | $_[0] =~ s{([\xC0-\xDF])([\x80-\xBF])}{chr(ord($1)<<6&0xC0|ord($2)&0x3F)}eg; #}; | my $s = shift; |
85 | $s =~ s{([\xC0-\xDF])([\x80-\xBF])} | |
86 | {chr(ord($1)<<6&0xC0|ord($2)&0x3F)}eg; | |
87 | $s; | |
88 | }; | }; |
89 | goto \&$func; | goto \&$func; |
90 | } | } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |