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/perl5/Debconf/Log.pm | 44 ++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Log.pm

(limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Log.pm')

diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Log.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Log.pm
new file mode 100644
index 0000000..869a65d
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Log.pm
@@ -0,0 +1,44 @@
+#!/usr/bin/perl
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Log;
+use strict;
+use base qw(Exporter);
+our @EXPORT_OK=qw(debug warn);
+our %EXPORT_TAGS = (all => [@EXPORT_OK]); # Import :all to get everything.
+require Debconf::Config; # not use; there are recursive use loops
+
+
+my $log_open=0;
+sub debug {
+	my $type=shift;
+	
+	my $debug=Debconf::Config->debug;
+	if ($debug && $type =~ /$debug/) {
+		print STDERR "debconf ($type): ".join(" ", @_)."\n";
+	}
+	
+	my $log=Debconf::Config->log;
+	if ($log && $type =~ /$log/) {
+		require Sys::Syslog;
+		unless ($log_open) {
+			Sys::Syslog::setlogsock('unix');
+			Sys::Syslog::openlog('debconf', '', 'user');
+			$log_open=1;
+		}
+		eval { # ignore all exceptions this throws
+			Sys::Syslog::syslog('debug', "($type): ".
+				join(" ", @_));
+		};
+	}
+}
+
+
+sub warn {
+	print STDERR "debconf: ".join(" ", @_)."\n"
+		unless Debconf::Config->nowarnings eq 'yes';
+}
+
+
+1
-- 
cgit v1.2.3