diff options
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Log.pm')
| -rw-r--r-- | beagle/debian-rfs/usr/share/perl5/Debconf/Log.pm | 44 |
1 files changed, 44 insertions, 0 deletions
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 |