This is the mail archive of the cygwin mailing list for the Cygwin project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: perl-Tk is broken


Has Reini Urban <rurban <at> x-ray.at> writes:

> 
> 2009/7/24 Wolfgang Goetz:
> > Reini Urban wrote:
> >> 2009/7/23 Wolfgang Goetz:
> >>> Reini Urban wrote:
> >>>> 2009/7/16 Wolfgang Goetz:
> >>>>> cygwin.c:173: error: redefinition of 'wlen'
> >>>> Please try the official cygwin/cygwin.c from
> >>>> 
http://github.com/rurban/perl/raw/49c38585884a547ae094a6be3f8a37db3018e48d/cygw
in/cygwin.c
> >>> 1) copying this file right behind the 'rsync' of perl-current.
> >>> patch applies,
> >>> build fails.
> >>>
> >>> the 'tar cfz' of perl-current is named perl-5.10.0.tar.gz
> >>> PANIC! perl-current-`date +..`.tgz may be ok
> >>> why not using the stable tgz from cpan?
> >>> current will not achieve a consistent build over time.
> >>
> >> Because 5.10.0 stable is not stable as agreed by everyone on p5p.
> >
> > full ack.
> >
> >> I added some patches which came in over time, so it's really more a perl-
5.10.05
> >> Similar to the ActiveState 5.10 release
> >
> > but according to your build script you are using *perl-current* via
> > rsync as the base to be patched. Every time you call the build there is
> > a different version!
> 
> Hmm, I'll check my build scripts again for the new update, 1.7 only.
> I use this new build system to test all the older and newer releases also,
> the cygwin release version is only picked up on ./build all
> 
> > using a 'stable'/'released' tarball and applying patches
> > is the golden way.Â
> 
> perl is different. 5.8.8 is too old, 5.8.9 is better, but our 5.10.x and
> dave's 5.10-1 rc is best so far.
> Only Dave and blead is still missing the important
> "Bug#55162 File::Spec::case_tolerant performance" patch
> I think I have some insight on p5p.
> 
> > example: gentoo is on a year 2006 version:
> > (normally the gentoo's are bleading edge. here: not)
> 
> >>> http://matrix.cpantesters.org/?dist=Tk+804.028_501
> >>> ohjeh.. perl 5.8.8 is yellow for cygwin.
> >>> there seems to be no interest at all for the moment.
> >>
> >> I had some spare time some time ago to fix most of the issues, it 
compiles now ,
> >> just the event loop still needs to be reconfigured.
> >
> > is /usr/bin/widget working for you? Âall examples?
> > the funny thing in my (better: my companies) environment:
> > 'widget' solely throws errors. under debugger control all is fine.
> > This smells like optimization/parameter flaws for me.
> > (mainly the -O3, maybe more)
> 
> No,
> It's just the wrong eventloop configuration.
> A simple fix, but it needs at least a day to dig through it again and test 
it.
> I mailed Slaven to do that, but he also had no time yet.

=====================================================
Has this been fixed?  I am seeing the same warning ...

cget() does not seem to work properly, and I am wondering
if it is connected ...

the following code works correctly using -d but fails
without running the debugger (only an issue under cygwin):


$ ./test5.pl
hix
Use of uninitialized value $id in hash element 
at /usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/After.pm line 40.
hi0
hi1
hi2
hi3
Use of uninitialized value $txt in concatenation (.) or string at ./test5.pl 
line 31.
txt=

$ ./test5.pl

Loading DB routines from perl5db.pl version 1.32
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

main::(./test5.pl:9):   (my $script = $0) =~ s/^.*\/([^\/]+)$/$1/;
  DB<1> r
hix
hi0
hi1
hi2
hi3
txt=raised
Debugged program terminated.  Use q to quit or R to restart,
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.  
  DB<1> q

========================================================

#!/usr/bin/perl -w -d
use Tk;
#use warnings;
#use strict;

(my $script = $0) =~ s/^.*\/([^\/]+)$/$1/;

print "hix\n";
my $mw = MainWindow->new();
print "hi0\n";
$mw->title($script);
print "hi1\n";

my $canvas = $mw->Canvas(
    -scrollregion => [ 400, 400, 400, 400 ],
    -relief       => 'sunken',

    -confine=>0,
    );

print "hi2\n";
$canvas->pack(-expand => 'yes', -fill => 'both');
print "hi3\n";
$canvas->configure(-relief=>"raised");
my $txt = $canvas->cget("-relief");
print "txt=$txt\n";







--
Problem reports:       http://cygwin.com/problems.html
FAQ:                   http://cygwin.com/faq/
Documentation:         http://cygwin.com/docs.html
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]