develooper Front page | perl.perl5.porters | Postings from June 2008

RT bugtrackers, note the changes in 5.10

Thread Next
From:
H.Merijn Brand
Date:
June 10, 2008 00:43
Subject:
RT bugtrackers, note the changes in 5.10
Message ID:
20080610094338.37b3f144@pc09.procura.nl
On IRC Caelum was digging into #54908, Net::SSH2::Channel and asked if
GV's in 5.10 had an IV slot. No they don't, maybe a lead to all seekers
to track down other cleanup bugs.

5.8.8:

$ perl -MDevel::Peek -wle'Dump *a'
Name "main::a" used only once: possible typo at -e line 1.
SV = PVGV(0x777510) at 0x740560
  REFCNT = 2
  FLAGS = (GMG,SMG)
  IV = 0
  NV = 0
  PV = 0
  MAGIC = 0x729b00
    MG_VIRTUAL = &PL_vtbl_glob
    MG_TYPE = PERL_MAGIC_glob(*)
    MG_OBJ = 0x740560
  NAME = "a"
  NAMELEN = 1
  GvSTASH = 0x7200f0    "main"
  GP = 0x729bf0
    SV = 0x7404f0
    REFCNT = 1
    IO = 0x0
    FORM = 0x0
    AV = 0x0
    HV = 0x0
    CV = 0x0
    CVGEN = 0x0
    GPFLAGS = 0x0
    LINE = 1
    FILE = "-e"
    FLAGS = 0x0
    EGV = 0x740560      "a"
$ perl -MDevel::Peek -wle'Dump sub { 42 }'
SV = RV(0x753d18) at 0x720210
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x740560
  SV = PVCV(0x737c20) at 0x740560
    REFCNT = 2
    FLAGS = (PADBUSY,PADMY,ANON,WEAKOUTSIDE)
    IV = 0
    NV = 0
    COMP_STASH = 0x7200f0       "main"
    START = 0x729bf0 ===> 1066
    ROOT = 0x7299e0
    XSUB = 0x0
    XSUBANY = 0
    GVGV::GV = 0x740590 "main" :: "__ANON__"
    FILE = "-e"
    DEPTH = 0
    FLAGS = 0x404
    OUTSIDE_SEQ = 91
    PADLIST = 0x7404f0
    PADNAME = 0x740500(0x746b90) PAD = 0x740510(0x778cd0)
    OUTSIDE = 0x720400 (MAIN)
$ perl -MDevel::Peek -wle'Dump *STDOUT'
SV = PVGV(0x73a110) at 0x720b90
  REFCNT = 3
  FLAGS = (GMG,SMG,MULTI)
  IV = 0
  NV = 0
  PV = 0
  MAGIC = 0x73b940
    MG_VIRTUAL = &PL_vtbl_glob
    MG_TYPE = PERL_MAGIC_glob(*)
    MG_OBJ = 0x720b90
  NAME = "STDOUT"
  NAMELEN = 6
  GvSTASH = 0x7200f0    "main"
  GP = 0x73b8e0
    SV = 0x720ba0
    REFCNT = 1
    IO = 0x720bb0
    FORM = 0x0
    AV = 0x0
    HV = 0x0
    CV = 0x0
    CVGEN = 0x0
    GPFLAGS = 0x0
    LINE = 0
    FILE = "-e"
    FLAGS = 0x2
    EGV = 0x720b90      "STDOUT"
$ perl -MDevel::Peek -wle'%a = (); Dump \%a'
SV = RV(0x753d18) at 0x720210
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x740500
  SV = PVHV(0x725c08) at 0x740500
    REFCNT = 2
    FLAGS = (SHAREKEYS)
    IV = 0
    NV = 0
    ARRAY = 0x0
    KEYS = 0
    FILL = 0
    MAX = 7
    RITER = -1
    EITER = 0x0

5.10.0:
$ perl -MDevel::Peek -wle'Dump *a'
Name "main::a" used only once: possible typo at -e line 1.
SV = PVGV(0x828fcd8) at 0x827a83c
  REFCNT = 2
  FLAGS = ()
  NAME = "a"
  NAMELEN = 1
  GvSTASH = 0x82680f4   "main"
  GP = 0x82870d0
    SV = 0x0
    REFCNT = 1
    IO = 0x0
    FORM = 0x0
    AV = 0x0
    HV = 0x0
    CV = 0x0
    CVGEN = 0x0
    LINE = 1
    FILE = "-e"
    FLAGS = 0x0
    EGV = 0x827a83c     "a"
$ perl -MDevel::Peek -wle'Dump sub { 42 }'
SV = RV(0x8268254) at 0x8268248
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x827a844
  SV = PVCV(0x8281150) at 0x827a844
    REFCNT = 2
    FLAGS = (PADMY,ANON,WEAKOUTSIDE)
    COMP_STASH = 0x82680f4      "main"
    START = 0x82821c8 ===> 0
    ROOT = 0x8282190
    GVGV::GV = 0x827a8bc        "main" :: "__ANON__"
    FILE = "-e"
    DEPTH = 0
    FLAGS = 0x90
    OUTSIDE_SEQ = 91
    PADLIST = 0x827a858
    PADNAME = 0x827a86c(0x8276418) PAD = 0x827a880(0x8276430)
    OUTSIDE = 0x8268428 (MAIN)
$ perl -MDevel::Peek -wle'Dump *STDOUT'
SV = PVGV(0x8274948) at 0x8279d2c
  REFCNT = 3
  FLAGS = (MULTI)
  NAME = "STDOUT"
  NAMELEN = 6
  GvSTASH = 0x82680f4   "main"
  GP = 0x8277fb8
    SV = 0x0
    REFCNT = 1
    IO = 0x8279d40
    FORM = 0x0
    AV = 0x0
    HV = 0x0
    CV = 0x0
    CVGEN = 0x0
    LINE = 0
    FILE = "-e"
    FLAGS = 0x2
    EGV = 0x8279d2c     "STDOUT"
$ perl -MDevel::Peek -wle'%a = (); Dump \%a'
SV = RV(0x8268254) at 0x8268248
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x827a858
  SV = PVHV(0x82701c0) at 0x827a858
    REFCNT = 2
    FLAGS = (SHAREKEYS)
    ARRAY = 0x0
    KEYS = 0
    FILL = 0
    MAX = 7
    RITER = -1
    EITER = 0x0


-- 
H.Merijn Brand         Amsterdam Perl Mongers (http://amsterdam.pm.org/)
using & porting perl 5.6.2, 5.8.x, 5.10.x  on HP-UX 10.20, 11.00, 11.11,
& 11.23, SuSE 10.1 & 10.2, AIX 5.2, and Cygwin.       http://qa.perl.org
http://mirrors.develooper.com/hpux/            http://www.test-smoke.org
                        http://www.goldmark.org/jeff/stupid-disclaimers/

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About