/[webpac2]/trunk/lib/WebPAC/Output/TT.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Output/TT.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1106 by dpavlin, Mon Sep 3 15:26:46 2007 UTC revision 1107 by dpavlin, Mon Aug 4 21:47:27 2008 UTC
# Line 335  Helper to quote JavaScript-friendly char Line 335  Helper to quote JavaScript-friendly char
335    
336  sub __quotemeta {  sub __quotemeta {
337          local $_ = shift;          local $_ = shift;
338          $_ = decode('iso-8859-2', $_);  #       $_ = decode('iso-8859-2', $_);
339    
340          s<([\x{0080}-\x{fffd}]+)>{sprintf '\u%0*v4X', '\u', $1}ge if ( Encode::is_utf8($_) );          s<([\x{0080}-\x{fffd}]+)>{sprintf '\u%0*v4X', '\u', $1}ge if ( Encode::is_utf8($_) );
341          {          {
Legend:
Removed from v.1106  
changed lines
  Added in v.1107
  ViewVC Help
Powered by ViewVC 1.1.26