diff options
| author | Joel Martin <github@martintribe.org> | 2014-04-21 20:48:16 -0500 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2014-04-21 20:48:16 -0500 |
| commit | 074cd7482bd5e6b0f5170f0128d417c1560ca00e (patch) | |
| tree | fb69d6d28ba83e96f7b32ecaffbced5bd7c47300 /perl/printer.pm | |
| parent | 60f2b3638e2e856a984dd46fc319bc316c0d0952 (diff) | |
| download | mal-074cd7482bd5e6b0f5170f0128d417c1560ca00e.tar.gz mal-074cd7482bd5e6b0f5170f0128d417c1560ca00e.zip | |
Perl: step6_file
Diffstat (limited to 'perl/printer.pm')
| -rw-r--r-- | perl/printer.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/printer.pm b/perl/printer.pm index 7880798..4240ff0 100644 --- a/perl/printer.pm +++ b/perl/printer.pm @@ -31,7 +31,7 @@ sub _pr_str { my $str = $$obj; $str =~ s/\\/\\\\/g; $str =~ s/"/\\"/g; - $str =~ s/\n/\\n"/g; + $str =~ s/\n/\\n/g; return '"' . $str . '"'; } else { return $$obj; |