From b10bd5713919b5763d32a831e0f864a812384c40 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 4 Jun 1999 13:09:22 +0000
Subject: Correction suite au changement de class en type.

---
 Perl/t/zinc.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Perl/t')

diff --git a/Perl/t/zinc.t b/Perl/t/zinc.t
index 41c3637..bbd3a8b 100644
--- a/Perl/t/zinc.t
+++ b/Perl/t/zinc.t
@@ -185,7 +185,7 @@ print "mapinfo get line 3: ", join('|',$mw->mapinfo(mpessai, get, line, 0)),"\n"
 ###################################################
 
 for ($radar->find('all')) {
-    print $_, " -> ", $radar->class($_),"\n";
+    print $_, " -> ", $radar->type($_),"\n";
 }
 $radar->Tk::bind("<2>", [sub {
     print $_[1], "@" ,$_[2], ", closest: ",
-- 
cgit v1.1