/openbsd-current/gnu/usr.bin/perl/lib/ |
H A D | bytes_heavy.pl | 5 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 D | internal-backcompat.t | 41 [ 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 D | kill.t | 12 if (not CORE::kill(0,$$)) { 16 if (CORE::kill(0, SYSINIT)) {
|
H A D | basic_exceptions.t | 23 is($@->function, 'CORE::open', "Correct dying sub");
|
/openbsd-current/gnu/usr.bin/perl/dist/base/t/ |
H A D | core-global.t | 6 BEGIN { *CORE::GLOBAL::require = sub { require $_[0] }; }
|
H A D | incdot.t | 28 my $x = sub { CORE::require $_[0] }; 31 *CORE::GLOBAL::require = $z;
|
/openbsd-current/gnu/usr.bin/perl/t/op/ |
H A D | override.t | 7 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 D | current_sub.t | 42 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 D | coresubs.t | 3 # 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 D | require_override.t | 48 *CORE::GLOBAL::require = *CORE::GLOBAL::require = sub { };
|
H A D | glob.t | 65 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 D | coreamp.t | 3 # 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 D | dump.t | 51 # 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 D | spool.t | 24 *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 D | prototype.t | 11 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 D | NoFork.pm | 4 *CORE::GLOBAL::fork = sub { die "you should not fork" };
|
/openbsd-current/gnu/usr.bin/perl/lib/B/ |
H A D | Deparse.t | 250 `$^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 D | Persistent.pm | 41 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 D | io_sock_errstr.t | 15 *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 D | localtime.t | 15 my @localtime = CORE::localtime $time; # This is the localtime function
|
H A D | gmtime.t | 15 my @gmtime = CORE::gmtime $time; # This is the gmtime function
|
/openbsd-current/gnu/usr.bin/perl/ext/POSIX/t/ |
H A D | time.t | 47 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 D | 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 [all...] |
/openbsd-current/gnu/usr.bin/perl/ext/Win32CORE/ |
H A D | Win32CORE.pm | 14 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 D | bail_out.t | 18 *CORE::GLOBAL::exit = sub { $Exit_Code = shift; goto XXX if $goto; CORE::exit($Exit_Code)};
|