I suspect the following issue is a symptom of a wider problem:
#! perl -w
use strict;
use Tk;
use Tk::LabFrame;
my $MW = MainWindow->new ( -title => q(Bug with Tk::LabFrame) );
$MW->geometry('1020x680');
my $f1 = $MW->LabFrame (
-label => 'X',
-labelside => 'acrosstop' ) -> pack ( -fill => 'x' );
my $f2 = $MW->LabFrame (
-label => 'YYYY YYYY YYYY YYYY YYYY YYYY YYYY YYYY YYYY YYYY YYYY
YYYY YYYY YYYY YYYY YYYY',
-labelside => 'acrosstop' ) -> pack ( -fill => 'x' );
MainLoop();
If the following is run in debug mode, several messages such
'Malformed UTF-8 character (unexpected non-continuation byte 0x00,
immediately after start byte 0xc7)
in substitution iterator at
/usr/local/ActivePerl-5.8/lib/5.8.6/Carp/Heavy.pm line 61'
are generated in the second LabFrame constructor. No symptoms occur
unless debug mode is used.
In more complex cases, a tight loop is sometimes seen. I do not think
the issue is locale related
as I have tried various combinations of no/use locale and LANG/LC_ALL
etc. with no effect on
the symptoms.
Anyone have a fix?
Tim Bolshaw.
--
Tim Bolshaw
[EMAIL PROTECTED]
_______________________________________________
ActivePerl mailing list
[email protected]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
