diff options
| author | Zefram <zefram@fysh.org> | 2010-12-19 21:23:50 +0000 |
|---|---|---|
| committer | Zefram <zefram@fysh.org> | 2010-12-19 21:23:50 +0000 |
| commit | b6aa14cd2bcbea5793902cd478a4258670ce6000 (patch) | |
| tree | 39c4fd4def093f59909d579d97a1bb25b7d6a913 | |
| parent | aa7dbd7b4665760273a559ffbd0d730493793fc1 (diff) | |
| download | perl-5.13.8.tar.gz | |
fix -tree test for non-threaded perlv5.13.8
| -rw-r--r-- | ext/B/t/concise.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t index 3fdb6943fc..075e1da149 100644 --- a/ext/B/t/concise.t +++ b/ext/B/t/concise.t @@ -441,7 +441,7 @@ $out = runperl( switches => ["-MO=Concise,-tree"], prog => 'print', stderr => 1 ); -ok index $out=~s/\r\n/\n/gr, <<'end'=~s/\r\n/\n/gr =>>= 0, '-tree output'; +ok index $out=~s/\r\n/\n/gr=~s/gvsv\(\*_\)/gvsv[*_]/r, <<'end'=~s/\r\n/\n/gr =>>= 0, '-tree output'; <6>leave[1 ref]-+-<1>enter |-<2>nextstate(main 1 -e:1) `-<5>print-+-<3>pushmark |