From 7e101392f826c6fb8a6980028ff94eab61ba8f55 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 22 Oct 2013 02:08:07 -0400
Subject: more fiddling

---
 CompleteStatement.xs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

(limited to 'CompleteStatement.xs')

diff --git a/CompleteStatement.xs b/CompleteStatement.xs
index aee013a..503e5f2 100644
--- a/CompleteStatement.xs
+++ b/CompleteStatement.xs
@@ -54,7 +54,7 @@ _parse()
 
     LEAVE;
 
-int
+SV *
 complete_statement(str)
     SV *str
   PREINIT:
@@ -116,7 +116,11 @@ complete_statement(str)
 
     call_parse();
 
-    RETVAL = (depth == 0);
+    RETVAL = (PL_parser->bufptr != PL_parser->bufend)
+        ? &PL_sv_undef
+        : (depth == 0)
+        ? &PL_sv_yes
+        : &PL_sv_no;
 
     FREETMPS;
     LEAVE;
-- 
cgit v1.2.3-54-g00ecf