From f939cf3dd214320ad43c0f2f12b26897b3423077 Mon Sep 17 00:00:00 2001 From: "ian%hixie.ch" Date: Fri, 9 Nov 2001 16:50:47 +0000 Subject: [PATCH] Change default DEBUG level from 9 to 4, which is what it should be in production releases. Added comments explaining debug levels 6 (reserved for personal use) and 8. Added level 10 debug info to the DESTROY method (makes it easier to track down bugs during shutdown). --- webtools/PLIF/PLIF.pm | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/webtools/PLIF/PLIF.pm b/webtools/PLIF/PLIF.pm index fdb228bb5ca..1d148cb6c1a 100644 --- a/webtools/PLIF/PLIF.pm +++ b/webtools/PLIF/PLIF.pm @@ -30,7 +30,7 @@ package PLIF; use strict; # require strict adherence to perl standards use vars qw($AUTOLOAD); # it's a package global use Carp qw(cluck confess); # stack trace versions of warn and die -my $DEBUG = 9; # level of warnings and dumps to print to STDERR (none go to user) +my $DEBUG = 4; # level of warnings and dumps to print to STDERR (none go to user) my $USER = 1; # level of errors to report to user (all go to STDERR) my @FATAL = (); # a list of pointers to functions that want to report errors to the user my $LOCKED = 0; # set to '1' while we are calling the error reporting code @@ -48,11 +48,14 @@ my $LOCKED = 0; # set to '1' while we are calling the error reporting code # # Useful debugging information: # 5 = important events (e.g. application started) -# 6 = +# 6 = debugging remarks for the section currently under test # 7 = typical checkpoints (e.g. someone tried to do some output) -# 8 = +# 8 = frequently hit typical checkpoints # 9 = verbose debugging information # 10 = ridiculously verbose debugging spam +# +# No code in CVS should do anything at level 6, it is reserved for +# personal debugging. # Note. All of the methods described in this class except for the # propertyGet, propertySet and propertyExists methods are class @@ -300,4 +303,7 @@ sub disableErrorReporting { sub fatalError {} # stub -sub DESTROY {} # stub +sub DESTROY { + my $self = shift; + $self->dump(10, "Called destructor of object $self..."); +}