RT #67517: Form feed appears to be white space

Accept form feed as white space in Perl source (i.e. outside quotes), and render it as "\f" in dumps.
Perl-Critic · Apr 16, 2011 · 1090dd6 · 1090dd6
1 parent 7e7600d
commit 1090dd6
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/lib/PPI/Dumper.pm b/lib/PPI/Dumper.pm
@@ -266,6 +266,7 @@ sub _element_string {
 			my $content = $Element->content;
 			$content =~ s/\n/\\n/g;
 			$content =~ s/\t/\\t/g;
+			$content =~ s/\f/\\f/g;
 			$string .= "  \t'$content'";
 		}
 

diff --git a/lib/PPI/Token/Whitespace.pm b/lib/PPI/Token/Whitespace.pm
@@ -135,6 +135,7 @@ BEGIN {
 	$CLASSMAP[ord '_']  = 'Word';
 	$CLASSMAP[9]        = 'Whitespace'; # A horizontal tab
 	$CLASSMAP[10]       = 'Whitespace'; # A newline
+	$CLASSMAP[12]       = 'Whitespace'; # A form feed
 	$CLASSMAP[13]       = 'Whitespace'; # A carriage return
 	$CLASSMAP[32]       = 'Whitespace'; # A normal space