diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-13 05:07:48 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-13 05:07:48 +0000 |
| commit | 9856a1277130c008a18c24f6f725fa79317e4d6e (patch) | |
| tree | 756e4629d1c78f737ac512a283963e983f39e616 /t/lib/peek.t | |
| parent | 31b7b813d73e23bf30b380b807e3f5dd37ea2474 (diff) | |
| download | perl-9856a1277130c008a18c24f6f725fa79317e4d6e.tar.gz | |
Fix the test for 5005threads.
p4raw-id: //depot/perl@6605
Diffstat (limited to 't/lib/peek.t')
| -rw-r--r-- | t/lib/peek.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/t/lib/peek.t b/t/lib/peek.t index 86fd74a3df..43df33ee08 100644 --- a/t/lib/peek.t +++ b/t/lib/peek.t @@ -30,7 +30,7 @@ sub do_test { print $pattern, "\n" if $DEBUG; my $dump = <IN>; print $dump, "\n" if $DEBUG; - print "[$dump] vs [$pattern]\nnot " unless $dump =~ /$pattern/m; + print "[$dump] vs [$pattern]\nnot " unless $dump =~ /$pattern/ms; print "ok $_[0]\n"; close(IN); } else { @@ -207,6 +207,8 @@ do_test(13, GVGV::GV = $ADDR\\t"main" :: "__ANON__" FILE = ".+\\b(?i:peek\\.t)" DEPTH = 0 +(?: MUTEXP = $ADDR + OWNER = $ADDR)? FLAGS = 0x4 PADLIST = $ADDR OUTSIDE = $ADDR \\(MAIN\\)'); @@ -218,7 +220,7 @@ do_test(14, FLAGS = \\(ROK\\) RV = $ADDR SV = PVCV\\($ADDR\\) at $ADDR - REFCNT = 3 + REFCNT = (3|4) FLAGS = \\(\\) IV = 0 NV = 0 @@ -230,6 +232,8 @@ do_test(14, GVGV::GV = $ADDR\\t"main" :: "do_test" FILE = ".+\\b(?i:peek\\.t)" DEPTH = 1 +(?: MUTEXP = $ADDR + OWNER = $ADDR)? FLAGS = 0x0 PADLIST = $ADDR \\d+\\. $ADDR \\("\\$pattern" \\d+-\\d+\\) |