[perl.git] branch blead, updated. v5.25.8-13-g63e3d0406b

[Dave Mitchell]

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/63e3d0406b23de6d9e115c85cd530f9238ccb539?hp=177251ba3a8a1fc1c7f43fe5db8b0d7ec6be5b11>

- Log -----------------------------------------------------------------
commit 63e3d0406b23de6d9e115c85cd530f9238ccb539
Author: David Mitchell <da...@iabyn.com>
Date:   Thu Dec 22 10:27:40 2016 +0000

    PerlIOScalar_eof(): silence compiler warning:
    
        scalar.xs:23:15: warning: variable ‘p’ set but not used
        [-Wunused-but-set-variable]
             char *p;
    
    I'm not sure why this has only started warning, but this commit shuts it
    up anyway.
-----------------------------------------------------------------------

Summary of changes:
 ext/PerlIO-scalar/scalar.xs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/ext/PerlIO-scalar/scalar.xs b/ext/PerlIO-scalar/scalar.xs
index dcb8283e72..c9a24db0b3 100644
--- a/ext/PerlIO-scalar/scalar.xs
+++ b/ext/PerlIO-scalar/scalar.xs
@@ -20,9 +20,8 @@ PerlIOScalar_eof(pTHX_ PerlIO * f)
 {
     if (PerlIOBase(f)->flags & PERLIO_F_CANREAD) {
         PerlIOScalar *s = PerlIOSelf(f, PerlIOScalar);
-        char *p;
         STRLEN len;
-        p = SvPV(s->var, len);
+        (void)SvPV(s->var, len);
         return len - (STRLEN)(s->posn) <= 0;
     }
     return 1;

--
Perl5 Master Repository