This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
t/loc_tools.pl: Add fnc to see if locale category is available
[perl5.git]
/
pp_sys.c
diff --git
a/pp_sys.c
b/pp_sys.c
index
c81e67f
..
e2f8edf
100644
(file)
--- a/
pp_sys.c
+++ b/
pp_sys.c
@@
-717,7
+717,7
@@
PP(pp_pipe_op)
#endif
RETPUSHYES;
#endif
RETPUSHYES;
-badexit:
+
badexit:
RETPUSHUNDEF;
#else
DIE(aTHX_ PL_no_func, "pipe");
RETPUSHUNDEF;
#else
DIE(aTHX_ PL_no_func, "pipe");
@@
-2555,7
+2555,7
@@
PP(pp_bind)
else
RETPUSHUNDEF;
else
RETPUSHUNDEF;
-nuts:
+
nuts:
report_evil_fh(gv);
SETERRNO(EBADF,SS_IVCHAN);
RETPUSHUNDEF;
report_evil_fh(gv);
SETERRNO(EBADF,SS_IVCHAN);
RETPUSHUNDEF;
@@
-2576,7
+2576,7
@@
PP(pp_listen)
else
RETPUSHUNDEF;
else
RETPUSHUNDEF;
-nuts:
+
nuts:
report_evil_fh(gv);
SETERRNO(EBADF,SS_IVCHAN);
RETPUSHUNDEF;
report_evil_fh(gv);
SETERRNO(EBADF,SS_IVCHAN);
RETPUSHUNDEF;
@@
-2638,11
+2638,11
@@
PP(pp_accept)
PUSHp(namebuf, len);
RETURN;
PUSHp(namebuf, len);
RETURN;
-nuts:
+
nuts:
report_evil_fh(ggv);
SETERRNO(EBADF,SS_IVCHAN);
report_evil_fh(ggv);
SETERRNO(EBADF,SS_IVCHAN);
-badexit:
+
badexit:
RETPUSHUNDEF;
}
RETPUSHUNDEF;
}
@@
-2660,7
+2660,7
@@
PP(pp_shutdown)
PUSHi( PerlSock_shutdown(PerlIO_fileno(IoIFP(io)), how) >= 0 );
RETURN;
PUSHi( PerlSock_shutdown(PerlIO_fileno(IoIFP(io)), how) >= 0 );
RETURN;
-nuts:
+
nuts:
report_evil_fh(gv);
SETERRNO(EBADF,SS_IVCHAN);
RETPUSHUNDEF;
report_evil_fh(gv);
SETERRNO(EBADF,SS_IVCHAN);
RETPUSHUNDEF;
@@
-2740,10
+2740,10
@@
PP(pp_ssockopt)
}
RETURN;
}
RETURN;
-nuts:
+
nuts:
report_evil_fh(gv);
SETERRNO(EBADF,SS_IVCHAN);
report_evil_fh(gv);
SETERRNO(EBADF,SS_IVCHAN);
-nuts2:
+
nuts2:
RETPUSHUNDEF;
}
RETPUSHUNDEF;
}
@@
-2804,10
+2804,10
@@
PP(pp_getpeername)
PUSHs(sv);
RETURN;
PUSHs(sv);
RETURN;
-nuts:
+
nuts:
report_evil_fh(gv);
SETERRNO(EBADF,SS_IVCHAN);
report_evil_fh(gv);
SETERRNO(EBADF,SS_IVCHAN);
-nuts2:
+
nuts2:
RETPUSHUNDEF;
}
RETPUSHUNDEF;
}
@@
-3633,11
+3633,13
@@
PP(pp_chdir)
#endif
RETURN;
#endif
RETURN;
+#ifdef HAS_FCHDIR
nuts:
report_evil_fh(gv);
SETERRNO(EBADF,RMS_IFI);
PUSHi(0);
RETURN;
nuts:
report_evil_fh(gv);
SETERRNO(EBADF,RMS_IFI);
PUSHi(0);
RETURN;
+#endif
}
}
@@
-3943,7
+3945,7
@@
PP(pp_open_dir)
goto nope;
RETPUSHYES;
goto nope;
RETPUSHYES;
-nope:
+
nope:
if (!errno)
SETERRNO(EBADF,RMS_DIR);
RETPUSHUNDEF;
if (!errno)
SETERRNO(EBADF,RMS_DIR);
RETPUSHUNDEF;
@@
-3994,7
+3996,7
@@
PP(pp_readdir)
RETURN;
RETURN;
-nope:
+
nope:
if (!errno)
SETERRNO(EBADF,RMS_ISI);
if (gimme == G_ARRAY)
if (!errno)
SETERRNO(EBADF,RMS_ISI);
if (gimme == G_ARRAY)
@@
-4027,7
+4029,7
@@
PP(pp_telldir)
PUSHi( PerlDir_tell(IoDIRP(io)) );
RETURN;
PUSHi( PerlDir_tell(IoDIRP(io)) );
RETURN;
-nope:
+
nope:
if (!errno)
SETERRNO(EBADF,RMS_ISI);
RETPUSHUNDEF;
if (!errno)
SETERRNO(EBADF,RMS_ISI);
RETPUSHUNDEF;
@@
-4053,7
+4055,7
@@
PP(pp_seekdir)
(void)PerlDir_seek(IoDIRP(io), along);
RETPUSHYES;
(void)PerlDir_seek(IoDIRP(io), along);
RETPUSHYES;
-nope:
+
nope:
if (!errno)
SETERRNO(EBADF,RMS_ISI);
RETPUSHUNDEF;
if (!errno)
SETERRNO(EBADF,RMS_ISI);
RETPUSHUNDEF;
@@
-4077,7
+4079,7
@@
PP(pp_rewinddir)
}
(void)PerlDir_rewind(IoDIRP(io));
RETPUSHYES;
}
(void)PerlDir_rewind(IoDIRP(io));
RETPUSHYES;
-nope:
+
nope:
if (!errno)
SETERRNO(EBADF,RMS_ISI);
RETPUSHUNDEF;
if (!errno)
SETERRNO(EBADF,RMS_ISI);
RETPUSHUNDEF;
@@
-4110,7
+4112,7
@@
PP(pp_closedir)
IoDIRP(io) = 0;
RETPUSHYES;
IoDIRP(io) = 0;
RETPUSHYES;
-nope:
+
nope:
if (!errno)
SETERRNO(EBADF,RMS_IFI);
RETPUSHUNDEF;
if (!errno)
SETERRNO(EBADF,RMS_IFI);
RETPUSHUNDEF;