From a144b9898613715625621889c13893a8238e4af6 Mon Sep 17 00:00:00 2001
From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sun, 25 Mar 2001 20:21:14 +0000
Subject: [PATCH] Missing return value.

p4raw-id: //depot/perlio@9343
---
 ext/PerlIO/Scalar/Scalar.xs | 1 +
 1 file changed, 1 insertion(+)

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