Searched refs:CORE (Results 1 - 25 of 143) sorted by relevance

123456

/openbsd-current/gnu/usr.bin/perl/lib/
H A Dbytes_heavy.pl5 return CORE::length($_[0]);
11 @_ == 2 ? CORE::substr($_[0], $_[1]) :
12 @_ == 3 ? CORE::substr($_[0], $_[1], $_[2]) :
13 CORE::substr($_[0], $_[1], $_[2], $_[3]) ;
18 return CORE::ord($_[0]);
23 return CORE::chr($_[0]);
29 @_ == 2 ? CORE::index($_[0], $_[1]) :
30 CORE::index($_[0], $_[1], $_[2]) ;
36 @_ == 2 ? CORE::rindex($_[0], $_[1]) :
37 CORE
[all...]
/openbsd-current/gnu/usr.bin/perl/cpan/autodie/t/
H A Dinternal-backcompat.t41 [ 1, 'CORE::open', 'open', 0, [ 1, qw($_[0]) ],
46 return CORE::open($_[0]) || Carp::croak("Can't open(@_): $!") } elsif (@_ == 2) {
47 return CORE::open($_[0], $_[1]) || Carp::croak("Can't open(@_): $!") } elsif (@_ >= 3) {
48 return CORE::open($_[0], $_[1], @_[2..$#_]) || Carp::croak("Can't open(@_): $!")
64 [ 1, 'CORE::open', 'open', 0, qw($_[0] $_[1] @_[2..$#_]) ],
65 q{return CORE::open($_[0], $_[1], @_[2..$#_]) || Carp::croak("Can't open(@_): $!")},
68 [ 1, 'CORE::open', 'open', 1, qw($_[0] $_[1] @_[2..$#_]) ],
69 q{return (defined wantarray)?CORE::open($_[0], $_[1], @_[2..$#_]):
70 CORE::open($_[0], $_[1], @_[2..$#_]) || Carp::croak("Can't open(@_): $!")},
H A Dkill.t12 if (not CORE::kill(0,$$)) {
16 if (CORE::kill(0, SYSINIT)) {
H A Dbasic_exceptions.t23 is($@->function, 'CORE::open', "Correct dying sub");
/openbsd-current/gnu/usr.bin/perl/dist/base/t/
H A Dcore-global.t6 BEGIN { *CORE::GLOBAL::require = sub { require $_[0] }; }
H A Dincdot.t28 my $x = sub { CORE::require $_[0] };
31 *CORE::GLOBAL::require = $z;
/openbsd-current/gnu/usr.bin/perl/t/op/
H A Doverride.t7 require Config; # load these before we mess with *CORE::GLOBAL::require
14 # This file tries to test builtin override using CORE::GLOBAL
23 BEGIN { *CORE::GLOBAL::time = sub () { $t; } }
31 BEGIN { *CORE::GLOBAL::require = sub { $r = shift; 1; } }
56 local *CORE::GLOBAL::require = sub { push @r, shift; 1; };
67 # localizing *CORE::GLOBAL::foo should revert to finding CORE::foo
69 local(*CORE::GLOBAL::require);
80 BEGIN { *CORE::GLOBAL::readline = sub (;*) { ++$r }; }
102 BEGIN { *CORE
[all...]
H A Dcurrent_sub.t42 is CORE::__SUB__->(0), "begin 1", 'in BEGIN block'
46 is &CORE::__SUB__->(0), "begin 2", 'in BEGIN block via & (unoptimised)'
52 is CORE::__SUB__, \&bar, 'in sort block in sub with forw decl'
59 is &CORE::__SUB__, \&bur, '& in sort block in sub with forw decl'
66 grep { is CORE::__SUB__, \&squog,
73 grep { is &CORE::__SUB__, \&squag,
91 prog => '$f = sub(){CORE::__SUB__}; print qq-ok\n- if $f == &$f;',
H A Dcoresubs.t3 # This script tests the inlining and prototype of CORE:: subs. Any generic
18 __DATA__ __END__ ADJUST AUTOLOAD BEGIN UNITCHECK CORE DESTROY END INIT CHECK
52 ok !defined &{"CORE::$word"}, "no CORE::$word";
57 ok defined &{"CORE::$word"}, "defined &{'CORE::$word'}";
59 my $proto = prototype "CORE::$word";
60 *{"my$word"} = \&{"CORE::$word"};
61 is prototype \&{"my$word"}, $proto, "prototype of &CORE::$word";
63 CORE
[all...]
H A Drequire_override.t48 *CORE::GLOBAL::require = *CORE::GLOBAL::require = sub { };
H A Dglob.t65 local %CORE::GLOBAL::;
67 ok(!length($@),"remove File::Glob stash *and* CORE::GLOBAL::glob");
71 local *CORE::GLOBAL::glob;
73 'undefined *CORE::GLOBAL::glob{CODE} at run time';
78 local %CORE::GLOBAL::;
80 'undefined *CORE::GLOBAL::glob{CODE} at compile time';
115 local *CORE::GLOBAL::glob = sub { ++$called };
116 eval 'CORE::glob("0")';
117 ok !$called, 'CORE::glob bypasses overrides';
129 my $name = "Make sure the presence of the CORE
[all...]
H A Dcoreamp.t3 # This file tests the results of calling subroutines in the CORE::
8 # Other tests for CORE subs are in coresubs.t
54 *{"my$o"} = \&{"CORE::$o"};
56 my $p = prototype "CORE::$o";
62 eval " &CORE::$o(1) ";
69 eval " &CORE::$o(1,2) ";
83 is &{"CORE::$o"}($in), $out, "&$o";
84 lis [&{"CORE::$o"}($in)], [$out], "&$o in list context";
87 is &{"CORE::$o"}(), $out, "&$o with no args";
92 eval " &CORE
[all...]
H A Ddump.t51 # fresh_perl_like() does. So execute each CORE::dump() in a sub-process.
58 # When the perl process coredumps after calling CORE::dump(), the parent
86 CORE::dump;
91 fresh_perl_like(<<'PROG', qr/A(?!B\z)/, {}, "CORE::dump with label quits"); BEGIN {$SIG {__WARN__} = sub {1;}}
101 CORE::dump foo;
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Harness/t/
H A Dspool.t24 *CORE::GLOBAL::open = \&my_open;
33 return CORE::open($handle);
36 return CORE::open( $handle, $_[1] );
48 *CORE::GLOBAL::close = sub (*) {
49 if ($useOrigClose) { return CORE::close(shift) }
127 # use the broken CORE::close
/openbsd-current/gnu/usr.bin/perl/cpan/Scalar-List-Utils/t/
H A Dprototype.t11 is( CORE::prototype('f'), undef, 'no prototype from CORE');
15 is( CORE::prototype('f'), '$', 'prototype from CORE');
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Harness/t/lib/
H A DNoFork.pm4 *CORE::GLOBAL::fork = sub { die "you should not fork" };
/openbsd-current/gnu/usr.bin/perl/lib/B/
H A DDeparse.t250 `$^X $path "-MO=Deparse" -e "BEGIN{*CORE::GLOBAL::require=sub{1}}" 2>&1`;
252 is($a, <<'EOCODF', "CORE::GLOBAL::require override causing panick");
254 *CORE::GLOBAL::require = sub {
345 # CORE::format
347 .qq` my sub format; CORE::format =" -e. 2>&1`;
348 like($a, qr/CORE::format/, 'CORE::format when lex format sub is in scope');
394 # CORE::no
396 .qq`"use feature q|:all|; my sub no; CORE::no less" 2>&1`;
397 like($a, qr/my sub no;\n.*CORE
[all...]
/openbsd-current/usr.sbin/pkg_add/OpenBSD/PackageRepository/
H A DPersistent.pm41 CORE::close($cmdfh);
67 CORE::close($getfh);
123 CORE::close($cmdfh);
124 CORE::close($getfh);
132 CORE::close($self->{cmdfh});
133 CORE::close($self->{getfh});
/openbsd-current/gnu/usr.bin/perl/dist/IO/t/
H A Dio_sock_errstr.t15 *CORE::GLOBAL::connect = sub { $! = EINVAL; return undef };
29 ok(!defined $sock, 'fails to connect with CORE::GLOBAL::connect override');
/openbsd-current/gnu/usr.bin/perl/lib/Time/
H A Dlocaltime.t15 my @localtime = CORE::localtime $time; # This is the localtime function
H A Dgmtime.t15 my @gmtime = CORE::gmtime $time; # This is the gmtime function
/openbsd-current/gnu/usr.bin/perl/ext/POSIX/t/
H A Dtime.t47 is(asctime(CORE::localtime(0)), ctime(0), "asctime() and ctime() at zero");
49 is(asctime(CORE::localtime(12345678)), ctime(12345678),
66 is(ctime($jan_16), strftime("%a %b %d %H:%M:%S %Y\n", CORE::localtime($jan_16)),
70 is(strftime("%Y\x{5e74}%m\x{6708}%d\x{65e5}", CORE::gmtime($jan_16)),
79 is(ord strftime($ss, CORE::localtime), 223,
106 is(mktime(CORE::localtime($time)), $time, "mktime()");
/openbsd-current/gnu/usr.bin/perl/cpan/autodie/lib/
H A DFatal.pm80 # 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
[all...]
/openbsd-current/gnu/usr.bin/perl/ext/Win32CORE/
H A DWin32CORE.pm14 Win32CORE - Win32 CORE function stubs
18 This library provides stubs for the functions marked as [CORE] in L<Win32>.
33 CORE Win32:: functions that internally just load the Win32 module and
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/subtest/
H A Dbail_out.t18 *CORE::GLOBAL::exit = sub { $Exit_Code = shift; goto XXX if $goto; CORE::exit($Exit_Code)};

Completed in 231 milliseconds

123456