From 5238ad5a0c4a9e1c8cd036f5de4055e39bd71297 Mon Sep 17 00:00:00 2001
From: Manuel Traut <manut@mecka.net>
Date: Fri, 29 Apr 2011 09:09:27 +0200
Subject: added debootstrap stuff

Signed-off-by: Manuel Traut <manut@mecka.net>
---
 beagle/debian-rfs/usr/share/perl/5.10.1/utf8.pm | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 beagle/debian-rfs/usr/share/perl/5.10.1/utf8.pm

(limited to 'beagle/debian-rfs/usr/share/perl/5.10.1/utf8.pm')

diff --git a/beagle/debian-rfs/usr/share/perl/5.10.1/utf8.pm b/beagle/debian-rfs/usr/share/perl/5.10.1/utf8.pm
new file mode 100644
index 0000000..24d2227
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl/5.10.1/utf8.pm
@@ -0,0 +1,25 @@
+package utf8;
+
+$utf8::hint_bits = 0x00800000;
+
+our $VERSION = '1.07';
+
+sub import {
+    $^H |= $utf8::hint_bits;
+    $enc{caller()} = $_[1] if $_[1];
+}
+
+sub unimport {
+    $^H &= ~$utf8::hint_bits;
+}
+
+sub AUTOLOAD {
+    require "utf8_heavy.pl";
+    goto &$AUTOLOAD if defined &$AUTOLOAD;
+    require Carp;
+    Carp::croak("Undefined subroutine $AUTOLOAD called");
+}
+
+1;
+__END__
+
-- 
cgit v1.2.3