From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 28 Apr 2000 09:30:05 +0000 (+0000)
Subject: various minor tweaks seen on p5p
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=51ee650079cd7ef6a0ae6b587f0db512c6cfacde;p=p5sagit%2Fp5-mst-13.2.git

various minor tweaks seen on p5p

p4raw-id: //depot/perl@5993
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 132e08e..f935e94 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -34,7 +34,7 @@ $header = "perl5db.pl version $VERSION";
 # interpreter, though the values used by perl5db.pl have the form
 # "$break_condition\0$action". Values are magical in numeric context.
 #
-# The scalar ${'_<'.$filename} contains "_<$filename".
+# The scalar ${'_<'.$filename} contains $filename.
 #
 # Note that no subroutine call is possible until &DB::sub is defined
 # (for subroutines defined outside of the package DB). In fact the same is
diff --git a/pod/perlipc.pod b/pod/perlipc.pod
index 9a7fbed..475271d 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 8b025c5..4ad8d12 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.