Commit | Line | Data |
---|---|---|
2cf7b7e2 | 1 | =pod |
2 | ||
3 | This tests against a segfault when PL_parser becomes NULL temporarly, while | |
4 | another module is loaded. | |
5 | ||
6 | =cut | |
7 | ||
8 | use strict; | |
9 | use warnings; | |
10 | ||
11 | use Test::More tests => 1; # last test to print | |
12 | ||
13 | use Devel::Declare 'method' => sub{}; | |
14 | ||
15 | sub lowercase { | |
16 | lc $_[0]; | |
17 | } | |
18 | ||
19 | is lowercase("FOO\x{263a}"), "foo\x{263a}"; |