perlipc.pod: Fix typo
authorSteve Hay <steve.m.hay@googlemail.com>
Tue, 26 Jan 2016 08:43:06 +0000 (08:43 +0000)
committerSteve Hay <steve.m.hay@googlemail.com>
Tue, 26 Jan 2016 08:43:06 +0000 (08:43 +0000)
pod/perlipc.pod

index 8effcf0..6be2763 100644 (file)
@@ -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");