t/op/anonsub.t: un-TODO test 14

It now passes.

Author: mauke

t/op/anonsub.t

@@ -17,13 +17,7 @@ foreach my $code ('sub;', 'sub ($) ;', '{ $_ = sub }', 'sub ($) && 1') {
 }
 
 {
-    local $::TODO;
-    $::TODO = 'RT #17589 not completely resolved';
-    # Here's a patch. It makes "sub;" and similar report an error immediately
-    # from the lexer. However the solution is not complete, it doesn't
-    # handle the case "sub ($) : lvalue;" (marked as a TODO test), because
-    # it's handled by the lexer in separate tokens, hence more difficult to
-    # work out.
+    # RT #17589 / GH #5959
     my $code = 'sub ($) : lvalue;';
     eval $code;
     like($@, qr/^Illegal declaration of anonymous subroutine at/,
@@ -35,7 +29,7 @@ is($@, '');
 
 done_testing();
 
-__END__
+__DATA__
 sub X {
     my $n = "ok 1\n";
     sub { print $n };