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
Upgrade HTTP-Tiny from version 0.042 to 0.043
[perl5.git]
/
doio.c
diff --git
a/doio.c
b/doio.c
index
56d33b2
..
81abd9c
100644
(file)
--- a/
doio.c
+++ b/
doio.c
@@
-359,13
+359,6
@@
Perl_do_openn(pTHX_ GV *gv, const char *oname, I32 len, int as_raw,
* be optimized away on most platforms;
* only Solaris and Linux seem to flush
* on that. --jhi */
* be optimized away on most platforms;
* only Solaris and Linux seem to flush
* on that. --jhi */
-#ifdef USE_SFIO
- /* sfio fails to clear error on next
- sfwrite, contrary to documentation.
- -- Nicholas Clark */
- if (PerlIO_seek(that_fp, 0, SEEK_CUR) == -1)
- PerlIO_clearerr(that_fp);
-#endif
/* On the other hand, do all platforms
* take gracefully to flushing a read-only
* filehandle? Perhaps we should do
/* On the other hand, do all platforms
* take gracefully to flushing a read-only
* filehandle? Perhaps we should do
@@
-754,7
+747,7
@@
Perl_nextargv(pTHX_ GV *gv)
PL_filemode = 0;
if (!GvAV(gv))
return NULL;
PL_filemode = 0;
if (!GvAV(gv))
return NULL;
- while (av_
len
(GvAV(gv)) >= 0) {
+ while (av_
tindex
(GvAV(gv)) >= 0) {
STRLEN oldlen;
sv = av_shift(GvAV(gv));
SAVEFREESV(sv);
STRLEN oldlen;
sv = av_shift(GvAV(gv));
SAVEFREESV(sv);
@@
-1816,7
+1809,7
@@
nothing in the core.
if (!IS_SAFE_PATHNAME(s, len, "unlink")) {
tot--;
}
if (!IS_SAFE_PATHNAME(s, len, "unlink")) {
tot--;
}
- else if (P
erlProc_geteuid() || P
L_unsafe) {
+ else if (PL_unsafe) {
if (UNLINK(s))
tot--;
}
if (UNLINK(s))
tot--;
}
@@
-2155,11
+2148,16
@@
Perl_do_ipcctl(pTHX_ I32 optype, SV **mark, SV **sp)
#ifdef Semctl
union semun unsemds;
#ifdef Semctl
union semun unsemds;
+ if(cmd == SETVAL) {
+ unsemds.val = PTR2nat(a);
+ }
+ else {
#ifdef EXTRA_F_IN_SEMUN_BUF
#ifdef EXTRA_F_IN_SEMUN_BUF
- unsemds.buff = (struct semid_ds *)a;
+
unsemds.buff = (struct semid_ds *)a;
#else
#else
- unsemds.buf = (struct semid_ds *)a;
+
unsemds.buf = (struct semid_ds *)a;
#endif
#endif
+ }
ret = Semctl(id, n, cmd, unsemds);
#else
/* diag_listed_as: sem%s not implemented */
ret = Semctl(id, n, cmd, unsemds);
#else
/* diag_listed_as: sem%s not implemented */
@@
-2288,15
+2286,6
@@
Perl_do_semop(pTHX_ SV **mark, SV **sp)
t++;
}
result = semop(id, temps, nsops);
t++;
}
result = semop(id, temps, nsops);
- t = temps;
- o = ops;
- i = nsops;
- while (i--) {
- *o++ = t->sem_num;
- *o++ = t->sem_op;
- *o++ = t->sem_flg;
- t++;
- }
Safefree(temps);
return result;
}
Safefree(temps);
return result;
}
@@
-2374,7
+2363,7
@@
Perl_do_shmio(pTHX_ I32 optype, SV **mark, SV **sp)
=for apidoc start_glob
Function called by C<do_readline> to spawn a glob (or do the glob inside
=for apidoc start_glob
Function called by C<do_readline> to spawn a glob (or do the glob inside
-perl on VMS). This code used to be inline, but now perl uses C<File::Glob>
+perl on VMS).
This code used to be inline, but now perl uses C<File::Glob>
this glob starter is only used by miniperl during the build process.
Moving it away shrinks pp_hot.c; shrinking pp_hot.c helps speed perl up.
this glob starter is only used by miniperl during the build process.
Moving it away shrinks pp_hot.c; shrinking pp_hot.c helps speed perl up.
@@
-2432,11
+2421,7
@@
Perl_vms_start_glob
#else
sv_setpv(tmpcmd, "echo ");
sv_catsv(tmpcmd, tmpglob);
#else
sv_setpv(tmpcmd, "echo ");
sv_catsv(tmpcmd, tmpglob);
-#if 'z' - 'a' == 25
- sv_catpv(tmpcmd, "|tr -s ' \t\f\r' '\\012\\012\\012\\012'|");
-#else
sv_catpv(tmpcmd, "|tr -s ' \t\f\r' '\\n\\n\\n\\n'|");
sv_catpv(tmpcmd, "|tr -s ' \t\f\r' '\\n\\n\\n\\n'|");
-#endif
#endif /* !CSH */
#endif /* !DOSISH */
{
#endif /* !CSH */
#endif /* !DOSISH */
{