From b6aa14cd2bcbea5793902cd478a4258670ce6000 Mon Sep 17 00:00:00 2001
From: Zefram <zefram@fysh.org>
Date: Sun, 19 Dec 2010 21:23:50 +0000
Subject: [PATCH] fix -tree test for non-threaded perl

---
 ext/B/t/concise.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t
index 3fdb694..075e1da 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
-- 
1.8.3.1