From a5a6605877c98a37696a30d310a29f4d1fc230e9 Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Sun, 20 Apr 2014 23:45:58 -0500
Subject: Perl: add step4_if_fn_do

- Move string/printing tests to the bottom of tests/step4_if_fn_do
---
 perl/reader.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'perl/reader.pm')

diff --git a/perl/reader.pm b/perl/reader.pm
index ecbf522..35af099 100644
--- a/perl/reader.pm
+++ b/perl/reader.pm
@@ -30,7 +30,12 @@ sub read_atom {
     my $token = $rdr->next();
     given ($token) {
         when(/^-?[0-9]+$/) { return Integer->new($token) }
-        when(/^"/) { return String->new(substr $token, 1, -1) }
+        when(/^"/) {
+            my $str = substr $token, 1, -1;
+            $str =~ s/\\"/"/g;
+            $str =~ s/\\n/\n/g;
+            return String->new($str)
+        }
         when(/^nil$/) { return $nil }
         when(/^true$/) { return $true }
         when(/^false$/) { return $false }
-- 
cgit v1.2.3