Lines Matching refs:CORE
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