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