Re: [perl-win32-gui-users] win32-gui and perl 5.10
Jeremy White schrieb:
Activestate are still missing key support items for 5.10 so it's probably to early for a
formal build of Win32::GUI that supports 5.10. You should find it easy
enough to build
your own version of Win32::GUI.
What's your experience of 5.10? Do you find it faster? Does it use less memory
etc.?
I've just played around a bit and have not tested it yet,
nor used it in production.
From the look and feel nothing changed.
Class::DBIx found a bad perfomance problem with my ($a,$b) = @_;
assignment at the top of a sub. I couldn't apply the patch to the
release version 5.10.0 yet. I only applies to blead.
--
Reini Urban
http://phpwiki.org/ http://murbreak.at/
http://helsinki.at/ http://spacemovie.mur.at/
Change 28488 by [EMAIL PROTECTED] on 2006/07/05 20:00:10
Fix a bug on setting OPpASSIGN_COMMON on a AASSIGN op when the left
side is made out a list declared with our(). In this case OPpLVAL_INTRO
isn't set on the left op, so we just remove that check. Add new tests.
Affected files ...
... //depot/perl/op.c#830 edit
... //depot/perl/t/op/array.t#27 edit
Differences ...
//depot/perl/op.c#830 (text)
@@ -3783,7 +3783,6 @@
* to store these values, evil chicanery is done with SvCUR().
*/
- if (!(left-op_private OPpLVAL_INTRO)) {
OP *lastop = o;
PL_generation++;
for (curop = LINKLIST(o); curop != o; curop = LINKLIST(curop)) {
@@ -3837,7 +3836,6 @@
}
if (curop != o)
o-op_private |= OPpASSIGN_COMMON;
- }
if (right right-op_type == OP_SPLIT) {
OP* tmpop = ((LISTOP*)right)-op_first;
if (tmpop (tmpop-op_type == OP_PUSHRE)) {
//depot/perl/t/op/array.t#27 (xtext)
@@ -7,7 +7,7 @@
require 'test.pl';
-plan (117);
+plan (125);
#
# @foo, @bar, and @ary are also used from tie-stdarray after tie-ing them
@@ -176,7 +176,6 @@
# try the same with my
{
-
my @bee = @bee;
is(@bee, foo bar burbl blah);# 54
{
@@ -202,6 +201,29 @@
is(@bee, foo bar burbl blah);# 63
}
+# try the same with our (except that previous values aren't restored)
+{
+our @bee = @bee;
+is(@bee, foo bar burbl blah);
+{
+ our (undef,@bee) = @bee;
+ is(@bee, bar burbl blah);
+ {
+ our @bee = ('XXX',@bee,'YYY');
+ is(@bee, XXX bar burbl blah YYY);
+ {
+ our @bee = our @bee = qw(foo bar burbl blah);
+ is(@bee, foo bar burbl blah);
+ {
+ our (@bim) = our(@bee) = qw(foo bar);
+ is(@bee, foo bar);
+ is(@bim, foo bar);
+ }
+ }
+ }
+}
+}
+
# make sure reification behaves
my $t = curr_test();
sub reify { $_[1] = $t++; print @_\n; }
@@ -384,4 +406,18 @@
is ($4[8], 23);
}
+# more tests for AASSIGN_COMMON
+
+{
+our($x,$y,$z) = (1..3);
+our($y,$z) = ($x,$y);
+is($x $y $z, 1 1 2);
+}
+{
+our($x,$y,$z) = (1..3);
+(our $y, our $z) = ($x,$y);
+is($x $y $z, 1 1 2);
+}
+
+
We're included by lib/Tie/Array/std.t so we need to return something true;
-
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse012070mrt/direct/01/___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/
Re: [perl-win32-gui-users] win32-gui and perl 5.10
2008/1/5, Reini Urban [EMAIL PROTECTED]: Jeremy White schrieb: Activestate are still missing key support items for 5.10 so it's probably to early for a formal build of Win32::GUI that supports 5.10. You should find it easy enough to build your own version of Win32::GUI. What's your experience of 5.10? Do you find it faster? Does it use less memory etc.? I've just played around a bit and have not tested it yet, nor used it in production. From the look and feel nothing changed. Class::DBIx found a bad perfomance problem with my ($a,$b) = @_; assignment at the top of a sub. I couldn't apply the patch to the release version 5.10.0 yet. I only applies to blead. Just in case. That's the url from the p5p discussion: http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2007-12/msg00700.html - This SF.net email is sponsored by: Microsoft Defy all challenges. Microsoft(R) Visual Studio 2005. http://clk.atdmt.com/MRT/go/vse012070mrt/direct/01/ ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users http://perl-win32-gui.sourceforge.net/
Re: [perl-win32-gui-users] win32-gui and perl 5.10
Activestate are still missing key support items for 5.10 so it's probably to early for a formal build of Win32::GUI that supports 5.10. You should find it easy enough to build your own version of Win32::GUI. What's your experience of 5.10? Do you find it faster? Does it use less memory etc.? Cheers, jez. _ Who's friends with who and co-starred in what? http://www.searchgamesbox.com/celebrityseparation.shtml - This SF.net email is sponsored by: Microsoft Defy all challenges. Microsoft(R) Visual Studio 2005. http://clk.atdmt.com/MRT/go/vse012070mrt/direct/01/ ___ Perl-Win32-GUI-Users mailing list Perl-Win32-GUI-Users@lists.sourceforge.net https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users http://perl-win32-gui.sourceforge.net/
Re: [perl-win32-gui-users] win32-gui and perl 5.10
merryxmas schrieb:
hello
are there any plans to update win32-gui to support the new perl 5.10
The cygwin package is already updated. Under [Experimental] so far as
perl also, until all remaining perl libraries have been updated.
Just a few required patches:
--- perl-Win32-GUI-1.05/GUI.pm.orig 2006-11-05 20:04:50.0 +
+++ perl-Win32-GUI-1.05/GUI.pm 2007-12-25 14:35:13.546875000 +
@@ -421,9 +421,9 @@
my $direction = delete $options{-direction};
if(keys(%options) != 0) {
- require Carp;
- Carp::carp Animate: Unrecognised options .join(, ,
keys(%options));
- return undef
+ eval { use Carp; };
+ carp(Animate: Unrecognised options .join(, , keys(%options)));
+ return undef;
}
$show = 1 unless defined $show;
--- perl-Win32-GUI-1.05/Makefile.PL.orig2006-11-02 20:36:58.0
+
+++ perl-Win32-GUI-1.05/Makefile.PL 2007-12-26 17:01:29.03125 +
@@ -353,6 +353,7 @@
# -- Win32::GUI resource section --
GUI.res: GUI.rc
+ chmod u+w GUI.rc
windres -O coff -i GUI.rc -o GUI.res
RC_FRAG2
--- perl-Win32-GUI-1.05/Win32-GUI-Constants/Constants.pm.orig 2006-10-31
22:21:50.0 +
+++ perl-Win32-GUI-1.05/Win32-GUI-Constants/Constants.pm2007-12-25
14:44:45.859375000 +
@@ -270,8 +270,8 @@
if($oops) {
# only require Carp if we need it
-require Carp;
-Carp::croak qq(Can't continue after import errors);
+eval { use Carp; };
+croak qq(Can't continue after import errors);
}
}
--
Reini Urban
http://phpwiki.org/ http://murbreak.at/
http://helsinki.at/ http://spacemovie.mur.at/
-
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse012070mrt/direct/01/
___
Perl-Win32-GUI-Users mailing list
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/
