our $a;
our $b;
my $c;
-local $d;
+local $d = 0;
do_test( 1,
$a = "foo",
ROOT = $ADDR
XSUB = 0x0
XSUBANY = 0
- GVGV::GV = $ADDR\\t"main" :: "__ANON__"
- FILE = ".+\\b(?i:peek\\.t)"
+ GVGV::GV = $ADDR\\t"main" :: "__ANON__[^"]*"
+ FILE = ".*\\b(?i:peek\\.t)"
DEPTH = 0
(?: MUTEXP = $ADDR
- OWNER = $ADDR)?
- FLAGS = 0x4
+ OWNER = $ADDR
+)? FLAGS = 0x4
PADLIST = $ADDR
OUTSIDE = $ADDR \\(MAIN\\)');
XSUB = 0x0
XSUBANY = 0
GVGV::GV = $ADDR\\t"main" :: "do_test"
- FILE = ".+\\b(?i:peek\\.t)"
+ FILE = ".*\\b(?i:peek\\.t)"
DEPTH = 1
(?: MUTEXP = $ADDR
- OWNER = $ADDR)?
- FLAGS = 0x0
+ OWNER = $ADDR
+)? FLAGS = 0x0
PADLIST = $ADDR
\\d+\\. $ADDR \\("\\$pattern" \\d+-\\d+\\)
\\d+\\. $ADDR \\(FAKE "\\$DEBUG" 0-\\d+\\)
CVGEN = 0x0
GPFLAGS = 0x0
LINE = \\d+
- FILE = ".+\\b(?i:peek\\.t)"
+ FILE = ".*\\b(?i:peek\\.t)"
FLAGS = $ADDR
EGV = $ADDR\\t"a"');
END {
- unlink("peek$$");
+ 1 while unlink("peek$$");
}