Add built local::lib

[catagits/Gitalist.git] / local-lib5 / lib / perl5 / XML / SAX / PurePerl / NoUnicodeExt.pm

diff --git a/local-lib5/lib/perl5/XML/SAX/PurePerl/NoUnicodeExt.pm b/local-lib5/lib/perl5/XML/SAX/PurePerl/NoUnicodeExt.pm
new file mode 100644 (file)
index 0000000..334e52b
--- /dev/null
+++ b/local-lib5/lib/perl5/XML/SAX/PurePerl/NoUnicodeExt.pm
@@ -0,0 +1,28 @@
+# $Id: NoUnicodeExt.pm,v 1.1 2002-01-30 17:35:21 matt Exp $
+
+package XML::SAX::PurePerl;
+use strict;
+
+sub chr_ref {
+    my $n = shift;
+    if ($n < 0x80) {
+        return chr ($n);
+    }
+    elsif ($n < 0x800) {
+        return pack ("CC", (($n >> 6) | 0xc0), (($n & 0x3f) | 0x80));
+    }
+    elsif ($n < 0x10000) {
+        return pack ("CCC", (($n >> 12) | 0xe0), ((($n >> 6) & 0x3f) | 0x80),
+                                    (($n & 0x3f) | 0x80));
+    }
+    elsif ($n < 0x110000)
+    {
+        return pack ("CCCC", (($n >> 18) | 0xf0), ((($n >> 12) & 0x3f) | 0x80),
+        ((($n >> 6) & 0x3f) | 0x80), (($n & 0x3f) | 0x80));
+    }
+    else {
+        return undef;
+    }
+}
+
+1;