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 {