diff options
author | Gerard Goossen <gerard@tty.nl> | 2007-06-26 22:33:50 +0200 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-07-07 08:03:49 +0000 |
commit | b3f5cf18528ca19187726d11aa6582cb64debc65 (patch) | |
tree | a4755ba070818fdb6044cadc6217abad0f065728 /mad/t/p55.t | |
parent | cbd87e7ef183ffa0dd4ce9a35b2df1221f037667 (diff) | |
download | perl-b3f5cf18528ca19187726d11aa6582cb64debc65.tar.gz |
p55: correctly translate things like s//$#foo/ge
Message-ID: <20070626183350.GA11336@ostwald>
p4raw-id: //depot/perl@31552
Diffstat (limited to 'mad/t/p55.t')
-rw-r--r-- | mad/t/p55.t | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/mad/t/p55.t b/mad/t/p55.t index ef4c397e3b..f3addd113c 100644 --- a/mad/t/p55.t +++ b/mad/t/p55.t @@ -62,8 +62,6 @@ use File::Find; use Test::Differences; our %failing = map { $_, 1 } qw| -../t/op/subst.t - ../t/comp/require.t ../t/io/layers.t @@ -83,6 +81,9 @@ our %failing = map { $_, 1 } qw| ../t/op/symbolcache.t ../t/op/threads.t + +../t/op/exec.t +../t/io/say.t |; my @files; @@ -139,13 +140,13 @@ for (my $i=0; $i<3; $i++) { } ######## for (; $a<3; $a++) { } ######## -# TODO +# s//$#foo/ge; ######## -# TODO +# s//m#.#/ge; ######## -# TODO +# eval { require 5.005 } ######## # TODO Reduced test case from t/io/layers.t |