| Subject: | Use of uninitialized value $turtlename |
Hi!
When running the example code from the manpage, I get the following warnings:
[quote]
Use of uninitialized value $turtlename in concatenation (.) or string at c:/Perl/site/lib/Tk/CanvasLogo/Turtle.pm line 25.
Use of uninitialized value $turtlename in concatenation (.) or string at c:/Perl/site/lib/Tk/CanvasLogo/Turtle.pm line 26.
Use of uninitialized value $turtlename in concatenation (.) or string at c:/Perl/site/lib/Tk/CanvasLogo/Turtle.pm line 27.
[/quote]
Here is the code:
[code]
#!perl
use strict;
use warnings;
use Tk;
use Tk::CanvasLogo;
my $mw = MainWindow->new();
my $logo = $mw->CanvasLogo->pack;
my $turtle = $logo->NewTurtle;
$turtle->LOGO_FD(50); # forward 50
$mw->MainLoop();
[/code]
Best regards,
Alex