POSIX-Run-Capture
view release on metacpan or search on metacpan
29629729829930030130230330430530630730830931031131231331431531621783
stat
(
"/usr/lib64/perl5/vendor_perl/overloading.pm"
, 0x7ffffff2c920) = -1 ENOENT (No such file or directory)
21783
stat
(
"/usr/share/perl5/vendor_perl/overloading.pmc"
, 0x7ffffff2c920) = -1 ENOENT (No such file or directory)
21783
stat
(
"/usr/share/perl5/vendor_perl/overloading.pm"
, 0x7ffffff2c920) = -1 ENOENT (No such file or directory)
21783
stat
(
"/usr/lib64/perl5/overloading.pmc"
, 0x7ffffff2c920) = -1 ENOENT (No such file or directory)
21783
stat
(
"/usr/lib64/perl5/overloading.pm"
, 0x7ffffff2c920) = -1 ENOENT (No such file or directory)
21783
stat
(
"/usr/share/perl5/overloading.pmc"
, 0x7ffffff2c920) = -1 ENOENT (No such file or directory)
21783
stat
(
"/usr/share/perl5/overloading.pm"
, {st_mode=S_IFREG|0444, st_size=1808, ...}) = 0
21783
open
(
"/usr/share/perl5/overloading.pm"
, O_RDONLY|O_CLOEXEC) = 5
21783
ioctl
(5, TCGETS, 0x7ffffff2c6e0) = -1 ENOTTY (Inappropriate
ioctl
for
device)
21783 lseek(5, 0, SEEK_CUR) = 0
21783
read
(5, "
package
overloading;\nuse warnings;\n\nour
$VERSION
=
'0.02'
;\n\nmy
$HINT_NO_AMAGIC
= 0x01000000;
# see perl.h\n\nrequire 5.010001;\n\nsub _ops_to_nums {\n require overload::numbers;\n\n map { exists $overload::numbers::names{\"(...
21783 brk(0x2013000) = 0x2013000
21783 lseek(5, 963, SEEK_SET) = 963
21783 lseek(5, 0, SEEK_CUR) = 963
21783
close
(5) = 0
21783
read
(4, "ef;
# allow caller to format reference arguments\n\nrequire Exporter;\nour @ISA = ('Exporter');\nour @EXPORT = qw(confess croak carp);\nour @EXPORT_OK = qw(cluck verbose longmess shortmess);\nour @EXPORT_FAIL = qw(verbose); ...
21783 brk(0x2034000) = 0x2034000
21783
read
(4, "le to all\n
# Perl versions and platforms (such as EBCDIC). There are other more\n # compact ways to do this, but may not work everywhere every version.\n $arg =~ s/([^ !\"#\\$\\%\\&'()*+,\\-.\\/0123456789:;<=>?\\...
21783 brk(0x2055000) = 0x2055000
21783
read
(4, "d polluting the
caller
's namespace.\n if ( $stash->{$var} && ref \\$stash->{$var} eq '
GLOB'\n && *{
$stash
->{
$var
}}{ARRAY} && @{
$stash
->{
$var
}} ) {\n
return
@{
$stash
->{
$var
}}\n }\n }\n
return
;\n}\n...
21783 lseek(4, 25399, SEEK_SET) = 25399
15951596159715981599160016011602160316041605160616071608160916101611161216131614161521783
stat
(
"/usr/lib64/perl5/vendor_perl/vars.pm"
, 0x7ffffff29e00) = -1 ENOENT (No such file or directory)
21783
stat
(
"/usr/share/perl5/vendor_perl/vars.pmc"
, 0x7ffffff29e00) = -1 ENOENT (No such file or directory)
21783
stat
(
"/usr/share/perl5/vendor_perl/vars.pm"
, 0x7ffffff29e00) = -1 ENOENT (No such file or directory)
21783
stat
(
"/usr/lib64/perl5/vars.pmc"
, 0x7ffffff29e00) = -1 ENOENT (No such file or directory)
21783
stat
(
"/usr/lib64/perl5/vars.pm"
, 0x7ffffff29e00) = -1 ENOENT (No such file or directory)
21783
stat
(
"/usr/share/perl5/vars.pmc"
, 0x7ffffff29e00) = -1 ENOENT (No such file or directory)
21783
stat
(
"/usr/share/perl5/vars.pm"
, {st_mode=S_IFREG|0444, st_size=2458, ...}) = 0
21783
open
(
"/usr/share/perl5/vars.pm"
, O_RDONLY|O_CLOEXEC) = 11
21783
ioctl
(11, TCGETS, 0x7ffffff29bc0) = -1 ENOTTY (Inappropriate
ioctl
for
device)
21783 lseek(11, 0, SEEK_CUR) = 0
21783
read
(11, "
package
vars;\n\nuse 5.006;\n\nour
$VERSION
=
'1.05'
;\n\nuse warnings::register;\nuse strict
qw(vars subs)
;\n\nsub
import
{\n
my
$callpack
=
caller
;\n
my
(
undef
,
@imports
) =
@_
;\n
my
(
$sym
,
$ch
);\n
foreach
(
@imports
) {\n ...
21783 brk(0x242a000) = 0x242a000
21783 brk(0x2425000) = 0x2425000
21783 brk(0x241f000) = 0x241f000
21783 lseek(11, 1147, SEEK_SET) = 1147
21783 lseek(11, 0, SEEK_CUR) = 1147
21783
close
(11) = 0
21783 lseek(10, 926, SEEK_SET) = 926
21783 lseek(10, 0, SEEK_CUR) = 926
21783
close
(10) = 0
21783
stat
(
"t/Test2/EventFacet/Parent.pmc"
, 0x7ffffff2a530) = -1 ENOENT (No such file or directory)
( run in 0.766 second using v1.01-cache-2.11-cpan-49f99fa48dc )