Don't munge contents of __DATA__ even when they look like POD (closes:

#614288)

diff --git a/debian/changelog b/debian/changelog
index b10f0b145062bbf03cd4fce30f2ff0797b332418..ca384b5fe3fb9fcdd393548f368dc8ffa459dcba 100644 (file)
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,10 @@
+perltidy (20101217-2) UNRELEASED; urgency=low
+
+  * Don't munge contents of __DATA__ even when they look like POD (closes:
+    #614288)
+
+ -- Don Armstrong <don@debian.org>  Sun, 20 Feb 2011 19:06:20 -0800
+
 perltidy (20101217-1) unstable; urgency=low
 
   * New upstream release (closes: #613417)

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 35cea35cb2c99f2dea3d6c3e7b6c8fc051cd885e..2534df319ce5ff73615bcbd19b3a4a25d9d1ee36 100644 (file)
--- a/lib/Perl/Tidy.pm
+++ b/lib/Perl/Tidy.pm
@@ -6215,7 +6215,10 @@ sub write_line {
             if ( $rOpts->{'tee-pod'} )    { $tee_line  = 1; }
             if (  !$skip_line
                 && $line_type eq 'POD_START'
-                && $last_line_type !~ /^(END|DATA)$/ )
+                 # If the previous line is a __DATA__ line (or data
+                 # contents, it's not valid to change it at all, no
+                 # matter what is in the data
+                && $last_line_type !~ /^(END|DATA(?:_START)?)$/ )
             {
                 want_blank_line();
             }