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, 0 insertions, 44 deletions
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Log.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Log.pm deleted file mode 100644 index 869a65d..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Log.pm +++ /dev/null @@ -1,44 +0,0 @@ -#!/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 |