aboutsummaryrefslogtreecommitdiff
path: root/Perl
diff options
context:
space:
mode:
Diffstat (limited to 'Perl')
-rw-r--r--Perl/t/Bbox.t4
1 files changed, 2 insertions, 2 deletions
diff --git a/Perl/t/Bbox.t b/Perl/t/Bbox.t
index 5840fc3..4caa7c2 100644
--- a/Perl/t/Bbox.t
+++ b/Perl/t/Bbox.t
@@ -1,7 +1,7 @@
#!/usr/bin/perl -w
#
-# $Id: Bbox.t,v 1.7 2004-11-16 20:46:14 mertz Exp $
+# $Id: Bbox.t,v 1.8 2006-02-12 09:39:42 mertz Exp $
# Author: Christophe Mertz
#
@@ -134,7 +134,7 @@ is( $bbox, (),
"bbox of a track field which field is out of bound is undef");
my $wpt = $zinc->add('waypoint', 1, 0, -position => [561, 781]);
-#print "wpt bbox=(", join(',', $zinc->bbox($wpt)),")\n";
+print "wpt bbox=(", join(',', $zinc->bbox($wpt)),")\n";
ok(&similarFlatArray ([ $zinc->bbox($wpt) ],
[ 561,781, 561,781],
[4,4, 4,4],