added debootstrap stuff

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

1 files changed, 28 insertions, 0 deletions

diff --git a/beagle/debian-rfs/usr/lib/perl/5.10.1/IO.pm b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO.pm
new file mode 100644
index 0000000..f28a812
--- /dev/null
+++ b/beagle/debian-rfs/usr/lib/perl/5.10.1/IO.pm
@@ -0,0 +1,28 @@
+#
+
+package IO;
+
+use XSLoader ();
+use Carp;
+use strict;
+use warnings;
+
+our $VERSION = "1.25";
+XSLoader::load 'IO', $VERSION;
+
+sub import {
+    shift;
+
+    warnings::warnif('deprecated', qq{Parameterless "use IO" deprecated})
+        if @_ == 0 ;
+    
+    my @l = @_ ? @_ : qw(Handle Seekable File Pipe Socket Dir);
+
+    eval join("", map { "require IO::" . (/(\w+)/)[0] . ";\n" } @l)
+	or croak $@;
+}
+
+1;
+
+__END__
+