1N/A chdir 't' if -d 't'; 1N/A print "1..0 # Skip: Devel::Peek was not built\n"; 1N/A die "$0: failed to open peek$$: !\n"; 1N/A die "$0: failed to create peek$$: $!\n"; 1N/A'SV = PV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(POK,pPOK\\) 1N/A PV = $ADDR "foo"\\\0 1N/A'SV = PV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(.*POK,READONLY,pPOK\\) 1N/A PV = $ADDR "bar"\\\0 1N/A'SV = IV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(IOK,pIOK\\) 1N/A'SV = IV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(.*IOK,READONLY,pIOK\\) 1N/A'SV = IV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(PADBUSY,PADMY,IOK,pIOK\\) 1N/A# If perl is built with PERL_PRESERVE_IVUV then maths is done as integers 1N/A# where possible and this scalar will be an IV. If NO_PERL_PRESERVE_IVUV then 1N/A# maths is done in floating point always, and this scalar will be an NV. 1N/A# ([NI]) captures the type, referred to by \1 in this regexp and $type for 1N/A# building subsequent regexps. 1N/A'SV = ([NI])V\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(PADTMP,\1OK,p\1OK\\) 1N/A'SV = PVNV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(NOK,pNOK\\) 1N/A NV = 789\\.(?:1(?:000+\d+)?|0999+\d+) 1N/A PV = $ADDR "789"\\\0 1N/A'SV = IV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(.*IOK,READONLY,pIOK\\) 1N/A'SV = NULL\\(0x0\\) at $ADDR 1N/A'SV = RV\\($ADDR\\) at $ADDR 1N/A SV = PV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(POK,pPOK\\) 1N/A PV = $ADDR "foo"\\\0 1N/A SV = PVNV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(IOK,NOK,pIOK,pNOK\\) 1N/A SV = IV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(IOK,pIOK\\) 1N/A'SV = RV\\($ADDR\\) at $ADDR 1N/A SV = PVAV\\($ADDR\\) at $ADDR 1N/A SV = IV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(IOK,pIOK\\) 1N/A'SV = RV\\($ADDR\\) at $ADDR 1N/A SV = PVHV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(SHAREKEYS\\) 1N/A ARRAY = $ADDR \\(0:7, 1:1\\) 1N/A hash quality = 100.0% 1N/A'SV = RV\\($ADDR\\) at $ADDR 1N/A SV = PVCV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(PADBUSY,PADMY,POK,pPOK,ANON,WEAKOUTSIDE\\) 1N/A COMP_STASH = $ADDR\\t"main" 1N/A START = $ADDR ===> \\d+ 1N/A GVGV::GV = $ADDR\\t"main" :: "__ANON__[^"]*" 1N/A FILE = ".*\\b(?i:peek\\.t)" 1N/A PADNAME = $ADDR\\($ADDR\\) PAD = $ADDR\\($ADDR\\) 1N/A OUTSIDE = $ADDR \\(MAIN\\)');
1N/A'SV = RV\\($ADDR\\) at $ADDR 1N/A SV = PVCV\\($ADDR\\) at $ADDR 1N/A COMP_STASH = $ADDR\\t"main" 1N/A START = $ADDR ===> \\d+ 1N/A GVGV::GV = $ADDR\\t"main" :: "do_test" 1N/A FILE = ".*\\b(?i:peek\\.t)" 1N/A PADNAME = $ADDR\\($ADDR\\) PAD = $ADDR\\($ADDR\\) 1N/A \\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$pattern" 1N/A \\d+\\. $ADDR<\\d+> FAKE "\\$DEBUG" 1N/A \\d+\\. $ADDR<\\d+> \\(\\d+,\\d+\\) "\\$dump" 1N/A OUTSIDE = $ADDR \\(MAIN\\)');
1N/A'SV = RV\\($ADDR\\) at $ADDR 1N/A SV = PVMG\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(OBJECT,SMG\\) 1N/A MG_TYPE = PERL_MAGIC_qr\(r\) 1N/A STASH = $ADDR\\t"Regexp"');
1N/A'SV = RV\\($ADDR\\) at $ADDR 1N/A SV = PVHV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(OBJECT,SHAREKEYS\\) 1N/A STASH = $ADDR\\t"Tac" 1N/A'SV = PVGV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(GMG,SMG,MULTI(?:,IN_PAD)?\\) 1N/A MG_VIRTUAL = &PL_vtbl_glob 1N/A MG_TYPE = PERL_MAGIC_glob\(\*\) 1N/A GvSTASH = $ADDR\\t"main" 1N/A FILE = ".*\\b(?i:peek\\.t)" 1N/A EGV = $ADDR\\t"a"');
1N/A'SV = PV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\((?:PADBUSY,PADTMP,)?POK,READONLY,pPOK,UTF8\\) 1N/A PV = $ADDR "\\\214\\\101\\\0\\\235\\\101"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\] 1N/A'SV = PV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\((?:PADBUSY,PADTMP,)?POK,READONLY,pPOK,UTF8\\) 1N/A PV = $ADDR "\\\304\\\200\\\0\\\310\\\200"\\\0 \[UTF8 "\\\x\{100\}\\\x\{0\}\\\x\{200\}"\] 1N/A'SV = RV\\($ADDR\\) at $ADDR 1N/A SV = PVHV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(SHAREKEYS,HASKFLAGS\\) 1N/A ARRAY = $ADDR \\(0:7, 1:1\\) 1N/A hash quality = 100.0% 1N/A Elt "\\\214\\\101" \[UTF8 "\\\x\{100\}"\] HASH = $ADDR 1N/A SV = PV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(POK,pPOK,UTF8\\) 1N/A PV = $ADDR "\\\235\\\101"\\\0 \[UTF8 "\\\x\{200\}"\] 1N/A'SV = RV\\($ADDR\\) at $ADDR 1N/A SV = PVHV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(SHAREKEYS,HASKFLAGS\\) 1N/A ARRAY = $ADDR \\(0:7, 1:1\\) 1N/A hash quality = 100.0% 1N/A Elt "\\\304\\\200" \[UTF8 "\\\x\{100\}"\] HASH = $ADDR 1N/A SV = PV\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(POK,pPOK,UTF8\\) 1N/A PV = $ADDR "\\\310\\\200"\\\0 \[UTF8 "\\\x\{200\}"\] 1N/A'SV = PVMG\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(PADBUSY,PADMY,SMG,POK,pPOK\\) 1N/A MG_VIRTUAL = &PL_vtbl_mglob 1N/A MG_TYPE = PERL_MAGIC_regex_global\\(g\\) 1N/A# TAINTEDDIR is not set on: OS2, AMIGAOS, WIN32, MSDOS 1N/A# environment variables may be invisibly case-forced, hence the (?i:PATH) 1N/A# C<scalar(@ARGV)> is turned into an IV on VMS hence the (?:IV)? 1N/A'SV = PVMG\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(GMG,SMG,RMG,pIOK,pPOK\\) 1N/A MG_VIRTUAL = &PL_vtbl_envelem 1N/A MG_TYPE = PERL_MAGIC_envelem\\(e\\) 1N/A MG_PTR = $ADDR (?:"(?i:PATH)"|=> HEf_SVKEY 1N/A SV = PV(?:IV)?\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(TEMP,POK,pPOK\\) 1N/A)? PV = $ADDR "(?i:PATH)"\\\0 1N/A MG_VIRTUAL = &PL_vtbl_taint 1N/A MG_TYPE = PERL_MAGIC_taint\\(t\\)');
1N/A'SV = RV\\($ADDR\\) at $ADDR 1N/A SV = PVMG\\($ADDR\\) at $ADDR 1N/A FLAGS = \\(OBJECT,ROK\\) 1N/A SV = NULL\\(0x0\\) at $ADDR 1N/A FLAGS = \\(READONLY\\) 1N/A STASH = $ADDR\s+"Foobar"');