mirror of
https://github.com/smarty-php/smarty.git
synced 2025-11-01 04:41:37 +01:00
9 lines
126 B
Perl
9 lines
126 B
Perl
|
#!/bin/perl -- # -*- Perl -*-
|
||
|
|
|
||
|
|
# Charset hacking...
|
||
|
|
|
||
|
|
while (<>) {
|
||
|
|
s/\&\#(\d+);/sprintf("\\U-%04X;", $1)/egs;
|
||
|
|
print;
|
||
|
|
}
|