Blame foomatic-bad-utf8.patch
|
Tim Waugh |
1195a8 |
--- foomatic-db-engine-3.0.2/lib/Foomatic/PPD.pm.bad-utf8 2002-10-11 02:16:34.000000000 +0100
|
|
Tim Waugh |
1195a8 |
+++ foomatic-db-engine-3.0.2/lib/Foomatic/PPD.pm 2004-11-23 19:32:26.000000000 +0000
|
|
Tim Waugh |
1195a8 |
@@ -300,11 +300,17 @@
|
|
Tim Waugh |
1195a8 |
sub xml_esc {
|
|
Tim Waugh |
1195a8 |
my ($in) = (@_);
|
|
Tim Waugh |
1195a8 |
|
|
Tim Waugh |
1195a8 |
- $in =~ s!&!&!g;
|
|
Tim Waugh |
1195a8 |
- $in =~ s!
|
|
Tim Waugh |
1195a8 |
- $in =~ s!>!>!g;
|
|
Tim Waugh |
1195a8 |
+ @chars = split(//,$in);
|
|
Tim Waugh |
1195a8 |
+ $ascii = "";
|
|
Tim Waugh |
1195a8 |
+ foreach (@chars) {
|
|
Tim Waugh |
1195a8 |
+ if (ord ($_) > 127) { $_="?"; }
|
|
Tim Waugh |
1195a8 |
+ $ascii .= $_;
|
|
Tim Waugh |
1195a8 |
+ }
|
|
Tim Waugh |
1195a8 |
+ $ascii =~ s!&!&!g;
|
|
Tim Waugh |
1195a8 |
+ $ascii =~ s!
|
|
Tim Waugh |
1195a8 |
+ $ascii =~ s!>!>!g;
|
|
Tim Waugh |
1195a8 |
|
|
Tim Waugh |
1195a8 |
- return $in;
|
|
Tim Waugh |
1195a8 |
+ return $ascii;
|
|
Tim Waugh |
1195a8 |
}
|
|
Tim Waugh |
1195a8 |
|
|
Tim Waugh |
1195a8 |
sub pdq_filter {
|