summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Encode/compat/5006001.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Encode/compat/5006001.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Encode/compat/5006001.pm32
1 files changed, 32 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/Encode/compat/5006001.pm b/Master/tlpkg/tlperl/lib/Encode/compat/5006001.pm
new file mode 100644
index 00000000000..cbe2d50180e
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/Encode/compat/5006001.pm
@@ -0,0 +1,32 @@
+# $File: //member/autrijus/Encode-compat/lib/Encode/compat/5006001.pm $ $Author: autrijus $
+# $Revision: #3 $ $Change: 2534 $ $DateTime: 2002/12/02 00:33:16 $
+
+package Encode::compat::5006001;
+our $VERSION = '0.05';
+
+1;
+
+package Encode;
+
+use strict;
+use base 'Exporter';
+no warnings 'redefine';
+
+sub _utf8_on {
+ $_[0] = pack('U*', unpack('U0U*', $_[0]))
+}
+
+sub _utf8_off {
+ $_[0] = pack('C*', unpack('C*', $_[0]))
+}
+
+sub is_utf8 {
+ # XXX: got any better ideas?
+ use utf8;
+ foreach my $char (split(//, $_[0])) {
+ return 1 if ord($char) > 255;
+ }
+ return 0;
+}
+
+1;