| 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;