GPSTdebug.pm

   1 package GPSTdebug;
   2
   3 #=======================================================================
   4 # $Id$
   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 ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
  18
  19     my $rcs_id = '$Id$';
  20     push(@main::version_array, $rcs_id);
  21     $VERSION = ($rcs_id =~ / (\d+) /, $1);
  22
  23     @ISA = qw(Exporter);
  24     @EXPORT = qw(&D);
  25     %EXPORT_TAGS = ();
  26 }
  27 our @EXPORT_OK;
  28
  29 sub D {
  30     # Print a debugging message {{{
  31     $main::Debug || return;
  32     my @call_info = caller;
  33     chomp(my $Txt = shift);
  34     my $File = $call_info[1];
  35     $File =~ s#\\#/#g;
  36     $File =~ s#^.*/(.*?)$#$1#;
  37     print(STDERR "$File:$call_info[2] $$ $Txt\n");
  38     return("");
  39     # }}}
  40 } # D()
  41
  42 1;