Change of constant/%:: behavior between 5.8.8 and 5.10.0

mixin.pm seems to tickle a change between the value of a constant subroutine
on the symbol table.

With constant.pm 1.13 & 1.15
perl5.10.0 -wle 'use constant FOO => "bar";  print $main::{FOO}'
SCALAR(0x181dce0)

With constant.pm 1.15
perl5.8.8 -wle 'use constant FOO => "bar";  print $main::{FOO}'
*main::FOO

This changes breaks the following code in mixin.pm.

    local *glob;
    while( my($sym, $glob) = each %{$mixin.'::'}) {
        next if $sym =~ /^_/;
        next unless defined $glob;
        *glob = $glob;   # XXX AT THIS LINE
        *{$pkg.'::'.$sym} = *glob{CODE} if *glob{CODE};
    }

I don't know if it's a bug or not, but it's kind of weird to find a scalar ref
on the symbol table.


-- 
91. I am not authorized to initiate Jihad.
    -- The 213 Things Skippy Is No Longer Allowed To Do In The U.S. Army
           http://skippyslist.com/list/

• Change of constant/%:: behavior between 5.8.8 and 5.10.0 by Michael G Schwern
• Re: Change of constant/%:: behavior between 5.8.8 and 5.10.0 by Sébastien Aperghis-Tramoni
• Re: Change of constant/%:: behavior between 5.8.8 and 5.10.0 by Michael G Schwern