diff options
Diffstat (limited to 'pod')
| -rw-r--r-- | pod/perlipc.pod | 6 | ||||
| -rw-r--r-- | pod/perlvar.pod | 2 |
2 files changed, 5 insertions, 3 deletions
diff --git a/pod/perlipc.pod b/pod/perlipc.pod index 9a7fbeda72..475271d071 100644 --- a/pod/perlipc.pod +++ b/pod/perlipc.pod @@ -667,7 +667,8 @@ instead. my $port = shift || 2345; my $proto = getprotobyname('tcp'); - $port = $1 if $port =~ /(\d+)/; # untaint port number + + ($port) = $port =~ /^(\d+)$/ || die "invalid port"; socket(Server, PF_INET, SOCK_STREAM, $proto) || die "socket: $!"; setsockopt(Server, SOL_SOCKET, SO_REUSEADDR, @@ -710,7 +711,8 @@ go back to service a new client. my $port = shift || 2345; my $proto = getprotobyname('tcp'); - $port = $1 if $port =~ /(\d+)/; # untaint port number + + ($port) = $port =~ /^(\d+)$/ || die "invalid port"; socket(Server, PF_INET, SOCK_STREAM, $proto) || die "socket: $!"; setsockopt(Server, SOL_SOCKET, SO_REUSEADDR, diff --git a/pod/perlvar.pod b/pod/perlvar.pod index 8b025c5b72..4ad8d1248f 100644 --- a/pod/perlvar.pod +++ b/pod/perlvar.pod @@ -814,7 +814,7 @@ Then $^M = 'a' x (1 << 16); -would allocate a 64K buffer for use when in emergency. See the +would allocate a 64K buffer for use in an emergency. See the F<INSTALL> file in the Perl distribution for information on how to enable this option. To discourage casual use of this advanced feature, there is no L<English> long name for this variable. |