diff options
| author | Joel Martin <github@martintribe.org> | 2014-04-20 21:50:52 -0500 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2014-04-20 21:50:52 -0500 |
| commit | a3b0621dbfbb7afd2bff5a08a727660142240150 (patch) | |
| tree | fff280338345ca909166df2f586a637f5d846ce5 /perl/reader.pm | |
| parent | 9af8aee63aad6031c12f2b04ba87c16cc3273077 (diff) | |
| download | mal-a3b0621dbfbb7afd2bff5a08a727660142240150.tar.gz mal-a3b0621dbfbb7afd2bff5a08a727660142240150.zip | |
Perl: add step2_eval.
Diffstat (limited to 'perl/reader.pm')
| -rw-r--r-- | perl/reader.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl/reader.pm b/perl/reader.pm index 52b1a76..ecbf522 100644 --- a/perl/reader.pm +++ b/perl/reader.pm @@ -22,7 +22,7 @@ use Data::Dumper; sub tokenize { my($str) = @_; my @tokens = $str =~ /[\s,]*(~@|[\[\]{}()'`~^@]|"(?:\\.|[^\\"])*"|;.*|[^\s\[\]{}('"`,;)]*)/g; - return grep {not /^;|^$/} @tokens; + return grep {! /^;|^$/} @tokens; } sub read_atom { |