Skip Menu |

This queue is for tickets about the Tk CPAN distribution.

Report information
The Basics
Id: 6132
Status: resolved
Worked: 5 min
Priority: 0/
Queue: Tk

People
Owner: Nobody in particular
Requestors: slaven [...] rezic.de
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: (no value)



Subject: Warning fix in Tk::ProgressBar
The following script produces a warning: #!/usr/bin/perl -w use Tk; use Tk::ProgressBar; tkinit->ProgressBar(); __END__ A fix would be: --- Tk-804.027/Tk/ProgressBar.pm Thu Dec 11 21:21:35 2003 +++ Tk-804.027-perl5.8.3d/Tk/ProgressBar.pm Fri Apr 23 22:36:03 2004 @@ -317,7 +317,7 @@ sub Destroyed { my $c = shift; my $var = delete $c->{'-variable'}; - $c->traceVdelete($var); + $c->traceVdelete($var) if $var; } 1;