diff options
| author | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-03-27 04:46:23 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@jpl-devvax.jpl.nasa.gov> | 1990-03-27 04:46:23 +0000 |
| commit | 0f85fab05fafa513bd55a9e1ab280aac5567e27a (patch) | |
| tree | 104b9667181305a6dce5f73bb4d23518f8ba0b2e /perl.man.4 | |
| parent | b1248f16cd8cccfb12ae16cd8e7e93dd53dc52bf (diff) | |
| download | perl-0f85fab05fafa513bd55a9e1ab280aac5567e27a.tar.gz | |
perl 3.0 patch #18 patch #16, continued
See patch #16.
Diffstat (limited to 'perl.man.4')
| -rw-r--r-- | perl.man.4 | 11 |
1 files changed, 8 insertions, 3 deletions
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 <lwall@jpl-devvax.Jpl.Nasa.Gov> +.br +MS-DOS port by Diomidis Spinellis <dds@cc.ic.ac.uk> .SH FILES /tmp/perl\-eXXXXXX temporary file for .B \-e |