branches/gpst.near/GPSTdebug.pm

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