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.

diff --git a/ext/PerlIO-scalar/scalar.xs b/ext/PerlIO-scalar/scalar.xs
index dcb8283..c9a24db 100644 (file)
--- 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;