added debootstrap stuff

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

1 files changed, 20 insertions, 0 deletions

diff --git a/beagle/debian-rfs/usr/share/perl5/Debian/DebConf/Client/ConfModule.pm b/beagle/debian-rfs/usr/share/perl5/Debian/DebConf/Client/ConfModule.pm
new file mode 100644
index 0000000..1516e40
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debian/DebConf/Client/ConfModule.pm
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+# This is a stub module that just uses the new module, and is here for
+# backwards-compatability with pograms that use the old name.
+package Debian::DebConf::Client::ConfModule;
+use Debconf::Client::ConfModule;
+use Debconf::Log qw{debug};
+print STDERR "Debian::DebConf::Client::ConfModule is deprecated, please use Debconf::Client::ConfModule instead.\n";
+
+sub import {
+	splice @_, 0, 1 => Debconf::Client::ConfModule;
+	goto &{Debconf::Client::ConfModule->can('import')};
+}
+
+sub AUTOLOAD {
+	(my $sub = $AUTOLOAD) =~ s/.*:://;
+	*$sub = \&{"Debconf::Client::ConfModule::$sub"};
+	goto &$sub;
+}
+
+1