in reply to Re^2: CGI::Session cannot read data from Data::Dumper
in thread CGI::Session cannot read data from Data::Dumper

If you don't mind, could you tell me what this returns?

use Safe;
use Devel::Peek;

my $x = bless \ do { my $a = 0 }, "x";
print Dump($x);
my $y = Safe->new->reval('bless \\ do { my $a = 0 }, "x"');
print Dump($y);
bless $y, ref $y;
print Dump($y);

[download]

Replies are listed 'Best First'.
Re^4: CGI::Session cannot read data from Data::Dumper
by lom (Sexton) on Nov 02, 2007 at 08:32 UTC
    here you are: 
    SV = RV(0x81786c0) at 0x8151690
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,ROK)
  RV = 0x815163c
  SV = PVMG(0x81d1948) at 0x815163c
    REFCNT = 2
    FLAGS = (PADBUSY,PADMY,OBJECT,IOK,pIOK)
    IV = 0
    NV = 0
    PV = 0
    STASH = 0x8150b44   "x"
SV = RV(0x81786f4) at 0x8151624
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,ROK)
  RV = 0x81fbd04
  SV = PVMG(0x81d1b28) at 0x81fbd04
    REFCNT = 1
    FLAGS = (PADBUSY,PADMY,OBJECT,IOK,pIOK)
    IV = 0
    NV = 0
    PV = 0
    STASH = 0x81fbd58   "x"
SV = RV(0x81786f4) at 0x8151624
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,ROK)
  RV = 0x81fbd04
  SV = PVMG(0x81d1b28) at 0x81fbd04
    REFCNT = 1
    FLAGS = (PADBUSY,PADMY,OBJECT,IOK,pIOK)
    IV = 0
    NV = 0
    PV = 0
    STASH = 0x8150b44   "x"

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom