From dbb18dab97165b7a66ed04bd3047bdabd958c510 Mon Sep 17 00:00:00 2001
From: bostic <bostic>
Date: Sun, 3 Aug 1997 15:46:33 +0000
Subject: [PATCH] update from From: Sven Verdoolaege
 <skimo@breughel.ufsia.ac.be>

---
 perl_api/perl.xs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl_api/perl.xs b/perl_api/perl.xs
index ec05916a..2647d973 100644
--- a/perl_api/perl.xs
+++ b/perl_api/perl.xs
@@ -14,7 +14,7 @@
 #include "config.h"
 
 #ifndef lint
-static const char sccsid[] = "$Id: perl.xs,v 8.27 1996/10/16 14:16:34 bostic Exp $ (Berkeley) $Date: 1996/10/16 14:16:34 $";
+static const char sccsid[] = "$Id: perl.xs,v 8.28 1997/08/03 15:46:33 bostic Exp $ (Berkeley) $Date: 1997/08/03 15:46:33 $";
 #endif /* not lint */
 
 #include <sys/types.h>
@@ -583,7 +583,7 @@ GetLine(screen, linenumber)
 	ENDMESSAGE;
 
 	EXTEND(sp,1);
-        PUSHs(sv_2mortal(newSVpv(p, len)));
+        PUSHs(sv_2mortal(newSVpv(len ? p : "", len)));
 
 # XS_VI_sline --
 #	Set lineNumber to the text supplied.
-- 
2.11.4.GIT