Line 69 is in the middle of GDBM_File.pm's AUTOLOAD routine:
sub AUTOLOAD {
my($constname);
($constname = $AUTOLOAD) =~ s/.*:://;
my $val = constant($constname, @_ ? $_[0] : 0);
if ($! != 0) {
if ($! =~ /Invalid/ || $!{EINVAL}) {
$AutoLoader::AUTOLOAD = $AUTOLOAD;
goto &AutoLoader::AUTOLOAD;
}
else {
Carp::croak("Your vendor has not defined GDBM_File macro $
+constname, used");
}
}
eval "sub $AUTOLOAD { $val }";
goto &$AUTOLOAD;
}
Line 69 is the one beginning with
my $val.
I'm familiar with 'use strict' and do indeed use it on my big projects, but this is not my code -- it's an excerpt from the
wreq work request system.