autodie/lib/Fatal.pm

80 # These are all assumed to be CORE::
198 # CORE::open returns undef on failure.  It can legitimately return
202     CORE::fork
203     CORE::recv
204     CORE::send
205     CORE::open
206     CORE::fileno
207     CORE::read
208     CORE::readlink
209     CORE::sysread
210     CORE::syswrite
211     CORE::sysseek
212     CORE::umask
220     'CORE::chmod'  => 1,
221     'CORE::chown'  => 2,
222     'CORE::kill'   => 1,  # TODO: Could this return anything on negative args?
223     'CORE::unlink' => 0,
224     'CORE::utime'  => 2,
230     "CORE::open"        => q{
250     "CORE::sysopen"     => q{
286     CORE::fork
287     CORE::kill
288     CORE::truncate
289     CORE::chdir
290     CORE::link
291     CORE::unlink
292     CORE::rename
293     CORE::mkdir
294     CORE::symlink
295     CORE::rmdir
296     CORE::readlink
297     CORE::umask
298     CORE::chmod
299     CORE::chown
300     CORE::utime
301     CORE::msgctl
302     CORE::msgget
303     CORE::msgrcv
304     CORE::msgsnd
305     CORE::semctl
306     CORE::semget
307     CORE::semop
308     CORE::shmctl
309     CORE::shmget
310     CORE::shmread
311     CORE::exec
312     CORE::system
317 # have to build our own replacement of CORE::open and friends
323 # (including package or CORE::) in %Package_Fatal.  This allows us
347 # A cache mapping "CORE::<name>" to their prototype.  Turns out that if
588         # and then restore the original (can be undef for "CORE::"
622         # Strip "CORE::" from all elements in the list as import and
623         # unimport does not handle the "CORE::" prefix too well.
625         # NB: we use substr as it is faster than s/^CORE::// and
645                  # we have stripped CORE:: (see above)
699         'all' => [map { "CORE::$_" } @{$TAGS{':all'}}],
704     # "CORE::<name>" (i.e. "CORE::open" rather than "open").
744                 my $subname = "CORE::$item";
869         if ($call eq 'CORE::system') {
888     #   $call if the function is CORE
889     #   $sub if our function is non-CORE
893     # CORE::something.  However for user-defined subs, we're about to
932     if ($call eq 'CORE::system') {
966                     function => q{CORE::system}, args => [ @argv ],
988     if ($call eq 'CORE::flock') {
1038     if ($call eq 'CORE::kill') {
1243         if ( $Package_Fatal{$sub} and exists($CORE_prototype_cache{"CORE::$name"})) {
1250             $call  = "CORE::$name";
1266                 # $sub is one of our wrappers around a CORE sub or a
1279                     # It is a wrapper for a CORE:: sub
1281                     $call = "CORE::$name";
1290                 # A non-CORE sub might have hints and such...
1312     } elsif ($sub eq $ini && $sub !~ /^CORE::GLOBAL::/) {
1347         $call = 'CORE::system';
1355         $call = 'CORE::exec';
1358     } else {            # CORE subroutine
1359         $call = "CORE::$name";
1536             # matter if it is a CORE sub or not.
1538                 # CORE sub that we were too lazy to compile when we
1540                 die "$call is not CORE::<something>"
1541                     if substr($call, 0, 6) ne 'CORE::';
1578         # - for CORE functions, $orig_sub may be a trampoline
1581         # We are wrapping a CORE sub and we do not have a trampoline
1665     $code .= "no warnings qw(exec);\n" if $call eq "CORE::exec";
1673     # time for CORE subs, since they'll always be the same.  However
1755 CORE operators (except C<exec>, C<system>, C<print>, or any other