Select Code to Download

use strict;
use warnings;
...
BEGIN { $b = \&tst }              
say &$a;
say &$b;

perl false_postive_redefine.pl
Subroutine tst redefined at false_postive_redefine.pl line 7.
1
2

use feature "try";
use constant CHECK_HINTHASH => 0;
...
BEGIN { check_hinthash() }    # feature enabled

# try { ... };  <-- would fail