diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-28 09:30:05 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-04-28 09:30:05 +0000 |
| commit | 51ee650079cd7ef6a0ae6b587f0db512c6cfacde (patch) | |
| tree | 78388c8d2cf8aea281fdb05fa4ca46d0ce94da6e /pod | |
| parent | 069e01df5fe5be0786191c04a006805614ff871d (diff) | |
| download | perl-51ee650079cd7ef6a0ae6b587f0db512c6cfacde.tar.gz | |
various minor tweaks seen on p5p
p4raw-id: //depot/perl@5993
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. |