Upgrade to Pod-Parser-1.36.

[p5sagit/p5-mst-13.2.git] / mad / P5AST.pm

diff --git a/mad/P5AST.pm b/mad/P5AST.pm
index d253c86..eaf3bd3 100644 (file)
--- a/mad/P5AST.pm
+++ b/mad/P5AST.pm
@@ -75,6 +75,9 @@ sub p5text {
            }
            $text .= $newtext;
        }
+        elsif ($type eq "chomp") {
+            $text =~ s/\n$//g;
+        }
        elsif ($type) {
            $text .= $kid->p5text(@_);
        }