This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix -tree test for non-threaded perl v5.13.8
authorZefram <zefram@fysh.org>
Sun, 19 Dec 2010 21:23:50 +0000 (21:23 +0000)
committerZefram <zefram@fysh.org>
Sun, 19 Dec 2010 21:23:50 +0000 (21:23 +0000)
ext/B/t/concise.t

index 3fdb694..075e1da 100644 (file)
@@ -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