diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2014-07-28 08:13:54 +0100 |
---|---|---|
committer | Steve Hay <steve.m.hay@googlemail.com> | 2014-07-28 08:14:54 +0100 |
commit | 022f533d0cc787f500a90d6e86d2a760fd5cd282 (patch) | |
tree | 70d1b27eb113ac28256edb1c1ca27e6df97bba0f /mg.c | |
parent | f8572ac04929824ffc6e45896476ac3e3610c4e9 (diff) | |
download | perl-022f533d0cc787f500a90d6e86d2a760fd5cd282.tar.gz |
Use PERL_UNUSED_RESULT.
(1) Enhance its description.
(2) Simplify it: define only if has warn_unused_result.
(3) Make it use STMT_START { ... } STMT_END to be less GNU-extensiony.
(4) Redo 04783dc7 ("fix 'ignoring return value' compiler warnings") with it.
(cherry picked from commit b469f1e0fc5f0ac882161e627a1255ee11e67c37)
Diffstat (limited to 'mg.c')
-rw-r--r-- | mg.c | 52 |
1 files changed, 22 insertions, 30 deletions
@@ -2831,7 +2831,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) break; case '<': { - int rc = 0; + /* XXX $< currently silently ignores failures */ const Uid_t new_uid = SvUID(sv); PL_delaymagic_uid = new_uid; if (PL_delaymagic) { @@ -2839,34 +2839,32 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) break; /* don't do magic till later */ } #ifdef HAS_SETRUID - rc = setruid(new_uid); + PERL_UNUSED_RESULT(setruid(new_uid)); #else #ifdef HAS_SETREUID - rc = setreuid(new_uid, (Uid_t)-1); + PERL_UNUSED_RESULT(setreuid(new_uid, (Uid_t)-1)); #else #ifdef HAS_SETRESUID - rc = setresuid(new_uid, (Uid_t)-1, (Uid_t)-1); + PERL_UNUSED_RESULT(setresuid(new_uid, (Uid_t)-1, (Uid_t)-1)); #else if (new_uid == PerlProc_geteuid()) { /* special case $< = $> */ #ifdef PERL_DARWIN /* workaround for Darwin's setuid peculiarity, cf [perl #24122] */ if (new_uid != 0 && PerlProc_getuid() == 0) - rc = PerlProc_setuid(0); + PERL_UNUSED_RESULT(PerlProc_setuid(0)); #endif - rc = PerlProc_setuid(new_uid); + PERL_UNUSED_RESULT(PerlProc_setuid(new_uid)); } else { Perl_croak(aTHX_ "setruid() not implemented"); } #endif #endif #endif - /* XXX $< currently silently ignores failures */ - PERL_UNUSED_VAR(rc); break; } case '>': { - int rc = 0; + /* XXX $> currently silently ignores failures */ const Uid_t new_euid = SvUID(sv); PL_delaymagic_euid = new_euid; if (PL_delaymagic) { @@ -2874,29 +2872,27 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) break; /* don't do magic till later */ } #ifdef HAS_SETEUID - rc = seteuid(new_euid); + PERL_UNUSED_RESULT(seteuid(new_euid)); #else #ifdef HAS_SETREUID - rc = setreuid((Uid_t)-1, new_euid); + PERL_UNUSED_RESULT(setreuid((Uid_t)-1, new_euid)); #else #ifdef HAS_SETRESUID - rc = setresuid((Uid_t)-1, new_euid, (Uid_t)-1); + PERL_UNUSED_RESULT(setresuid((Uid_t)-1, new_euid, (Uid_t)-1)); #else if (new_euid == PerlProc_getuid()) /* special case $> = $< */ - rc = PerlProc_setuid(new_euid); + PERL_UNUSED_RESULT(PerlProc_setuid(new_euid)); else { Perl_croak(aTHX_ "seteuid() not implemented"); } #endif #endif #endif - /* XXX $> currently silently ignores failures */ - PERL_UNUSED_VAR(rc); break; } case '(': { - int rc = 0; + /* XXX $( currently silently ignores failures */ const Gid_t new_gid = SvGID(sv); PL_delaymagic_gid = new_gid; if (PL_delaymagic) { @@ -2904,29 +2900,27 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) break; /* don't do magic till later */ } #ifdef HAS_SETRGID - rc = setrgid(new_gid); + PERL_UNUSED_RESULT(setrgid(new_gid)); #else #ifdef HAS_SETREGID - rc = setregid(new_gid, (Gid_t)-1); + PERL_UNUSED_RESULT(setregid(new_gid, (Gid_t)-1)); #else #ifdef HAS_SETRESGID - rc = setresgid(new_gid, (Gid_t)-1, (Gid_t) -1); + PERL_UNUSED_RESULT(setresgid(new_gid, (Gid_t)-1, (Gid_t) -1)); #else if (new_gid == PerlProc_getegid()) /* special case $( = $) */ - rc = PerlProc_setgid(new_gid); + PERL_UNUSED_RESULT(PerlProc_setgid(new_gid)); else { Perl_croak(aTHX_ "setrgid() not implemented"); } #endif #endif #endif - /* XXX $( currently silently ignores failures */ - PERL_UNUSED_VAR(rc); break; } case ')': { - int rc = 0; + /* XXX $) currently silently ignores failures */ Gid_t new_egid; #ifdef HAS_SETGROUPS { @@ -2958,7 +2952,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) gary[i] = (Groups_t)Atol(p); } if (i) - rc = setgroups(i, gary); + PERL_UNUSED_RESULT(setgroups(i, gary)); Safefree(gary); } #else /* HAS_SETGROUPS */ @@ -2970,24 +2964,22 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) break; /* don't do magic till later */ } #ifdef HAS_SETEGID - rc = setegid(new_egid); + PERL_UNUSED_RESULT(setegid(new_egid)); #else #ifdef HAS_SETREGID - rc = setregid((Gid_t)-1, new_egid); + PERL_UNUSED_RESULT(setregid((Gid_t)-1, new_egid)); #else #ifdef HAS_SETRESGID - rc = setresgid((Gid_t)-1, new_egid, (Gid_t)-1); + PERL_UNUSED_RESULT(setresgid((Gid_t)-1, new_egid, (Gid_t)-1)); #else if (new_egid == PerlProc_getgid()) /* special case $) = $( */ - rc = PerlProc_setgid(new_egid); + PERL_UNUSED_RESULT(PerlProc_setgid(new_egid)); else { Perl_croak(aTHX_ "setegid() not implemented"); } #endif #endif #endif - /* XXX $) currently silently ignores failures */ - PERL_UNUSED_VAR(rc); break; } case ':': |