use strict;
our($AUTOLOAD, $Debug, $VERSION);
-$VERSION = 1.04;
+$VERSION = 1.05;
$Debug = 0 unless defined $Debug;
$sref = \&$sub;
$proto = prototype $sref;
$call = '&$sref';
- } elsif ($sub eq $ini) { # Stray user subroutine
+ } elsif ($sub eq $ini && $sub !~ /^CORE::GLOBAL::/) {
+ # Stray user subroutine
die "$sub is not a Perl subroutine"
} else { # CORE subroutine
$proto = eval { prototype "CORE::$name" };
# not checked, so error raises an exception
close FH;
+=head1 BUGS
+
+You should not fatalize functions that are called in list context, because this
+module tests whether a function has failed by testing the boolean truth of its
+return value in scalar context.
+
=head1 AUTHOR
Lionel Cons (CERN).