Skip Menu |

This queue is for tickets about the Tk CPAN distribution.

Report information
The Basics
Id: 11615
Status: resolved
Priority: 0/
Queue: Tk
People
Owner: Nobody in particular
Requestors: Anton.Mayr [...] siemens.com
Cc:
AdminCc:
Bug Information
Severity: Normal
Broken in: 804.027
Fixed in: (no value)

History Show all quoted text
  Tue Feb 22 02:17:42 2005 Guest - Ticket created
Subject: Problems with Tk in taint-Mode
When running this short script with Tk804.027 #!/usr/bin/perl -T use Tk; use Tk::ProgressBar; my $percent_done; my $mainwindow = MainWindow->new; $mainwindow->ProgressBar(-variable => \$percent_done)->pack(); Tk::MainLoop(); the following errors occur: Tk::Error: Can't set -variable to `SCALAR(0x81679f8)' for Tk::ProgressBar=HASH(0x8486180): Bizarre copy of ARRAY in leave at /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread-multi/Tk/Trace.pm line 89. at /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread-multi/Tk/Derived.pm line 294 Tk callback for . Tk callback for .progressbar Tk::Derived::configure at /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread-multi/Tk/Derived.pm line 306 Tk::Widget::new at /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread-multi/Tk/Widget.pm line 205 Tk::Widget::__ANON__ at /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread-multi/Tk/Widget.pm line 256 Can't set -variable to `SCALAR(0x81679f8)' for Tk::ProgressBar=HASH(0x8486180): Bizarre copy of ARRAY in leave at /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread-multi/Tk/Trace.pm line 89. at /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread-multi/Tk/Derived.pm line 294 at /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread-multi/Tk/Derived.pm line 306 XS_Tk__Callback_Call error:Bizarre copy of ARRAY in leave at /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread-multi/Tk/Trace.pm line 89. This error messages are from a SuSE Linux 9.1 installation but they are not dependant on the OS-Release or on the perl version. I've tested it unter perl 5.8.3, 5.8.5 and 5.8.6 on different platforms (Solaris, HP-UX and Linux) with the same results. The script runs well under Tk800.025 or without the "-T" switch. I agree with the statements in "Programming Perl": Running scripts unter the -T flag isn't just a good idea: it's the law! perl -v says: This is perl, v5.8.3 built for i586-linux-thread-multi uname -a says: Linux gandalf 2.6.5-7.108-default #1 Wed Aug 25 13:34:40 UTC 2004 i686 i686 i386 GNU/Linux
  Mon Oct 30 17:14:14 2006 SREZIC [...] cpan.org - Correspondence added
On Tue Feb 22 02:17:42 2005, guest wrote: Show quoted text
> When running this short script with Tk804.027 > > #!/usr/bin/perl -T > use Tk; > use Tk::ProgressBar; > my $percent_done; > my $mainwindow = MainWindow->new; > $mainwindow->ProgressBar(-variable => \$percent_done)->pack(); > Tk::MainLoop(); > > the following errors occur: > Tk::Error: Can't set -variable to `SCALAR(0x81679f8)' for > Tk::ProgressBar=HASH(0x8486180): Bizarre copy of ARRAY in leave at > /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread-multi/Tk/Trace.pm > line 89. > at /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread- > multi/Tk/Derived.pm line 294 > Tk callback for . > Tk callback for .progressbar > Tk::Derived::configure at /usr/lib/perl5/site_perl/5.8.3/i586-linux- > thread-multi/Tk/Derived.pm line 306 > Tk::Widget::new at /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread- > multi/Tk/Widget.pm line 205 > Tk::Widget::__ANON__ at /usr/lib/perl5/site_perl/5.8.3/i586-linux- > thread-multi/Tk/Widget.pm line 256 > Can't set -variable to `SCALAR(0x81679f8)' for > Tk::ProgressBar=HASH(0x8486180): Bizarre copy of ARRAY in leave at > /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread-multi/Tk/Trace.pm > line 89. > at /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread- > multi/Tk/Derived.pm line 294 > > at /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread- > multi/Tk/Derived.pm line 306 > XS_Tk__Callback_Call error:Bizarre copy of ARRAY in leave at > /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread-multi/Tk/Trace.pm > line 89. > > This error messages are from a SuSE Linux 9.1 installation but they > are not dependant on the OS-Release or on the perl version. I've > tested it unter perl 5.8.3, 5.8.5 and 5.8.6 on different platforms > (Solaris, HP-UX and Linux) with the same results. > The script runs well under Tk800.025 or without the "-T" switch. I > agree with the statements in "Programming Perl": Running scripts > unter the -T flag isn't just a good idea: it's the law! > > perl -v says: This is perl, v5.8.3 built for i586-linux-thread-multi > uname -a says: Linux gandalf 2.6.5-7.108-default #1 Wed Aug 25 > 13:34:40 UTC 2004 i686 i686 i386 GNU/Linux
My guess is that using Tk::Trace (traceVariable etc.) in Tk::ProgressBar caused this problem (see also another bug in RT about a memory leak in Tk::ProgressBar). Regards, Slaven
  Mon Oct 30 17:14:15 2006 The RT System itself - Status changed from 'new' to 'open'
  Wed Feb 03 15:10:06 2010 SREZIC [...] cpan.org - Correspondence added
