I have a Perl file like this:
use strict;
f1();
sub f3()
{ f2(); }
sub f1()
{}
sub f2()
{}
In short, f1
is called before it is defined. So, Perl throws a warning: "f1 called too early to check prototype". But same is the case with f2
, the only diff being that it is called from inside another subroutine. It doesn't throw a warning for f2
. Why?
What is the best way to resolve this issue?
&f1();
You can completely avoid this issue by not using prototypes in the first place:
use strict;
f1();
sub f3 { f2() }
sub f1 {}
sub f2 {}
Don't use prototypes unless you know why you are using them:
This is all very powerful, of course, and should be used only in moderation to make the world a better place.
Simply remove the () from your subroutine definitions. When you define with (), Perl thinks these are prototypes and you have to define your prototype before you use it.
Try this:
use strict;
f1();
sub f3
{ f2(); }
sub f1
{}
sub f2
{}
When you define a function in Perl you should not use parentheses. When you do so you get this error. This is wrong:
sub DoSomthing(){
#do what ever...
}
This is the way to go:
sub DoSomthing{
#do what ever...
}
no parentheses.
For more detailed explenation see Gabor Szabo's Perl Maven page on Subroutines and functions in Perl. https://perlmaven.com/subroutines-and-functions-in-perl
The lack of a warning on the call to f2()
from f3()
appears to be a bug.
use strict;
use warnings;
f1();
sub f1 {
my @a = qw(a b c);
f2(@a);
}
sub f2(\@) { print $_[0] }
This prints "a". If you either predeclare f2()
or swap the order of the subroutine definitions, it prints "ARRAY(0x182c054)".
As for resolving the situation, it depends. My preferences (in order) would be:
&foo()
notation to bypass prototype checking.If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With