although thats what I thought at first too, run the code I provided.
Did run it, but didn't notice the scalar ref matching correctly.
Using Devel::Peek, you can clearly see there is something MAGICal going on, maybe it helps...
2;1 juerd@ouranos:~$ cat dm
use Devel::Peek;
print Dump bless qr/foo/, 'foo';
print Dump bless \my $foo, 'foo';
2;0 juerd@ouranos:~$ perl dm
SV = RV(0x810b404) at 0x80f60ac
REFCNT = 1
FLAGS = (TEMP,ROK)
RV = 0x80f61a8
SV = PVMG(0x8101b30) at 0x80f61a8
REFCNT = 1
FLAGS = (OBJECT,RMG)
IV = 0
NV = 0
PV = 0
MAGIC = 0x80fffe0
MG_VIRTUAL = 0x80f4f74
MG_TYPE = 'r'
MG_OBJ = 0x8100160
STASH = 0x80fd414 "foo"
SV = RV(0x810b404) at 0x80f60ac
REFCNT = 1
FLAGS = (TEMP,ROK)
RV = 0x80fd450
SV = PVMG(0x8101b30) at 0x80fd450
REFCNT = 2
FLAGS = (PADBUSY,PADMY,OBJECT)
IV = 0
NV = 0
PV = 0
STASH = 0x80fd414 "foo"
- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.