added debootstrap stuff

Signed-off-by: Manuel Traut <manut@mecka.net>

1 files changed, 25 insertions, 0 deletions

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__
+