[perl #125485] bad error message laceholder variable @_ may not be used here because the surrounding block takes no signature

[via RT]

# New Ticket Created by  equinox 
# Please include the string:  [perl #125485]
# in the subject line of all future correspondence about this issue. 
# <URL: https://rt.perl.org/Ticket/Display.html?id=125485 >


Hi,
Compile this and you get and error message

===SORRY!=== Error while compiling D:\m\p6\perltidy\bug2.p6
Placeholder variable @_ may not be used here because the surrounding 
block takes no signature

sub dump_array {

     say "({join ')(',@_})\n";
}


Compile this and you do not

sub dump_array {
     my @d = @_;
     say "({join ')(',@d})\n";
}

Marton