perlipc.pod: Fix typo

diff --git a/pod/perlipc.pod b/pod/perlipc.pod
index 8effcf0..6be2763 100644 (file)
--- 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");