+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)
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();
}