No prototype, no warning.

>perl -wMstrict -le
"sub S;
 S('foo');
 sub S ($) { print $_[0], '-totyped subroutine' };
"
foo-totyped subroutine
[download]

In any event, I continue to agree it is best to avoid prototyping both in the OPed code and in general.

Actually, I'm surprised too. I really meant omit the prototype specification on the sub declaration:

sub S {...}
[download]

rather than:

sub S ($) {...}
[download]

In other words, don't use the prototype at all is the fix rather than using a forward declaration. If the sub isn't prototyped the forward declaration isn't required.

A forward declaration with a different prototype than the actual declaration is an error reported by Perl, but not if the forward declaration is missing the prototype and the declaration has one - bizarre.

---

Perl's payment curve coincides with its learning curve.

... - bizarre.

Not at all. It's like the empty string matching any string. Once you've declared a prototype, there can be a mismatch, but not before.