diff options
author | mertz | 2003-09-15 16:17:06 +0000 |
---|---|---|
committer | mertz | 2003-09-15 16:17:06 +0000 |
commit | 8b34baa437e87479674b6ae723ea33b7423bb374 (patch) | |
tree | 49354bcfe24daf3ceef869ea65adc29795e49128 /Perl/Zinc/TraceErrors.pm | |
parent | 82bbdccfb51dbabc48ffde029058bd9aa68c24c8 (diff) | |
download | tkzinc-8b34baa437e87479674b6ae723ea33b7423bb374.zip tkzinc-8b34baa437e87479674b6ae723ea33b7423bb374.tar.gz tkzinc-8b34baa437e87479674b6ae723ea33b7423bb374.tar.bz2 tkzinc-8b34baa437e87479674b6ae723ea33b7423bb374.tar.xz |
perl modules ZincTrace ZincTraceErrors and ZincDebug have been renamed
Tk::Zinc::Trace Tk::Zinc::TraceErrors and Tk::Zinc::debug and moved
accordingly
Diffstat (limited to 'Perl/Zinc/TraceErrors.pm')
-rw-r--r-- | Perl/Zinc/TraceErrors.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/Perl/Zinc/TraceErrors.pm b/Perl/Zinc/TraceErrors.pm index 95d9e08..a56586c 100644 --- a/Perl/Zinc/TraceErrors.pm +++ b/Perl/Zinc/TraceErrors.pm @@ -18,14 +18,16 @@ # module name, the line number and the complete error messages are reported # for each error. # +# $Id$ +# # When you have no idea where this happens in your code or when your -# application segfaults, use the ZincTrace package which traces every +# application segfaults, use the Tk::Zinc::Trace package which traces every # Tk::Zinc method call. # # for using this file do some thing like : -# perl -MZincTraceErrors myappli.pl +# perl -MTk::Zinc::TraceErrors myappli.pl -package ZincTraceErrors; +package Tk::Zinc::TraceErrors; use vars qw( $VERSION ); ($VERSION) = sprintf("%d.%02d", q$Revision$ =~ /(\d+)\.(\d+)/); @@ -43,11 +45,11 @@ BEGIN { my $_bold = "[m"; if ($ZincTrace::on == 1) { - print STDERR $bold."ZincTraceErrors: incompatible package ZincTrace is already ". + print STDERR $bold."Tk::Zinc::TraceErrors: incompatible package Tk::Zinc::Trace is already ". "loaded".$_bold." (exit 1)\n"; exit 1; } - print $bold."ZincTraceErrors is ON".$_bold."\n"; + print $bold."Tk::Zinc::TraceErrors is ON".$_bold."\n"; $ZincTraceErrors::on = 1; select STDOUT; $|=1; ## for flushing the trace output # save current Tk::Zinc::InitObject function; it will be invoked in |