diff options
Diffstat (limited to 't/op/lexsub.t')
| -rw-r--r-- | t/op/lexsub.t | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/t/op/lexsub.t b/t/op/lexsub.t index 0e101e865f..d70f2ccf2b 100644 --- a/t/op/lexsub.t +++ b/t/op/lexsub.t @@ -321,7 +321,6 @@ sub make_anon_with_state_sub{ } r(1); } -$::TODO = ' '; like runperl( switches => [ '-Mfeature=:all' ], prog => 'state sub a { foo ref } a()', @@ -329,7 +328,6 @@ like runperl( ), qr/syntax error/, 'referencing a state sub after a syntax error does not crash'; -undef $::TODO; # -------------------- my -------------------- # @@ -622,7 +620,6 @@ not_lexical11(); eval q{ my sub george () { 2 } }; is $w, undef, 'no double free from constant my subs'; } -$::TODO = ' '; like runperl( switches => [ '-Mfeature=:all' ], prog => 'my sub a { foo ref } a()', @@ -630,7 +627,6 @@ like runperl( ), qr/syntax error/, 'referencing a my sub after a syntax error does not crash'; -undef $::TODO; # -------------------- Interactions (and misc tests) -------------------- # |