[Dbix-class] perl 5.10.0 and Class::Accessor::Grouped

[Christopher H. Laco]

Just an update from my end. I started setting up a FBSD VM for 5.10
along side my 5.8 install. I cloned my existing 5.8 install, and
installed 5.10 into my home directory.

At some point, I was just testing this, slowly removing bits of the real
set_inherited code:

> =

> timethis(0, sub {
>    set_inherited('Foo', 'bar', 'baz);
> });
> =

> set_inherited {
>    my ($self, $set, $val) =3D @_;
> =

> };

Under 5.8, I got ~1,100,000/sec
Under 5.10, I got ~555,000/sec


That's nuts, and I'm going to assume that my 5.10 install is somehow not
'clean', or is cross pollinating with libs from my 5.8 install, because
there is no way in hell 5.10 shipped with that kind of issue.

Just for giggles, I doubled the performance of that bench on 5.10 by
doing this:

> =

> timethis(0, sub {
>    set_inherited('Foo', 'bar', 'baz);
> });
> =

> set_inherited {
>    my $self =3D shift;
>    my $set =3D shift;
>    my $val =3D shift;
> =

> };

Now, of course shift will always be faster, but something is afoot.
If this was also slower:

	my ($self, $set, $val) =3D (shift, shift, shift);

Which seems like some issue with list assignment. Tonight I'm starting a
fresh install of FBSD 6.2, cloning it, then install both perls where no
perl exists before it, and starting this all over.

-=3DChris


-------------- next part --------------
A non-text attachment was scrubbed...
Name: signature.asc
Type: application/pgp-signature
Size: 187 bytes
Desc: OpenPGP digital signature
Url : http://lists.scsys.co.uk/pipermail/dbix-class/attachments/20071221/4a=
1570a9/signature.pgp