The test below was added by Dave Mitchell over the weekend to t/lib/warnings/op. (Specifically, as part of commit db18005b269.) I'm wondering what it will take to un-TODO it. ##### +# TODO PL_curcop restored correctly in Perl_scalar() +use warnings; +my $scalar = do { + my $x = 1; + 11,12, + do { + no warnings 'void'; + my $x = 2; + 21,22, + }, + 31,32, + do { + my $x = 3; + 41,42, + }, + 51,52 +}; +EXPECT +Useless use of a constant (11) in void context at - line 5. +Useless use of a constant (12) in void context at - line 5. +Useless use of a constant (31) in void context at - line 11. +Useless use of a constant (32) in void context at - line 11. +Useless use of a constant (41) in void context at - line 14. +Useless use of a constant (42) in void context at - line 14. +Useless use of a constant (51) in void context at - line 16. ##### Thank you very much. Jim KeenanThread Next