X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lib%2FPerl%2FTidy.pm;h=2534df319ce5ff73615bcbd19b3a4a25d9d1ee36;hb=33ef301c311c9e7d49e3838dcaa5c6cdbd0466f6;hp=35cea35cb2c99f2dea3d6c3e7b6c8fc051cd885e;hpb=5c180637bf79ffc2af10f6654d308ce39e2f1f67;p=perltidy.git

diff --git a/lib/Perl/Tidy.pm b/lib/Perl/Tidy.pm
index 35cea35..2534df3 100644
--- 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();
             }