2 # The system variables - those indicated will need to be changed to suit your
3 # circumstances (and callsign)
5 # Copyright (c) 1998 - Dirk Koopman G1TLH
14 @EXPORT = qw(dbginit dbg dbgadd dbgsub dbglist isdbg dbgclose);
15 @EXPORT_OK = qw(dbginit dbg dbgadd dbgsub dbglist isdbg dbgclose);
18 use vars qw(%dbglevel $fp);
26 $fp = DXLog::new('debug', 'dat', 'd');
32 $fp->writeunix($t, "$t^$_");
39 # add sig{__DIE__} handling
40 if (!defined $DB::VERSION) {
41 $SIG{__WARN__} = $SIG{__DIE__} = \&_store;
47 $SIG{__DIE__} = $SIG{__WARN__} = 'DEFAULT';
60 print "$_\n" if defined \*STDOUT;
61 $fp->writeunix($t, "$t^$_");
71 $dbglevel{$entry} = 1;
80 delete $dbglevel{$entry};
86 return keys (%dbglevel);