From 0f85fab05fafa513bd55a9e1ab280aac5567e27a Mon Sep 17 00:00:00 2001 From: Larry Wall Date: Tue, 27 Mar 1990 04:46:23 +0000 Subject: perl 3.0 patch #18 patch #16, continued See patch #16. --- perl.man.4 | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) (limited to 'perl.man.4') diff --git a/perl.man.4 b/perl.man.4 index 4269559b90..77a8a00597 100644 --- a/perl.man.4 +++ b/perl.man.4 @@ -1,7 +1,10 @@ ''' Beginning of part 4 -''' $Header: perl.man.4,v 3.0.1.7 90/03/14 12:29:50 lwall Locked $ +''' $Header: perl_man.4,v 3.0.1.8 90/03/27 16:19:31 lwall Locked $ ''' ''' $Log: perl.man.4,v $ +''' Revision 3.0.1.8 90/03/27 16:19:31 lwall +''' patch16: MSDOS support +''' ''' Revision 3.0.1.7 90/03/14 12:29:50 lwall ''' patch15: man page falsely states that you can't subscript array values ''' @@ -504,7 +507,7 @@ Here is a sample client (untested): ($name, $aliases, $proto) = getprotobyname('tcp'); ($name, $aliases, $port) = getservbyname($port, 'tcp') - unless $port =~ /^\ed+$/;; + unless $port =~ /^\ed+$/; .ie t \{\ ($name, $aliases, $type, $len, $thisaddr) = gethostbyname($hostname); 'br\} @@ -549,7 +552,7 @@ And here's a server: ($name, $aliases, $proto) = getprotobyname('tcp'); ($name, $aliases, $port) = getservbyname($port, 'tcp') - unless $port =~ /^\ed+$/;; + unless $port =~ /^\ed+$/; $this = pack($sockaddr, &AF_INET, $port, "\e0\e0\e0\e0"); @@ -1318,6 +1321,8 @@ before doing anything else, just to keep people honest: .fi .SH AUTHOR Larry Wall +.br +MS-DOS port by Diomidis Spinellis .SH FILES /tmp/perl\-eXXXXXX temporary file for .B \-e -- cgit v1.2.1