From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 25 Mar 2001 20:21:14 +0000 (+0000)
Subject: Missing return value.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a144b9898613715625621889c13893a8238e4af6;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 *