diff options
| -rw-r--r-- | Perl/t/zinc.t | 2 |
1 files changed, 1 insertions, 1 deletions
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: ", |