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
(perl #128438) build ppport.h instead of using a dummy file
[perl5.git]
/
pp_sys.c
diff --git
a/pp_sys.c
b/pp_sys.c
index
dd14bac
..
3bf2673
100644
(file)
--- a/
pp_sys.c
+++ b/
pp_sys.c
@@
-297,7
+297,7
@@
PP(pp_backtick)
dSP; dTARGET;
PerlIO *fp;
const char * const tmps = POPpconstx;
dSP; dTARGET;
PerlIO *fp;
const char * const tmps = POPpconstx;
- const
I32
gimme = GIMME_V;
+ const
U8
gimme = GIMME_V;
const char *mode = "r";
TAINT_PROPER("``");
const char *mode = "r";
TAINT_PROPER("``");
@@
-1345,7
+1345,7
@@
PP(pp_getc)
if (io) {
const MAGIC * const mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar);
if (mg) {
if (io) {
const MAGIC * const mg = SvTIED_mg((const SV *)io, PERL_MAGIC_tiedscalar);
if (mg) {
- const U
32
gimme = GIMME_V;
+ const U
8
gimme = GIMME_V;
Perl_tied_method(aTHX_ SV_CONST(GETC), SP, MUTABLE_SV(io), mg, gimme, 0);
if (gimme == G_SCALAR) {
SPAGAIN;
Perl_tied_method(aTHX_ SV_CONST(GETC), SP, MUTABLE_SV(io), mg, gimme, 0);
if (gimme == G_SCALAR) {
SPAGAIN;
@@
-1382,7
+1382,7
@@
STATIC OP *
S_doform(pTHX_ CV *cv, GV *gv, OP *retop)
{
PERL_CONTEXT *cx;
S_doform(pTHX_ CV *cv, GV *gv, OP *retop)
{
PERL_CONTEXT *cx;
- const
I32
gimme = GIMME_V;
+ const
U8
gimme = GIMME_V;
PERL_ARGS_ASSERT_DOFORM;
PERL_ARGS_ASSERT_DOFORM;
@@
-2497,7
+2497,6
@@
PP(pp_socket)
TAINT_PROPER("socket");
fd = PerlSock_socket(domain, type, protocol);
if (fd < 0) {
TAINT_PROPER("socket");
fd = PerlSock_socket(domain, type, protocol);
if (fd < 0) {
- SETERRNO(EBADF,RMS_IFI);
RETPUSHUNDEF;
}
IoIFP(io) = PerlIO_fdopen(fd, "r"SOCKET_OPEN_MODE); /* stdio gets confused about sockets */
RETPUSHUNDEF;
}
IoIFP(io) = PerlIO_fdopen(fd, "r"SOCKET_OPEN_MODE); /* stdio gets confused about sockets */
@@
-2870,7
+2869,7
@@
PP(pp_stat)
dSP;
GV *gv = NULL;
IO *io = NULL;
dSP;
GV *gv = NULL;
IO *io = NULL;
-
I32
gimme;
+
U8
gimme;
I32 max = 13;
SV* sv;
I32 max = 13;
SV* sv;
@@
-3531,8
+3530,9
@@
PP(pp_fttext)
}
PL_laststatval = PerlLIO_fstat(fd, &PL_statcache);
if (PL_laststatval < 0) {
}
PL_laststatval = PerlLIO_fstat(fd, &PL_statcache);
if (PL_laststatval < 0) {
+ dSAVE_ERRNO;
(void)PerlIO_close(fp);
(void)PerlIO_close(fp);
-
SETERRNO(EBADF,RMS_IFI)
;
+
RESTORE_ERRNO
;
FT_RETURNUNDEF;
}
PerlIO_binmode(aTHX_ fp, '<', O_BINARY, NULL);
FT_RETURNUNDEF;
}
PerlIO_binmode(aTHX_ fp, '<', O_BINARY, NULL);
@@
-4026,7
+4026,7
@@
PP(pp_readdir)
dSP;
SV *sv;
dSP;
SV *sv;
- const
I32
gimme = GIMME_V;
+ const
U8
gimme = GIMME_V;
GV * const gv = MUTABLE_GV(POPs);
const Direntry_t *dp;
IO * const io = GvIOn(gv);
GV * const gv = MUTABLE_GV(POPs);
const Direntry_t *dp;
IO * const io = GvIOn(gv);