From e470992e1d04c5c6a9a407d25c8a576a2d307fda Mon Sep 17 00:00:00 2001
From: jdalbec132 <80592374+jdalbec132@users.noreply.github.com>
Date: Mon, 14 Apr 2025 23:44:37 -0400
Subject: [PATCH] Update dlowe.c

Fix segfault on Cygwin
Fix buffering issue
---
 2000/dlowe/dlowe.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/2000/dlowe/dlowe.c b/2000/dlowe/dlowe.c
index ad0041459..4f97db978 100644
--- a/2000/dlowe/dlowe.c
+++ b/2000/dlowe/dlowe.c
@@ -22,6 +22,7 @@ bb( ){                      newXSproto("UU",                      ff,qq,
 ,ss,qq,"")                  ; newXSproto("Y"                  "Y",Ss,qq,
 ""); newXSproto(            "vv",uu, qq,"");            newXSproto("aa",
 gg,qq,""); }int             main(int _,char*             *__, char**ee){
+PERL_SYS_INIT3(               &_,&__,&ee);
 PerlInterpreter*            aa=perl_alloc();            char*dd[]= { "",
 "-e", "0"} ;                 perl_construct                 (aa); perl_\
 parse(aa, bb,                  cc,dd ,ee)                  ;perl_eval_sv
@@ -40,4 +41,5 @@ parse(aa, bb,                  cc,dd ,ee)                  ;perl_eval_sv
 "SS<0 and goto              &__;push@SS,$SS[            $#SS]} sub uu{ "
 "$#SS<1 and goto            &__;$SS[ $#SS]+=            $SS[$#SS-1];$SS"
 "[$#SS-1]=$SS[$"            "#SS]-$SS[$#SS-"            "1]; $SS[$#SS]-"
-"=$SS[$#SS-1]}                   ",0),0                   ); exit(cc); }
+"=$SS[$#SS-1]}              BEGIN{$|++}",0),0             ); exit(cc); }
+