From 60027571bba4763dc6538fd3694eccebcd317339 Mon Sep 17 00:00:00 2001
From: Steve Hay <steve.m.hay@googlemail.com>
Date: Tue, 26 Jan 2016 08:43:06 +0000
Subject: [PATCH] perlipc.pod: Fix typo

---
 pod/perlipc.pod | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pod/perlipc.pod b/pod/perlipc.pod
index 8effcf0..6be2763 100644
--- a/pod/perlipc.pod
+++ b/pod/perlipc.pod
@@ -964,7 +964,7 @@ or firewall machine), fill this in with your real address instead.
     sub logmsg { print "$0 $$: @_ at ", scalar localtime(), "\n" }
 
     my $port  = shift || 2345;
-    die "invalid port" unless if $port =~ /^ \d+ $/x;
+    die "invalid port" unless $port =~ /^ \d+ $/x;
 
     my $proto = getprotobyname("tcp");
 
-- 
1.8.3.1