Mail Archives: cygwin/2011/12/31/12:35:30
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
- Raw text -