| Filename | /home/s1/perl5/perlbrew/perls/perl-5.22.1/lib/5.22.1/x86_64-linux/POSIX.pm |
| Statements | Executed 35 statements in 5.12ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 671µs | 1.61ms | POSIX::BEGIN@11 |
| 1 | 1 | 1 | 556µs | 556µs | POSIX::load_imports |
| 1 | 1 | 1 | 26µs | 30µs | POSIX::BEGIN@2 |
| 1 | 1 | 1 | 24µs | 1.78ms | POSIX::import |
| 1 | 1 | 1 | 15µs | 23µs | POSIX::BEGIN@3 |
| 1 | 1 | 1 | 13µs | 18µs | POSIX::BEGIN@206 |
| 2 | 1 | 1 | 4µs | 4µs | POSIX::CORE:subst (opcode) |
| 0 | 0 | 0 | 0s | 0s | POSIX::AUTOLOAD |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigAction::flags |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigAction::handler |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigAction::mask |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigAction::new |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigAction::safe |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigRt::CLEAR |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigRt::DELETE |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigRt::EXISTS |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigRt::FETCH |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigRt::SCALAR |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigRt::STORE |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigRt::_check |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigRt::_croak |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigRt::_exist |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigRt::_getsig |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigRt::_init |
| 0 | 0 | 0 | 0s | 0s | POSIX::SigRt::new |
| 0 | 0 | 0 | 0s | 0s | POSIX::croak |
| 0 | 0 | 0 | 0s | 0s | POSIX::perror |
| 0 | 0 | 0 | 0s | 0s | POSIX::printf |
| 0 | 0 | 0 | 0s | 0s | POSIX::sprintf |
| 0 | 0 | 0 | 0s | 0s | POSIX::usage |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package POSIX; | ||||
| 2 | 2 | 39µs | 2 | 34µs | # spent 30µs (26+4) within POSIX::BEGIN@2 which was called:
# once (26µs+4µs) by DateTime::BEGIN@18 at line 2 # spent 30µs making 1 call to POSIX::BEGIN@2
# spent 4µs making 1 call to strict::import |
| 3 | 2 | 108µs | 2 | 31µs | # spent 23µs (15+8) within POSIX::BEGIN@3 which was called:
# once (15µs+8µs) by DateTime::BEGIN@18 at line 3 # spent 23µs making 1 call to POSIX::BEGIN@3
# spent 8µs making 1 call to warnings::import |
| 4 | |||||
| 5 | our ($AUTOLOAD, %SIGRT); | ||||
| 6 | |||||
| 7 | 1 | 700ns | our $VERSION = '1.53_01'; | ||
| 8 | |||||
| 9 | 1 | 900ns | require XSLoader; | ||
| 10 | |||||
| 11 | 1 | 12µs | 1 | 438µs | # spent 1.61ms (671µs+935µs) within POSIX::BEGIN@11 which was called:
# once (671µs+935µs) by DateTime::BEGIN@18 at line 17 # spent 438µs making 1 call to Exporter::import |
| 12 | F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK O_ACCMODE O_APPEND | ||||
| 13 | O_CREAT O_EXCL O_NOCTTY O_NONBLOCK O_RDONLY O_RDWR O_TRUNC | ||||
| 14 | O_WRONLY SEEK_CUR SEEK_END SEEK_SET | ||||
| 15 | S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISREG | ||||
| 16 | S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU S_ISGID S_ISUID | ||||
| 17 | 1 | 989µs | 1 | 1.61ms | S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR); # spent 1.61ms making 1 call to POSIX::BEGIN@11 |
| 18 | |||||
| 19 | 1 | 200ns | my $loaded; | ||
| 20 | |||||
| 21 | # spent 1.78ms (24µs+1.75) within POSIX::import which was called:
# once (24µs+1.75ms) by DateTime::BEGIN@18 at line 18 of DateTime.pm | ||||
| 22 | 1 | 500ns | my $pkg = shift; | ||
| 23 | |||||
| 24 | 1 | 2µs | 1 | 556µs | load_imports() unless $loaded++; # spent 556µs making 1 call to POSIX::load_imports |
| 25 | |||||
| 26 | # Grandfather old foo_h form to new :foo_h form | ||||
| 27 | 1 | 14µs | 2 | 4µs | s/^(?=\w+_h$)/:/ for my @list = @_; # spent 4µs making 2 calls to POSIX::CORE:subst, avg 2µs/call |
| 28 | |||||
| 29 | 1 | 400ns | local $Exporter::ExportLevel = 1; | ||
| 30 | 1 | 6µs | 1 | 1.19ms | Exporter::import($pkg,@list); # spent 1.19ms making 1 call to Exporter::import |
| 31 | } | ||||
| 32 | |||||
| 33 | sub croak { require Carp; goto &Carp::croak } | ||||
| 34 | sub usage { croak "Usage: POSIX::$_[0]" } | ||||
| 35 | |||||
| 36 | 1 | 696µs | 1 | 686µs | XSLoader::load(); # spent 686µs making 1 call to XSLoader::load |
| 37 | |||||
| 38 | 1 | 37µs | my %replacement = ( | ||
| 39 | atexit => 'END {}', | ||||
| 40 | atof => undef, | ||||
| 41 | atoi => undef, | ||||
| 42 | atol => undef, | ||||
| 43 | bsearch => \'not supplied', | ||||
| 44 | calloc => undef, | ||||
| 45 | clearerr => 'IO::Handle::clearerr', | ||||
| 46 | div => '/, % and int', | ||||
| 47 | execl => undef, | ||||
| 48 | execle => undef, | ||||
| 49 | execlp => undef, | ||||
| 50 | execv => undef, | ||||
| 51 | execve => undef, | ||||
| 52 | execvp => undef, | ||||
| 53 | fclose => 'IO::Handle::close', | ||||
| 54 | fdopen => 'IO::Handle::new_from_fd', | ||||
| 55 | feof => 'IO::Handle::eof', | ||||
| 56 | ferror => 'IO::Handle::error', | ||||
| 57 | fflush => 'IO::Handle::flush', | ||||
| 58 | fgetc => 'IO::Handle::getc', | ||||
| 59 | fgetpos => 'IO::Seekable::getpos', | ||||
| 60 | fgets => 'IO::Handle::gets', | ||||
| 61 | fileno => 'IO::Handle::fileno', | ||||
| 62 | fopen => 'IO::File::open', | ||||
| 63 | fprintf => 'printf', | ||||
| 64 | fputc => 'print', | ||||
| 65 | fputs => 'print', | ||||
| 66 | fread => 'read', | ||||
| 67 | free => undef, | ||||
| 68 | freopen => 'open', | ||||
| 69 | fscanf => '<> and regular expressions', | ||||
| 70 | fseek => 'IO::Seekable::seek', | ||||
| 71 | fsetpos => 'IO::Seekable::setpos', | ||||
| 72 | fsync => 'IO::Handle::sync', | ||||
| 73 | ftell => 'IO::Seekable::tell', | ||||
| 74 | fwrite => 'print', | ||||
| 75 | labs => 'abs', | ||||
| 76 | ldiv => '/, % and int', | ||||
| 77 | longjmp => 'die', | ||||
| 78 | malloc => undef, | ||||
| 79 | memchr => 'index()', | ||||
| 80 | memcmp => 'eq', | ||||
| 81 | memcpy => '=', | ||||
| 82 | memmove => '=', | ||||
| 83 | memset => 'x', | ||||
| 84 | offsetof => undef, | ||||
| 85 | putc => 'print', | ||||
| 86 | putchar => 'print', | ||||
| 87 | puts => 'print', | ||||
| 88 | qsort => 'sort', | ||||
| 89 | rand => \'non-portable, use Perl\'s rand instead', | ||||
| 90 | realloc => undef, | ||||
| 91 | scanf => '<> and regular expressions', | ||||
| 92 | setbuf => 'IO::Handle::setbuf', | ||||
| 93 | setjmp => 'eval {}', | ||||
| 94 | setvbuf => 'IO::Handle::setvbuf', | ||||
| 95 | siglongjmp => 'die', | ||||
| 96 | sigsetjmp => 'eval {}', | ||||
| 97 | srand => \'not supplied; refer to Perl\'s srand documentation', | ||||
| 98 | sscanf => 'regular expressions', | ||||
| 99 | strcat => '.=', | ||||
| 100 | strchr => 'index()', | ||||
| 101 | strcmp => 'eq', | ||||
| 102 | strcpy => '=', | ||||
| 103 | strcspn => 'regular expressions', | ||||
| 104 | strlen => 'length', | ||||
| 105 | strncat => '.=', | ||||
| 106 | strncmp => 'eq', | ||||
| 107 | strncpy => '=', | ||||
| 108 | strpbrk => undef, | ||||
| 109 | strrchr => 'rindex()', | ||||
| 110 | strspn => undef, | ||||
| 111 | strtok => undef, | ||||
| 112 | tmpfile => 'IO::File::new_tmpfile', | ||||
| 113 | ungetc => 'IO::Handle::ungetc', | ||||
| 114 | vfprintf => undef, | ||||
| 115 | vprintf => undef, | ||||
| 116 | vsprintf => undef, | ||||
| 117 | ); | ||||
| 118 | |||||
| 119 | 1 | 29µs | my %reimpl = ( | ||
| 120 | assert => 'expr => croak "Assertion failed" if !$_[0]', | ||||
| 121 | tolower => 'string => lc($_[0])', | ||||
| 122 | toupper => 'string => uc($_[0])', | ||||
| 123 | closedir => 'dirhandle => CORE::closedir($_[0])', | ||||
| 124 | opendir => 'directory => my $dh; CORE::opendir($dh, $_[0]) ? $dh : undef', | ||||
| 125 | readdir => 'dirhandle => CORE::readdir($_[0])', | ||||
| 126 | rewinddir => 'dirhandle => CORE::rewinddir($_[0])', | ||||
| 127 | errno => '$! + 0', | ||||
| 128 | creat => 'filename, mode => &open($_[0], &O_WRONLY | &O_CREAT | &O_TRUNC, $_[1])', | ||||
| 129 | fcntl => 'filehandle, cmd, arg => CORE::fcntl($_[0], $_[1], $_[2])', | ||||
| 130 | getgrgid => 'gid => CORE::getgrgid($_[0])', | ||||
| 131 | getgrnam => 'name => CORE::getgrnam($_[0])', | ||||
| 132 | atan2 => 'x, y => CORE::atan2($_[0], $_[1])', | ||||
| 133 | cos => 'x => CORE::cos($_[0])', | ||||
| 134 | exp => 'x => CORE::exp($_[0])', | ||||
| 135 | fabs => 'x => CORE::abs($_[0])', | ||||
| 136 | log => 'x => CORE::log($_[0])', | ||||
| 137 | pow => 'x, exponent => $_[0] ** $_[1]', | ||||
| 138 | sin => 'x => CORE::sin($_[0])', | ||||
| 139 | sqrt => 'x => CORE::sqrt($_[0])', | ||||
| 140 | getpwnam => 'name => CORE::getpwnam($_[0])', | ||||
| 141 | getpwuid => 'uid => CORE::getpwuid($_[0])', | ||||
| 142 | kill => 'pid, sig => CORE::kill $_[1], $_[0]', | ||||
| 143 | raise => 'sig => CORE::kill $_[0], $$; # Is this good enough', | ||||
| 144 | getc => 'handle => CORE::getc($_[0])', | ||||
| 145 | getchar => 'CORE::getc(STDIN)', | ||||
| 146 | gets => 'scalar <STDIN>', | ||||
| 147 | remove => 'filename => (-d $_[0]) ? CORE::rmdir($_[0]) : CORE::unlink($_[0])', | ||||
| 148 | rename => 'oldfilename, newfilename => CORE::rename($_[0], $_[1])', | ||||
| 149 | rewind => 'filehandle => CORE::seek($_[0],0,0)', | ||||
| 150 | abs => 'x => CORE::abs($_[0])', | ||||
| 151 | exit => 'status => CORE::exit($_[0])', | ||||
| 152 | getenv => 'name => $ENV{$_[0]}', | ||||
| 153 | system => 'command => CORE::system($_[0])', | ||||
| 154 | strerror => 'errno => BEGIN { local $!; require locale; locale->import} my $e = $_[0] + 0; local $!; $! = $e; "$!"', | ||||
| 155 | strstr => 'big, little => CORE::index($_[0], $_[1])', | ||||
| 156 | chmod => 'mode, filename => CORE::chmod($_[0], $_[1])', | ||||
| 157 | fstat => 'fd => CORE::open my $dup, "<&", $_[0]; CORE::stat($dup)', # Gross. | ||||
| 158 | mkdir => 'directoryname, mode => CORE::mkdir($_[0], $_[1])', | ||||
| 159 | stat => 'filename => CORE::stat($_[0])', | ||||
| 160 | umask => 'mask => CORE::umask($_[0])', | ||||
| 161 | wait => 'CORE::wait()', | ||||
| 162 | waitpid => 'pid, options => CORE::waitpid($_[0], $_[1])', | ||||
| 163 | gmtime => 'time => CORE::gmtime($_[0])', | ||||
| 164 | localtime => 'time => CORE::localtime($_[0])', | ||||
| 165 | time => 'CORE::time', | ||||
| 166 | alarm => 'seconds => CORE::alarm($_[0])', | ||||
| 167 | chdir => 'directory => CORE::chdir($_[0])', | ||||
| 168 | chown => 'uid, gid, filename => CORE::chown($_[0], $_[1], $_[2])', | ||||
| 169 | fork => 'CORE::fork', | ||||
| 170 | getegid => '$) + 0', | ||||
| 171 | geteuid => '$> + 0', | ||||
| 172 | getgid => '$( + 0', | ||||
| 173 | getgroups => 'my %seen; grep !$seen{$_}++, split " ", $)', | ||||
| 174 | getlogin => 'CORE::getlogin()', | ||||
| 175 | getpgrp => 'CORE::getpgrp', | ||||
| 176 | getpid => '$$', | ||||
| 177 | getppid => 'CORE::getppid', | ||||
| 178 | getuid => '$<', | ||||
| 179 | isatty => 'filehandle => -t $_[0]', | ||||
| 180 | link => 'oldfilename, newfilename => CORE::link($_[0], $_[1])', | ||||
| 181 | rmdir => 'directoryname => CORE::rmdir($_[0])', | ||||
| 182 | unlink => 'filename => CORE::unlink($_[0])', | ||||
| 183 | utime => 'filename, atime, mtime => CORE::utime($_[1], $_[2], $_[0])', | ||||
| 184 | ); | ||||
| 185 | |||||
| 186 | 1 | 558µs | eval join ';', map "sub $_", keys %replacement, keys %reimpl; | ||
| 187 | |||||
| 188 | sub AUTOLOAD { | ||||
| 189 | my ($func) = ($AUTOLOAD =~ /.*::(.*)/); | ||||
| 190 | |||||
| 191 | die "POSIX.xs has failed to load\n" if $func eq 'constant'; | ||||
| 192 | |||||
| 193 | if (my $code = $reimpl{$func}) { | ||||
| 194 | my ($num, $arg) = (0, ''); | ||||
| 195 | if ($code =~ s/^(.*?) *=> *//) { | ||||
| 196 | $arg = $1; | ||||
| 197 | $num = 1 + $arg =~ tr/,//; | ||||
| 198 | } | ||||
| 199 | # no warnings to be consistent with the old implementation, where each | ||||
| 200 | # function was in its own little AutoSplit world: | ||||
| 201 | eval qq{ sub $func { | ||||
| 202 | no warnings; | ||||
| 203 | usage "$func($arg)" if \@_ != $num; | ||||
| 204 | $code | ||||
| 205 | } }; | ||||
| 206 | 2 | 1.68ms | 2 | 24µs | # spent 18µs (13+6) within POSIX::BEGIN@206 which was called:
# once (13µs+6µs) by DateTime::BEGIN@18 at line 206 # spent 18µs making 1 call to POSIX::BEGIN@206
# spent 6µs making 1 call to strict::unimport |
| 207 | goto &$AUTOLOAD; | ||||
| 208 | } | ||||
| 209 | if (exists $replacement{$func}) { | ||||
| 210 | my $how = $replacement{$func}; | ||||
| 211 | croak "Unimplemented: POSIX::$func() is C-specific, stopped" | ||||
| 212 | unless defined $how; | ||||
| 213 | croak "Unimplemented: POSIX::$func() is $$how" if ref $how; | ||||
| 214 | croak "Use method $how() instead of POSIX::$func()" if $how =~ /::/; | ||||
| 215 | croak "Unimplemented: POSIX::$func() is C-specific: use $how instead"; | ||||
| 216 | } | ||||
| 217 | |||||
| 218 | constant($func); | ||||
| 219 | } | ||||
| 220 | |||||
| 221 | sub perror { | ||||
| 222 | print STDERR "@_: " if @_; | ||||
| 223 | print STDERR $!,"\n"; | ||||
| 224 | } | ||||
| 225 | |||||
| 226 | sub printf { | ||||
| 227 | usage "printf(pattern, args...)" if @_ < 1; | ||||
| 228 | CORE::printf STDOUT @_; | ||||
| 229 | } | ||||
| 230 | |||||
| 231 | sub sprintf { | ||||
| 232 | usage "sprintf(pattern, args...)" if @_ == 0; | ||||
| 233 | CORE::sprintf(shift,@_); | ||||
| 234 | } | ||||
| 235 | |||||
| 236 | # spent 556µs within POSIX::load_imports which was called:
# once (556µs+0s) by POSIX::import at line 24 | ||||
| 237 | 1 | 68µs | my %default_export_tags = ( | ||
| 238 | |||||
| 239 | assert_h => [qw(assert NDEBUG)], | ||||
| 240 | |||||
| 241 | ctype_h => [qw(isalnum isalpha iscntrl isdigit isgraph islower | ||||
| 242 | isprint ispunct isspace isupper isxdigit tolower toupper)], | ||||
| 243 | |||||
| 244 | dirent_h => [], | ||||
| 245 | |||||
| 246 | errno_h => [qw(E2BIG EACCES EADDRINUSE EADDRNOTAVAIL EAFNOSUPPORT EAGAIN | ||||
| 247 | EALREADY EBADF EBADMSG EBUSY ECANCELED ECHILD ECONNABORTED | ||||
| 248 | ECONNREFUSED ECONNRESET EDEADLK EDESTADDRREQ EDOM EDQUOT EEXIST | ||||
| 249 | EFAULT EFBIG EHOSTDOWN EHOSTUNREACH EIDRM EILSEQ EINPROGRESS | ||||
| 250 | EINTR EINVAL EIO EISCONN EISDIR ELOOP EMFILE EMLINK EMSGSIZE | ||||
| 251 | ENAMETOOLONG ENETDOWN ENETRESET ENETUNREACH ENFILE ENOBUFS | ||||
| 252 | ENODATA ENODEV ENOENT ENOEXEC ENOLCK ENOLINK ENOMEM ENOMSG | ||||
| 253 | ENOPROTOOPT ENOSPC ENOSR ENOSTR ENOSYS ENOTBLK ENOTCONN ENOTDIR | ||||
| 254 | ENOTEMPTY ENOTRECOVERABLE ENOTSOCK ENOTSUP ENOTTY ENXIO | ||||
| 255 | EOPNOTSUPP EOTHER EOVERFLOW EOWNERDEAD EPERM EPFNOSUPPORT EPIPE | ||||
| 256 | EPROCLIM EPROTO EPROTONOSUPPORT EPROTOTYPE ERANGE EREMOTE | ||||
| 257 | ERESTART EROFS ESHUTDOWN ESOCKTNOSUPPORT ESPIPE ESRCH ESTALE | ||||
| 258 | ETIME ETIMEDOUT ETOOMANYREFS ETXTBSY EUSERS EWOULDBLOCK EXDEV | ||||
| 259 | errno)], | ||||
| 260 | |||||
| 261 | fcntl_h => [qw(FD_CLOEXEC F_DUPFD F_GETFD F_GETFL F_GETLK F_RDLCK | ||||
| 262 | F_SETFD F_SETFL F_SETLK F_SETLKW F_UNLCK F_WRLCK | ||||
| 263 | O_ACCMODE O_APPEND O_CREAT O_EXCL O_NOCTTY O_NONBLOCK | ||||
| 264 | O_RDONLY O_RDWR O_TRUNC O_WRONLY | ||||
| 265 | creat | ||||
| 266 | SEEK_CUR SEEK_END SEEK_SET | ||||
| 267 | S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU | ||||
| 268 | S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG S_ISUID | ||||
| 269 | S_IWGRP S_IWOTH S_IWUSR)], | ||||
| 270 | |||||
| 271 | float_h => [qw(DBL_DIG DBL_EPSILON DBL_MANT_DIG | ||||
| 272 | DBL_MAX DBL_MAX_10_EXP DBL_MAX_EXP | ||||
| 273 | DBL_MIN DBL_MIN_10_EXP DBL_MIN_EXP | ||||
| 274 | FLT_DIG FLT_EPSILON FLT_MANT_DIG | ||||
| 275 | FLT_MAX FLT_MAX_10_EXP FLT_MAX_EXP | ||||
| 276 | FLT_MIN FLT_MIN_10_EXP FLT_MIN_EXP | ||||
| 277 | FLT_RADIX FLT_ROUNDS | ||||
| 278 | LDBL_DIG LDBL_EPSILON LDBL_MANT_DIG | ||||
| 279 | LDBL_MAX LDBL_MAX_10_EXP LDBL_MAX_EXP | ||||
| 280 | LDBL_MIN LDBL_MIN_10_EXP LDBL_MIN_EXP)], | ||||
| 281 | |||||
| 282 | grp_h => [], | ||||
| 283 | |||||
| 284 | limits_h => [qw( ARG_MAX CHAR_BIT CHAR_MAX CHAR_MIN CHILD_MAX | ||||
| 285 | INT_MAX INT_MIN LINK_MAX LONG_MAX LONG_MIN MAX_CANON | ||||
| 286 | MAX_INPUT MB_LEN_MAX NAME_MAX NGROUPS_MAX OPEN_MAX | ||||
| 287 | PATH_MAX PIPE_BUF SCHAR_MAX SCHAR_MIN SHRT_MAX SHRT_MIN | ||||
| 288 | SSIZE_MAX STREAM_MAX TZNAME_MAX UCHAR_MAX UINT_MAX | ||||
| 289 | ULONG_MAX USHRT_MAX _POSIX_ARG_MAX _POSIX_CHILD_MAX | ||||
| 290 | _POSIX_LINK_MAX _POSIX_MAX_CANON _POSIX_MAX_INPUT | ||||
| 291 | _POSIX_NAME_MAX _POSIX_NGROUPS_MAX _POSIX_OPEN_MAX | ||||
| 292 | _POSIX_PATH_MAX _POSIX_PIPE_BUF _POSIX_SSIZE_MAX | ||||
| 293 | _POSIX_STREAM_MAX _POSIX_TZNAME_MAX)], | ||||
| 294 | |||||
| 295 | locale_h => [qw(LC_ALL LC_COLLATE LC_CTYPE LC_MESSAGES | ||||
| 296 | LC_MONETARY LC_NUMERIC LC_TIME NULL | ||||
| 297 | localeconv setlocale)], | ||||
| 298 | |||||
| 299 | math_h => [qw(FP_ILOGB0 FP_ILOGBNAN FP_INFINITE FP_NAN FP_NORMAL | ||||
| 300 | FP_SUBNORMAL FP_ZERO | ||||
| 301 | M_1_PI M_2_PI M_2_SQRTPI M_E M_LN10 M_LN2 M_LOG10E M_LOG2E | ||||
| 302 | M_PI M_PI_2 M_PI_4 M_SQRT1_2 M_SQRT2 | ||||
| 303 | HUGE_VAL INFINITY NAN | ||||
| 304 | acos asin atan ceil cosh fabs floor fmod | ||||
| 305 | frexp ldexp log10 modf pow sinh tan tanh)], | ||||
| 306 | |||||
| 307 | pwd_h => [], | ||||
| 308 | |||||
| 309 | setjmp_h => [qw(longjmp setjmp siglongjmp sigsetjmp)], | ||||
| 310 | |||||
| 311 | signal_h => [qw(SA_NOCLDSTOP SA_NOCLDWAIT SA_NODEFER SA_ONSTACK | ||||
| 312 | SA_RESETHAND SA_RESTART SA_SIGINFO SIGABRT SIGALRM | ||||
| 313 | SIGCHLD SIGCONT SIGFPE SIGHUP SIGILL SIGINT SIGKILL | ||||
| 314 | SIGPIPE %SIGRT SIGRTMIN SIGRTMAX SIGQUIT SIGSEGV SIGSTOP | ||||
| 315 | SIGTERM SIGTSTP SIGTTIN SIGTTOU SIGUSR1 SIGUSR2 SIGBUS | ||||
| 316 | SIGPOLL SIGPROF SIGSYS SIGTRAP SIGURG SIGVTALRM SIGXCPU SIGXFSZ | ||||
| 317 | SIG_BLOCK SIG_DFL SIG_ERR SIG_IGN SIG_SETMASK SIG_UNBLOCK | ||||
| 318 | raise sigaction signal sigpending sigprocmask sigsuspend)], | ||||
| 319 | |||||
| 320 | stdarg_h => [], | ||||
| 321 | |||||
| 322 | stddef_h => [qw(NULL offsetof)], | ||||
| 323 | |||||
| 324 | stdio_h => [qw(BUFSIZ EOF FILENAME_MAX L_ctermid L_cuserid | ||||
| 325 | L_tmpname NULL SEEK_CUR SEEK_END SEEK_SET | ||||
| 326 | STREAM_MAX TMP_MAX stderr stdin stdout | ||||
| 327 | clearerr fclose fdopen feof ferror fflush fgetc fgetpos | ||||
| 328 | fgets fopen fprintf fputc fputs fread freopen | ||||
| 329 | fscanf fseek fsetpos ftell fwrite getchar gets | ||||
| 330 | perror putc putchar puts remove rewind | ||||
| 331 | scanf setbuf setvbuf sscanf tmpfile tmpnam | ||||
| 332 | ungetc vfprintf vprintf vsprintf)], | ||||
| 333 | |||||
| 334 | stdlib_h => [qw(EXIT_FAILURE EXIT_SUCCESS MB_CUR_MAX NULL RAND_MAX | ||||
| 335 | abort atexit atof atoi atol bsearch calloc div | ||||
| 336 | free getenv labs ldiv malloc mblen mbstowcs mbtowc | ||||
| 337 | qsort realloc strtod strtol strtoul wcstombs wctomb)], | ||||
| 338 | |||||
| 339 | string_h => [qw(NULL memchr memcmp memcpy memmove memset strcat | ||||
| 340 | strchr strcmp strcoll strcpy strcspn strerror strlen | ||||
| 341 | strncat strncmp strncpy strpbrk strrchr strspn strstr | ||||
| 342 | strtok strxfrm)], | ||||
| 343 | |||||
| 344 | sys_stat_h => [qw(S_IRGRP S_IROTH S_IRUSR S_IRWXG S_IRWXO S_IRWXU | ||||
| 345 | S_ISBLK S_ISCHR S_ISDIR S_ISFIFO S_ISGID S_ISREG | ||||
| 346 | S_ISUID S_IWGRP S_IWOTH S_IWUSR S_IXGRP S_IXOTH S_IXUSR | ||||
| 347 | fstat mkfifo)], | ||||
| 348 | |||||
| 349 | sys_times_h => [], | ||||
| 350 | |||||
| 351 | sys_types_h => [], | ||||
| 352 | |||||
| 353 | sys_utsname_h => [qw(uname)], | ||||
| 354 | |||||
| 355 | sys_wait_h => [qw(WEXITSTATUS WIFEXITED WIFSIGNALED WIFSTOPPED | ||||
| 356 | WNOHANG WSTOPSIG WTERMSIG WUNTRACED)], | ||||
| 357 | |||||
| 358 | termios_h => [qw( B0 B110 B1200 B134 B150 B1800 B19200 B200 B2400 | ||||
| 359 | B300 B38400 B4800 B50 B600 B75 B9600 BRKINT CLOCAL | ||||
| 360 | CREAD CS5 CS6 CS7 CS8 CSIZE CSTOPB ECHO ECHOE ECHOK | ||||
| 361 | ECHONL HUPCL ICANON ICRNL IEXTEN IGNBRK IGNCR IGNPAR | ||||
| 362 | INLCR INPCK ISIG ISTRIP IXOFF IXON NCCS NOFLSH OPOST | ||||
| 363 | PARENB PARMRK PARODD TCIFLUSH TCIOFF TCIOFLUSH TCION | ||||
| 364 | TCOFLUSH TCOOFF TCOON TCSADRAIN TCSAFLUSH TCSANOW | ||||
| 365 | TOSTOP VEOF VEOL VERASE VINTR VKILL VMIN VQUIT VSTART | ||||
| 366 | VSTOP VSUSP VTIME | ||||
| 367 | cfgetispeed cfgetospeed cfsetispeed cfsetospeed tcdrain | ||||
| 368 | tcflow tcflush tcgetattr tcsendbreak tcsetattr )], | ||||
| 369 | |||||
| 370 | time_h => [qw(CLK_TCK CLOCKS_PER_SEC NULL asctime clock ctime | ||||
| 371 | difftime mktime strftime tzset tzname)], | ||||
| 372 | |||||
| 373 | unistd_h => [qw(F_OK NULL R_OK SEEK_CUR SEEK_END SEEK_SET | ||||
| 374 | STDERR_FILENO STDIN_FILENO STDOUT_FILENO W_OK X_OK | ||||
| 375 | _PC_CHOWN_RESTRICTED _PC_LINK_MAX _PC_MAX_CANON | ||||
| 376 | _PC_MAX_INPUT _PC_NAME_MAX _PC_NO_TRUNC _PC_PATH_MAX | ||||
| 377 | _PC_PIPE_BUF _PC_VDISABLE _POSIX_CHOWN_RESTRICTED | ||||
| 378 | _POSIX_JOB_CONTROL _POSIX_NO_TRUNC _POSIX_SAVED_IDS | ||||
| 379 | _POSIX_VDISABLE _POSIX_VERSION _SC_ARG_MAX | ||||
| 380 | _SC_CHILD_MAX _SC_CLK_TCK _SC_JOB_CONTROL | ||||
| 381 | _SC_NGROUPS_MAX _SC_OPEN_MAX _SC_PAGESIZE _SC_SAVED_IDS | ||||
| 382 | _SC_STREAM_MAX _SC_TZNAME_MAX _SC_VERSION | ||||
| 383 | _exit access ctermid cuserid | ||||
| 384 | dup2 dup execl execle execlp execv execve execvp | ||||
| 385 | fpathconf fsync getcwd getegid geteuid getgid getgroups | ||||
| 386 | getpid getuid isatty lseek pathconf pause setgid setpgid | ||||
| 387 | setsid setuid sysconf tcgetpgrp tcsetpgrp ttyname)], | ||||
| 388 | |||||
| 389 | utime_h => [], | ||||
| 390 | ); | ||||
| 391 | |||||
| 392 | my %other_export_tags = ( | ||||
| 393 | fenv_h => [qw( | ||||
| 394 | FE_DOWNWARD FE_TONEAREST FE_TOWARDZERO FE_UPWARD fegetround fesetround | ||||
| 395 | )], | ||||
| 396 | |||||
| 397 | math_h_c99 => [ @{$default_export_tags{math_h}}, qw( | ||||
| 398 | Inf NaN acosh asinh atanh cbrt copysign erf erfc exp2 expm1 fdim fma | ||||
| 399 | fmax fmin fpclassify hypot ilogb isfinite isgreater isgreaterequal | ||||
| 400 | isinf isless islessequal islessgreater isnan isnormal isunordered j0 j1 | ||||
| 401 | jn lgamma log1p log2 logb lrint nan nearbyint nextafter nexttoward | ||||
| 402 | remainder remquo rint round scalbn signbit tgamma trunc y0 y1 yn | ||||
| 403 | )], | ||||
| 404 | |||||
| 405 | 1 | 14µs | stdlib_h_c99 => [ @{$default_export_tags{stdlib_h}}, 'strtold' ], | ||
| 406 | ); | ||||
| 407 | |||||
| 408 | { | ||||
| 409 | # De-duplicate the export list: | ||||
| 410 | 2 | 2µs | my ( %export, %export_ok ); | ||
| 411 | 1 | 208µs | @export {map {@$_} values %default_export_tags} = (); | ||
| 412 | 1 | 36µs | @export_ok{map {@$_} values %other_export_tags} = (); | ||
| 413 | # Doing the de-dup with a temporary hash has the advantage that the SVs in | ||||
| 414 | # @EXPORT are actually shared hash key scalars, which will save some memory. | ||||
| 415 | 1 | 116µs | our @EXPORT = keys %export; | ||
| 416 | |||||
| 417 | our @EXPORT_OK = (qw(close lchown nice open pipe read sleep times write | ||||
| 418 | printf sprintf), | ||||
| 419 | 1 | 64µs | grep {!exists $export{$_}} keys %reimpl, keys %replacement, keys %export_ok); | ||
| 420 | |||||
| 421 | 1 | 45µs | our %EXPORT_TAGS = ( %default_export_tags, %other_export_tags ); | ||
| 422 | } | ||||
| 423 | |||||
| 424 | 1 | 8µs | require Exporter; | ||
| 425 | } | ||||
| 426 | |||||
| 427 | package POSIX::SigAction; | ||||
| 428 | |||||
| 429 | sub new { bless {HANDLER => $_[1], MASK => $_[2], FLAGS => $_[3] || 0, SAFE => 0}, $_[0] } | ||||
| 430 | sub handler { $_[0]->{HANDLER} = $_[1] if @_ > 1; $_[0]->{HANDLER} }; | ||||
| 431 | sub mask { $_[0]->{MASK} = $_[1] if @_ > 1; $_[0]->{MASK} }; | ||||
| 432 | sub flags { $_[0]->{FLAGS} = $_[1] if @_ > 1; $_[0]->{FLAGS} }; | ||||
| 433 | sub safe { $_[0]->{SAFE} = $_[1] if @_ > 1; $_[0]->{SAFE} }; | ||||
| 434 | |||||
| 435 | { | ||||
| 436 | 1 | 600ns | package POSIX::SigSet; | ||
| 437 | # This package is here entirely to make sure that POSIX::SigSet is seen by the | ||||
| 438 | # PAUSE indexer, so that it will always be clearly indexed in core. This is to | ||||
| 439 | # prevent the accidental case where a third-party distribution can accidentally | ||||
| 440 | # claim the POSIX::SigSet package, as occurred in 2011-12. -- rjbs, 2011-12-30 | ||||
| 441 | } | ||||
| 442 | |||||
| 443 | package POSIX::SigRt; | ||||
| 444 | |||||
| 445 | 1 | 338µs | require Tie::Hash; | ||
| 446 | |||||
| 447 | 1 | 8µs | our @ISA = 'Tie::StdHash'; | ||
| 448 | |||||
| 449 | our ($_SIGRTMIN, $_SIGRTMAX, $_sigrtn); | ||||
| 450 | |||||
| 451 | 1 | 200ns | our $SIGACTION_FLAGS = 0; | ||
| 452 | |||||
| 453 | sub _init { | ||||
| 454 | $_SIGRTMIN = &POSIX::SIGRTMIN; | ||||
| 455 | $_SIGRTMAX = &POSIX::SIGRTMAX; | ||||
| 456 | $_sigrtn = $_SIGRTMAX - $_SIGRTMIN; | ||||
| 457 | } | ||||
| 458 | |||||
| 459 | sub _croak { | ||||
| 460 | &_init unless defined $_sigrtn; | ||||
| 461 | die "POSIX::SigRt not available" unless defined $_sigrtn && $_sigrtn > 0; | ||||
| 462 | } | ||||
| 463 | |||||
| 464 | sub _getsig { | ||||
| 465 | &_croak; | ||||
| 466 | my $rtsig = $_[0]; | ||||
| 467 | # Allow (SIGRT)?MIN( + n)?, a common idiom when doing these things in C. | ||||
| 468 | $rtsig = $_SIGRTMIN + ($1 || 0) | ||||
| 469 | if $rtsig =~ /^(?:(?:SIG)?RT)?MIN(\s*\+\s*(\d+))?$/; | ||||
| 470 | return $rtsig; | ||||
| 471 | } | ||||
| 472 | |||||
| 473 | sub _exist { | ||||
| 474 | my $rtsig = _getsig($_[1]); | ||||
| 475 | my $ok = $rtsig >= $_SIGRTMIN && $rtsig <= $_SIGRTMAX; | ||||
| 476 | ($rtsig, $ok); | ||||
| 477 | } | ||||
| 478 | |||||
| 479 | sub _check { | ||||
| 480 | my ($rtsig, $ok) = &_exist; | ||||
| 481 | die "No POSIX::SigRt signal $_[1] (valid range SIGRTMIN..SIGRTMAX, or $_SIGRTMIN..$_SIGRTMAX)" | ||||
| 482 | unless $ok; | ||||
| 483 | return $rtsig; | ||||
| 484 | } | ||||
| 485 | |||||
| 486 | sub new { | ||||
| 487 | my ($rtsig, $handler, $flags) = @_; | ||||
| 488 | my $sigset = POSIX::SigSet->new($rtsig); | ||||
| 489 | my $sigact = POSIX::SigAction->new($handler, $sigset, $flags); | ||||
| 490 | POSIX::sigaction($rtsig, $sigact); | ||||
| 491 | } | ||||
| 492 | |||||
| 493 | sub EXISTS { &_exist } | ||||
| 494 | sub FETCH { my $rtsig = &_check; | ||||
| 495 | my $oa = POSIX::SigAction->new(); | ||||
| 496 | POSIX::sigaction($rtsig, undef, $oa); | ||||
| 497 | return $oa->{HANDLER} } | ||||
| 498 | sub STORE { my $rtsig = &_check; new($rtsig, $_[2], $SIGACTION_FLAGS) } | ||||
| 499 | sub DELETE { delete $SIG{ &_check } } | ||||
| 500 | sub CLEAR { &_exist; delete @SIG{ &POSIX::SIGRTMIN .. &POSIX::SIGRTMAX } } | ||||
| 501 | sub SCALAR { &_croak; $_sigrtn + 1 } | ||||
| 502 | |||||
| 503 | 1 | 36µs | 1 | 3µs | tie %POSIX::SIGRT, 'POSIX::SigRt'; # spent 3µs making 1 call to Tie::StdHash::TIEHASH |
| 504 | # and the expression on the line above is true, so we return true. | ||||
# spent 4µs within POSIX::CORE:subst which was called 2 times, avg 2µs/call:
# 2 times (4µs+0s) by POSIX::import at line 27, avg 2µs/call |