From ac09d64d758e8b9c67112edd49bd53aadd2ae42c Mon Sep 17 00:00:00 2001
From: Slaven Rezic <cpansand@eserte>
Date: Sun, 13 Nov 2016 10:05:13 +0000
Subject: [PATCH] fix control chars usage (RT #118739)

---
 Receive.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Receive.pm b/Receive.pm
index 5581cac..c51c9e6 100644
--- a/Receive.pm
+++ b/Receive.pm
@@ -136,7 +136,7 @@ sub hostname
 
 sub handleDie
 {
-	return if $;
+	return if $^S;
 	my ($server, $msg) = @_;
 	print STDERR "DIE: $msg\n";
 	$server->log("%s", "died: $msg");
@@ -145,7 +145,7 @@ sub handleDie
 
 sub handleWarn
 {
-	return if $;
+	return if $^S;
 	my ($server, $msg) = @_;
 	print STDERR "WARN: $msg\n";
 	$server->log("%s", "warning: $msg");
-- 
2.1.2