diff options
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 |