On Mon Oct 30 17:14:14 2006, SREZIC wrote: Show quoted text
> On Tue Feb 22 02:17:42 2005, guest wrote:
> > When running this short script with Tk804.027 > > > > #!/usr/bin/perl -T > > use Tk; > > use Tk::ProgressBar; > > my $percent_done; > > my $mainwindow = MainWindow->new; > > $mainwindow->ProgressBar(-variable => \$percent_done)->pack(); > > Tk::MainLoop(); > > > > the following errors occur: > > Tk::Error: Can't set -variable to `SCALAR(0x81679f8)' for > > Tk::ProgressBar=HASH(0x8486180): Bizarre copy of ARRAY in leave at > > /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread-multi/Tk/Trace.pm > > line 89. > > at /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread- > > multi/Tk/Derived.pm line 294 > > Tk callback for . > > Tk callback for .progressbar > > Tk::Derived::configure at /usr/lib/perl5/site_perl/5.8.3/i586-linux- > > thread-multi/Tk/Derived.pm line 306 > > Tk::Widget::new at /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread- > > multi/Tk/Widget.pm line 205 > > Tk::Widget::__ANON__ at /usr/lib/perl5/site_perl/5.8.3/i586-linux- > > thread-multi/Tk/Widget.pm line 256 > > Can't set -variable to `SCALAR(0x81679f8)' for > > Tk::ProgressBar=HASH(0x8486180): Bizarre copy of ARRAY in leave at > > /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread-multi/Tk/Trace.pm > > line 89. > > at /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread- > > multi/Tk/Derived.pm line 294 > > > > at /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread- > > multi/Tk/Derived.pm line 306 > > XS_Tk__Callback_Call error:Bizarre copy of ARRAY in leave at > > /usr/lib/perl5/site_perl/5.8.3/i586-linux-thread-multi/Tk/Trace.pm > > line 89. > > > > This error messages are from a SuSE Linux 9.1 installation but they > > are not dependant on the OS-Release or on the perl version. I've > > tested it unter perl 5.8.3, 5.8.5 and 5.8.6 on different platforms > > (Solaris, HP-UX and Linux) with the same results. > > The script runs well under Tk800.025 or without the "-T" switch. I > > agree with the statements in "Programming Perl": Running scripts > > unter the -T flag isn't just a good idea: it's the law! > > > > perl -v says: This is perl, v5.8.3 built for i586-linux-thread-multi > > uname -a says: Linux gandalf 2.6.5-7.108-default #1 Wed Aug 25 > > 13:34:40 UTC 2004 i686 i686 i386 GNU/Linux
> > My guess is that using Tk::Trace (traceVariable etc.) in Tk::ProgressBar > caused this problem (see also another bug in RT about a memory leak in > Tk::ProgressBar). >
I can reproduce the problem with 804.027, but not anymore with 804.028 and later, so I assume the problem is already fixed. Regards, Slaven
  Wed Feb 03 15:10:10 2010 SREZIC [...] cpan.org - Status changed from 'open' to 'resolved'