From f84fd5080778da7e676552f8b8641fa0bb2852bb Mon Sep 17 00:00:00 2001 From: minima Date: Sun, 4 Mar 2001 12:13:24 +0000 Subject: [PATCH] remove uninit message --- perl/winclient.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/winclient.pl b/perl/winclient.pl index a8188b9d..f7f264b9 100755 --- a/perl/winclient.pl +++ b/perl/winclient.pl @@ -70,7 +70,7 @@ die "can't fork: $!" unless defined($childpid = fork()); # the communication ..... if ($childpid) { - my ($lastend, $end); + my ($lastend, $end) = ("\n", "\n"); STDOUT->autoflush(1); while (defined (my $msg = <$handle>)) { -- 2.43.0