Skip Menu |

This queue is for tickets about the PAR CPAN distribution.

Report information
The Basics
Id: 4106
Status: resolved
Priority: 0/
Queue: PAR

People
Owner: Nobody in particular
Requestors:
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 0.75
Fixed in: (no value)



Subject: problem with character encodings and Tk804.025
activeperl 5.8.0, simple program (attached), I do a `pp program.pl', run a.exe, and instead of seeing May, Exit, or "Select Random", all I see is a bunch of sqares (basically a char encoding problem). This all with Tk804.025_beta2, you may wish to forward to the Tk authors.
use Tk; my $mw = MainWindow->new(); my $var; my @list = qw(jan feb mar apr); my $opt = $mw->Optionmenu( -options => [@list], -command => sub { print "got: ", shift, "\n" }, -variable => \$var, )->pack; $opt->addOptions([may=>5],[jun=>6],[jul=>7],[aug=>8]); $mw->Label(-textvariable=>\$var, -relief=>'groove')->pack; $mw->Button(-text=>'Exit', -command=>sub{$mw->destroy})->pack; $mw->Button( -text => 'Select Random', -command => sub { #$opt->setOption( $list[int rand @list] ); $opt->setOption( int rand @list ); } )->pack; MainLoop;
Same setup, except it's PAR-0.76, and Tk-804.025_beta4 after doing `pp tkopt.pl' and attempting to invoke a.exe, I am faced with format error: bad signature: 0x1a81b600 at offset 2276655 in file IO::File=GLOB(0x12aa7a4) Archive::Zip::Archive::_readSignature ('Archive::Zip::Archive=HASH(0x9862b0)', 'IO::File=GLOB (0x12aa7a4)', 'IO::F ile=GLOB(0x12aa7a4)') called at C:/Perl/site/lib/Archive/Zip.pm line 953 Archive::Zip::Archive::readFromFileHandle ('Archive::Zip::Archive=HASH(0x9862b0)', 'IO::File=GLOB(0x12aa7a4)') ca lled at -e line 517 eval {...} called at -e line 159 __par_pl::BEGIN() called at -e line 660 eval {...} called at -e line 660 : at -e line 517.
[guest - Tue Oct 14 17:06:25 2003]: Show quoted text
> activeperl 5.8.0, > simple program (attached), > I do a `pp program.pl', run a.exe, > and instead of seeing May, Exit, or "Select Random", > all I see is a bunch of sqares (basically a char encoding problem).
Marked as FIXED on ActivePerl 809, PAR 0.81. Thanks for your report, and sorry for my belated reply. Cheers, /Autrijus/