wpt-dupdesc works.
[gpstools.git] / GPSTdebug.pm
blob45a0dafc96c72c18d68107d685fbed9b1406c643
1 package GPSTdebug;
3 #=======================================================================
4 # GPSTdebug.pm
5 # File ID: 65c74694-fafa-11dd-955a-000475e441b9
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 #=======================================================================
12 use strict;
13 use warnings;
15 BEGIN {
16 use Exporter ();
17 our (@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS);
19 @ISA = qw(Exporter);
20 @EXPORT = qw(&D);
21 %EXPORT_TAGS = ();
23 our @EXPORT_OK;
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()