GPSTdebug.pm

   1 package GPSTdebug;
   2
   3 #=======================================================================
   4 # GPSTdebug.pm
   5 # File ID: 65c74694-fafa-11dd-955a-000475e441b9
   6 #
   7 # Character set: UTF-8
   8 # ©opyleft 2002– Øyvind A. Holm <sunny@sunbase.org>
   9 # License: GNU General Public License, see end of file for legal stuff.
  10 #=======================================================================
  11
  12 use strict;
  13 use warnings;
  14
  15 BEGIN {
  16     use Exporter ();
  17     our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
  18
  19     @ISA = qw(Exporter);
  20     @EXPORT = qw(&D);
  21     %EXPORT_TAGS = ();
  22 }
  23 our @EXPORT_OK;
  24
  25 sub D {
  26     # Print a debugging message {{{
  27     $main::Debug || return;
  28     my @call_info = caller;
  29     chomp(my $Txt = shift);
  30     my $File = $call_info[1];
  31     $File =~ s#\\#/#g;
  32     $File =~ s#^.*/(.*?)$#$1#;
  33     print(STDERR "$File:$call_info[2] $$ $Txt\n");
  34     return("");
  35     # }}}
  36 } # D()
  37
  38 1;