diff options
| author | Joel Martin <github@martintribe.org> | 2014-12-18 20:33:49 -0600 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2015-01-09 16:16:50 -0600 |
| commit | b8ee29b22fbaa7a01f2754b4d6dd9af52e02017c (patch) | |
| tree | f4d977ed220e9a3f665cfbf4f68770a81e4c2095 /perl/printer.pm | |
| parent | aaba249304b184e12e2445ab22d66df1f39a51a5 (diff) | |
| download | mal-b8ee29b22fbaa7a01f2754b4d6dd9af52e02017c.tar.gz mal-b8ee29b22fbaa7a01f2754b4d6dd9af52e02017c.zip | |
All: add keywords.
Also, fix nth and count to match cloure.
Diffstat (limited to 'perl/printer.pm')
| -rw-r--r-- | perl/printer.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl/printer.pm b/perl/printer.pm index 9ce6707..7b00b1e 100644 --- a/perl/printer.pm +++ b/perl/printer.pm @@ -30,7 +30,9 @@ sub _pr_str { return '{' . join(' ', @elems) . '}'; } when(/^String/) { - if ($_r) { + if ($$obj =~ /^\x{029e}/) { + return ':' . substr($$obj,1); + } elsif ($_r) { my $str = $$obj; $str =~ s/\\/\\\\/g; $str =~ s/"/\\"/g; |