This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
p55: correctly translate things like s//$#foo/ge
authorGerard Goossen <gerard@tty.nl>
Tue, 26 Jun 2007 20:33:50 +0000 (22:33 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sat, 7 Jul 2007 08:03:49 +0000 (08:03 +0000)
Message-ID: <20070626183350.GA11336@ostwald>

p4raw-id: //depot/perl@31552

mad/Nomad.pm
mad/P5AST.pm
mad/t/p55.t

index 4fdd3a8..5ccda4f 100755 (executable)
@@ -1683,7 +1683,10 @@ sub ast {
     if ($rfirst[-1]->uni ne $llast[-1]->uni) {
        push @newkids, @rfirst;
     }
-
+    # remove the fake '\n' if /e and '#' in replacement.
+    if (@mods and $mods[0] =~ m/e/ and ($self->madness('R'))[0]->uni =~ m/#/) {
+        unshift @rlast, bless {}, 'chomp'; # hack to remove '\n'
+    }
     push @newkids, $bits->{repl}, @rlast, @mods;
 
     my $retval = $self->newtype->new(Kids => [@newkids]);
index d253c86..eaf3bd3 100644 (file)
@@ -75,6 +75,9 @@ sub p5text {
            }
            $text .= $newtext;
        }
+        elsif ($type eq "chomp") {
+            $text =~ s/\n$//g;
+        }
        elsif ($type) {
            $text .= $kid->p5text(@_);
        }
index ef4c397..f3addd1 100644 (file)
@@ -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