I thought I'd have a play with your issue so I downloaded your code and ran it. No warnings! So I wrote the following:

use strict;
use warnings;

print "$^V\n";
recurse(20000);
exit;

sub recurse {
    my ($count) = @_;

    recurse($count - 1) if $count;
}
[download]

which prints

v5.32.1
[download]

No warnings! My guess is that the warning dropped out of Perl at some point, but I can't find anything on perldelta to indicate its been "fixed". Maybe Strawberry Perl has its recursion limit warning set to some really large value? I do get an "Out of memory!" error if I set the recursion limit to 700,000.