| 1 | #! perl | 1 | #! perl |
|---|---|---|---|
| 2 | 2 | ||
| 3 | # adapted form a test by Aristotle Pagaltzis (http://intertwingly.net/blog/2007/11/15/Astral-Plane-Characters-in-Json) | 3 | # adapted from a test by Aristotle Pagaltzis (http://intertwingly.net/blog/2007/11/15/Astral-Plane-Characters-in-Json) |
| 4 | 4 | ||
| 5 | use strict; | 5 | use strict; |
| 6 | use warnings; | 6 | use warnings; |
| 7 | 7 | ||
| 8 | use JSON::XS; | 8 | use JSON::XS; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |