Missing return value.

p4raw-id: //depot/perlio@9343

diff --git a/ext/PerlIO/Scalar/Scalar.xs b/ext/PerlIO/Scalar/Scalar.xs
index 650cc5a..7a01ec6 100644 (file)
--- a/ext/PerlIO/Scalar/Scalar.xs
+++ b/ext/PerlIO/Scalar/Scalar.xs
@@ -124,6 +124,7 @@ PerlIOScalar_get_base(PerlIO *f)
    dTHX;
    return (STDCHAR *)SvPV_nolen(s->var);
   }
+ return (STDCHAR *) Nullch;
 }
 
 STDCHAR *