[inseparable changes from patch from perl5.003_12 to perl5.003_13]

 DOCUMENTATION

Subject: small doc tweaks for _12
Date: Thu, 19 Dec 1996 11:05:57 -0500
From: Roderick Schertler <roderick@gate.net>
Files: lib/UNIVERSAL.pm pod/perldiag.pod pod/perltie.pod
Msg-ID: <1826.851011557@eeyore.ibcinc.com>

    (applied based on p5p patch as commit 3314ffc)

 PORTABILITY

Subject: Add missing backslash in Configure
From: Chip Salzenberg <chip@atlantic.net>
Files: Configure

 UTILITIES, LIBRARY, AND EXTENSIONS

Subject: Include libnet-1.01 instead of old Net::FTP
From: Graham Barr <Graham.Barr@tiuk.ti.com>
Files: MANIFEST lib/Net/Cmd.pm lib/Net/Domain.pm lib/Net/DummyInetd.pm lib/Net/FTP.pm lib/Net/NNTP.pm lib/Net/Netrc.pm lib/Net/POP3.pm lib/Net/SMTP.pm lib/Net/SNPP.pm lib/Net/Socket.pm lib/Net/Telnet.pm lib/Net/Time.pm pod/perlmod.pod

Subject: Use binmode when doing binary FTP
From: Ilya Zakharevich <ilya@math.ohio-state.edu>
Files: lib/Net/FTP.pm

Subject: Re: Open3.pm tries to close unopened file handle
Date: 18 Dec 1996 22:19:54 -0500
From: Roderick Schertler <roderick@gate.net>
Files: MANIFEST lib/IPC/Open2.pm lib/IPC/Open3.pm lib/open2.pl lib/open3.pl pod/perldiag.pod pod/perlfunc.pod t/lib/open2.t t/lib/open3.t
Msg-ID: <pzloavmd9h.fsf@eeyore.ibcinc.com>

    (applied based on p5p patch as commit 982b4e8)

Subject: Long-standing problem in Socket module
Date: Wed, 18 Dec 1996 23:18:14 -0500
From: Spider Boardman <spider@orb.nashua.nh.us>
Files: Configure Porting/Glossary config_H config_h.SH ext/Socket/Socket.pm ext/Socket/Socket.xs
Msg-ID: <199612190418.XAA07291@Orb.Nashua.NH.US>

    (applied based on p5p patch as commit 3e6a22d)

Subject: flock() constants
Date: Thu, 19 Dec 1996 01:37:17 -0500
From: Roderick Schertler <roderick@gate.net>
Files: ext/Fcntl/Fcntl.pm ext/Fcntl/Fcntl.xs pod/perlfunc.pod
Msg-ID: <26669.850977437@eeyore.ibcinc.com>

    (applied based on p5p patch as commit 3dea0e1)

Changes

@@ -7,6 +7,96 @@ site, in the .../src/5.0 directory for full version releases,
 or in the .../src/5/0/unsupported directory for sub-version
 releases.)
 
+----------------
+Version 5.003_13
+----------------
+
+The watchword here is "synchronization."  There were a couple of
+show-stopper bugs in 5.003_12, so I'm issuing this patch to bring
+everyone up to a common working base.
+
+ CORE LANGUAGE CHANGES
+
+  Title:  "Disallow labels named q, qq, qw, qx, s, y, and tr"
+   From:  Chip Salzenberg <chip@atlantic.net>
+  Files:  toke.c
+
+  Title:  "Make evals' lexicals visible to nested evals"
+   From:  Chip Salzenberg <chip@atlantic.net>
+  Files:  pp_ctl.c
+
+ OTHER CORE CHANGES
+
+  Title:  "Fix core dump bug with anoncode"
+   From:  Chip Salzenberg <chip@atlantic.net>
+  Files:  op.c
+
+  Title:  "Allow DESTROY to make refs to dying objects"
+   From:  Chip Salzenberg <chip@atlantic.net>
+  Files:  sv.c
+
+ PORTABILITY
+
+  Title:  "Add missing backslash in Configure"
+   From:  Chip Salzenberg <chip@atlantic.net>
+  Files:  Configure
+
+ UTILITIES, LIBRARY, AND EXTENSIONS
+
+  Title:  "Include libnet-1.01 instead of old Net::FTP"
+   From:  Graham Barr <Graham.Barr@tiuk.ti.com>
+  Files:  MANIFEST lib/Net/Cmd.pm lib/Net/Domain.pm
+          lib/Net/DummyInetd.pm lib/Net/FTP.pm lib/Net/NNTP.pm
+          lib/Net/Netrc.pm lib/Net/POP3.pm lib/Net/SMTP.pm
+          lib/Net/SNPP.pm lib/Net/Socket.pm lib/Net/Telnet.pm
+          lib/Net/Time.pm pod/perlmod.pod
+
+  Title:  "Use binmode when doing binary FTP"
+   From:  Ilya Zakharevich
+  Files:  lib/Net/FTP.pm
+
+  Title:  "Re: Open3.pm tries to close unopened file handle"
+   From:  Roderick Schertler <roderick@gate.net>
+ Msg-ID:  <pzloavmd9h.fsf@eeyore.ibcinc.com>
+   Date:  18 Dec 1996 22:19:54 -0500
+  Files:  MANIFEST lib/IPC/Open2.pm lib/IPC/Open3.pm lib/open2.pl
+          lib/open3.pl pod/perldiag.pod pod/perlfunc.pod t/lib/open2.t
+          t/lib/open3.t
+
+  Title:  "Long-standing problem in Socket module"
+   From:  Spider Boardman <spider@orb.nashua.nh.us>
+ Msg-ID:  <199612190418.XAA07291@Orb.Nashua.NH.US>
+   Date:  Wed, 18 Dec 1996 23:18:14 -0500
+  Files:  Configure Porting/Glossary config_H config_h.SH
+          ext/Socket/Socket.pm ext/Socket/Socket.xs
+
+  Title:  "flock() constants"
+   From:  Roderick Schertler <roderick@gate.net>
+ Msg-ID:  <26669.850977437@eeyore.ibcinc.com>
+   Date:  Thu, 19 Dec 1996 01:37:17 -0500
+  Files:  ext/Fcntl/Fcntl.pm ext/Fcntl/Fcntl.xs pod/perlfunc.pod
+
+  Title:  "Re: find2perl . -xdev BROKEN still"
+   From:  Roderick Schertler <roderick@gate.net>
+ Msg-ID:  <pzvi9yig3h.fsf@eeyore.ibcinc.com>
+   Date:  19 Dec 1996 12:44:34 -0500
+  Files:  lib/File/Find.pm lib/find.pl lib/finddepth.pl
+
+ DOCUMENTATION
+
+  Title:  "small doc tweaks for _12"
+   From:  Roderick Schertler <roderick@gate.net>
+ Msg-ID:  <1826.851011557@eeyore.ibcinc.com>
+   Date:  Thu, 19 Dec 1996 11:05:57 -0500
+  Files:  lib/UNIVERSAL.pm pod/perldiag.pod pod/perltie.pod
+
+  Title:  "Re: missing E<> POD directive in perlpod.pod"
+   From:  Roderick Schertler <roderick@gate.net>
+ Msg-ID:  <pzwwueimak.fsf@eeyore.ibcinc.com>
+   Date:  19 Dec 1996 10:30:43 -0500
+  Files:  pod/perlpod.pod pod/pod2html.PL
+
+
 ----------------
 Version 5.003_12
 ----------------

Configure

@@ -304,6 +304,7 @@ d_getppid=''
 d_getprior=''
 d_gnulibc=''
 d_htonl=''
+d_inetaton=''
 d_isascii=''
 d_killpg=''
 d_link=''
@@ -2025,7 +2026,7 @@ if xxx=`./loc arch blurfl $pth`; $test -f "$xxx"; then
 	tarch=`arch`"-$osname"
 elif xxx=`./loc uname blurfl $pth`; $test -f "$xxx" ; then
 	if uname -m > tmparch 2>&1 ; then
-		tarch=`$sed -e 's/ *$//' -e 's/ /_/g'
+		tarch=`$sed -e 's/ *$//' -e 's/ /_/g' \
 			-e 's/$/'"-$osname/" tmparch`
 	else
 		tarch="$osname"
@@ -6628,6 +6629,10 @@ set d_strchr; eval $setvar
 val="$vali"
 set d_index; eval $setvar
 
+: check whether inet_aton exists
+set inet_aton d_inetaton
+eval $inlibc
+
 : Look for isascii
 echo " "
 $cat >isascii.c <<'EOCP'
@@ -9926,6 +9931,7 @@ d_gettimeod='$d_gettimeod'
 d_gnulibc='$d_gnulibc'
 d_htonl='$d_htonl'
 d_index='$d_index'
+d_inetaton='$d_inetaton'
 d_isascii='$d_isascii'
 d_killpg='$d_killpg'
 d_link='$d_link'

MANIFEST

@@ -302,7 +302,7 @@ lib/File/Compare.pm	Emulation of cmp command
 lib/File/Copy.pm	Emulation of cp command
 lib/File/Find.pm	Routines to do a find
 lib/File/Path.pm	A module to do things like `mkdir -p' and `rm -r'
-lib/File/stat.pm	Object-oriented wrapper around CORE::stat
+lib/File/stat.pm	By-name interface to Perl's built-in stat
 lib/FileCache.pm	Keep more files open than the system permits
 lib/FileHandle.pm	Backward-compatible front end to IO extension
 lib/FindBin.pm		Find name of currently executing program
@@ -314,14 +314,22 @@ lib/IPC/Open3.pm	Open a three-ended pipe!
 lib/Math/BigFloat.pm	An arbitrary precision floating-point arithmetic package
 lib/Math/BigInt.pm	An arbitrary precision integer arithmetic package
 lib/Math/Complex.pm	A Complex package
-lib/Net/FTP.pm		File Transfer Protocol client
-lib/Net/Netrc.pm	Parser for ".netrc" file a la Berkeley UNIX
-lib/Net/Ping.pm		Ping methods
-lib/Net/Socket.pm	Support class for Net::FTP
-lib/Net/hostent.pm	Object-oriented wrapper around CORE::gethost*
-lib/Net/netent.pm	Object-oriented wrapper around CORE::getnet*
-lib/Net/protoent.pm	Object-oriented wrapper around CORE::getproto*
-lib/Net/servent.pm	Object-oriented wrapper around CORE::getserv*
+lib/Net/Cmd.pm		Base class for command-based protocols (libnet-1.01)
+lib/Net/Domain.pm	DNS Domain name lookup (libnet-1.01)
+lib/Net/DummyInetd.pm	Place holder for future Net::Inetd (libnet-1.01)
+lib/Net/FTP.pm		File Transfer Protocol client (libnet-1.01)
+lib/Net/NNTP.pm		Network News Transfer Protocol (libnet-1.01)
+lib/Net/Netrc.pm	.netrc lookup routines (libnet-1.01)
+lib/Net/POP3.pm		Post Office Protocol (libnet-1.01)
+lib/Net/Ping.pm		Hello, anybody home?
+lib/Net/SMTP.pm		Simple Mail Transfer Protocol client (libnet-1.01)
+lib/Net/SNPP.pm		Simple Network Pager Protocol client (libnet-1.01)
+lib/Net/Telnet.pm	Telnet client (libnet-1.01)
+lib/Net/Time.pm		Time & NetTime protocols (libnet-1.01)
+lib/Net/hostent.pm	By-name interface to Perl's built-in gethost*
+lib/Net/netent.pm	By-name interface to Perl's built-in getnet*
+lib/Net/protoent.pm	By-name interface to Perl's built-in getproto*
+lib/Net/servent.pm	By-name interface to Perl's built-in getserv*
 lib/Pod/Functions.pm	used by pod/splitpod
 lib/Pod/Text.pm		Convert POD data to formatted ASCII text
 lib/Search/Dict.pm	A module to do binary search on dictionaries
@@ -345,12 +353,12 @@ lib/Tie/RefHash.pm	Base class for tied hashes with references as keys
 lib/Tie/Scalar.pm	Base class for tied scalars
 lib/Tie/SubstrHash.pm	Compact hash for known key, value and table size
 lib/Time/Local.pm	Reverse translation of localtime, gmtime
-lib/Time/gmtime.pm	Object-oriented wrapper around CORE::gmtime
-lib/Time/localtime.pm	Object-oriented wrapper around CORE::localtime
-lib/Time/tm.pm		Perl implementation of "struct tm" for {gm,local}time
+lib/Time/gmtime.pm	By-name interface to Perl's built-in gmtime
+lib/Time/localtime.pm	By-name interface to Perl's built-in localtime
+lib/Time/tm.pm		Internal oject for Time::{gm,local}time
 lib/UNIVERSAL.pm	Base class for ALL classes.
-lib/User/grent.pm	Object-oriented wrapper around CORE::getgr*
-lib/User/pwent.pm	Object-oriented wrapper around CORE::getpw*
+lib/User/grent.pm	By-name interface to Perl's built-in getgr*
+lib/User/pwent.pm	By-name interface to Perl's built-in getpw*
 lib/abbrev.pl		An abbreviation table builder
 lib/assert.pl		assertion and panic with stack trace
 lib/bigfloat.pl		An arbitrary precision floating point package
@@ -612,6 +620,8 @@ t/lib/io_xs.t		See if XSUB methods from IO work
 t/lib/ndbm.t		See if NDBM_File works
 t/lib/odbm.t		See if ODBM_File works
 t/lib/opcode.t		See if Opcode works
+t/lib/open2.t		See if IPC::Open3 works
+t/lib/open3.t		See if IPC::Open2 works
 t/lib/ops.t		See if Opcode works
 t/lib/parsewords.t	See if Text::ParseWords works
 t/lib/posix.t		See if POSIX works

Porting/Glossary

@@ -34,6 +34,10 @@ bin (bin.U):
 	is most often a local directory such as /usr/local/bin. Programs using
 	this variable must be prepared to deal with ~name substitution.
 
+bincompat3 (bincompat3.U):
+	This variable contains y if Perl 5.004 should be binary-compatible
+	with Perl 5.003.
+
 byteorder (byteorder.U):
 	This variable holds the byte order. In the following, larger digits
 	indicate more significance.  The variable byteorder is either 4321
@@ -133,6 +137,11 @@ d_bcopy (d_bcopy.U):
 	This variable conditionally defines the HAS_BCOPY symbol if
 	the bcopy() routine is available to copy strings.
 
+d_bincompat3 (bincompat3.U):
+	This variable conditionally defines BINCOMPAT3 so that embed.h
+	can take special action if Perl 5.004 should be binary-compatible
+	with Perl 5.003.
+
 d_bsdgetpgrp (d_getpgrp.U):
 	This variable conditionally defines USE_BSD_GETPGRP if
 	getpgrp needs one arguments whereas USG one needs none.
@@ -272,10 +281,20 @@ d_fsetpos (d_fsetpos.U):
 	This variable conditionally defines HAS_FSETPOS if fsetpos() is
 	available to set the file position indicator.
 
+d_ftime (d_ftime.U):
+	This variable conditionally defines the HAS_FTIME symbol, which
+	indicates that the ftime() routine exists.  The ftime() routine is
+	basically a sub-second accuracy clock.
+
 d_gethent (d_gethent.U):
 	This variable conditionally defines HAS_GETHOSTENT if gethostent() is
 	available to dup file descriptors.
 
+d_gettimeod (d_ftime.U):
+	This variable conditionally defines the HAS_GETTIMEOFDAY symbol, which
+	indicates that the gettimeofday() system call exists (to obtain a
+	sub-second accuracy clock).
+
 d_getlogin (d_getlogin.U):
 	This variable conditionally defines the HAS_GETLOGIN symbol, which
 	indicates to the C program that the getlogin() routine is available
@@ -312,6 +331,11 @@ d_index (d_strchr.U):
 	This variable conditionally defines HAS_INDEX if index() and
 	rindex() are available for string searching.
 
+d_inetaton (d_inetaton.U):
+	This variable conditionally defines the HAS_INET_ATON symbol, which
+	indicates to the C program that the inet_aton() function is available
+	to parse IP address "dotted-quad" strings.
+
 d_isascii (d_isascii.U):
 	This variable conditionally defines the HAS_ISASCII constant,
 	which indicates to the C program that isascii() is available.
@@ -483,6 +507,11 @@ d_safemcpy (d_safemcpy.U):
 	This variable conditionally defines the HAS_SAFE_MEMCPY symbol if
 	the memcpy() routine can do overlapping copies.
 
+d_sanemcmp (d_sanemcmp.U):
+	This variable conditionally defines the HAS_SANE_MEMCMP symbol if
+	the memcpy() routine is available and can be used to compare relative
+	magnitudes of chars with their high bits set.
+
 d_seekdir (d_readdir.U):
 	This variable conditionally defines HAS_SEEKDIR if seekdir() is
 	available.
@@ -643,6 +672,21 @@ d_strerror (d_strerror.U):
 	This variable conditionally defines HAS_STRERROR if strerror() is
 	available to translate error numbers to strings.
 
+d_strtod (d_strtod.U):
+	This variable conditionally defines the HAS_STRTOD symbol, which
+	indicates to the C program that the strtod() routine is available
+	to provide better numeric string conversion than atof().
+
+d_strtol (d_strtol.U):
+	This variable conditionally defines the HAS_STRTOL symbol, which
+	indicates to the C program that the strtol() routine is available
+	to provide better numeric string conversion than atoi() and friends.
+
+d_strtoul (d_strtoul.U):
+	This variable conditionally defines the HAS_STRTOUL symbol, which
+	indicates to the C program that the strtoul() routine is available
+	to provide conversion of strings to unsigned long.
+
 d_strxfrm (d_strxfrm.U):
 	This variable conditionally defines HAS_STRXFRM if strxfrm() is
 	available to transform strings.
@@ -1175,6 +1219,11 @@ path_sep (Unix.U):
 perladmin (perladmin.U):
 	Electronic mail address of the perl5 administrator.
 
+perlpath (perlpath.U):
+	This variable contains the eventual value of the PERLPATH symbol,
+	which contains the name of the perl interpreter to be used in
+	shell scripts and in the "eval 'exec'" idiom.
+
 prefix (prefix.U):
 	This variable holds the name of the directory below which the
 	user will install the package.  Usually, this is /usr/local, and

config_H

@@ -335,6 +335,13 @@
 #define HAS_NTOHL		/**/
 #define HAS_NTOHS		/**/
 
+/* HAS_INET_ATON:
+ *	This symbol, if defined, indicates to the C program that the
+ *	inet_aton() function is available to parse IP address "dotted-quad"
+ *	strings.
+ */
+#define HAS_INET_ATON		/**/
+
 /* HAS_ISASCII:
  *	This manifest constant lets the C program know that isascii 
  *	is available.

config_h.SH

@@ -349,6 +349,13 @@ sed <<!GROK!THIS! >config.h -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un-
 #$d_htonl HAS_NTOHL		/**/
 #$d_htonl HAS_NTOHS		/**/
 
+/* HAS_INET_ATON:
+ *	This symbol, if defined, indicates to the C program that the
+ *	inet_aton() function is available to parse IP address "dotted-quad"
+ *	strings.
+ */
+#$d_inetaton HAS_INET_ATON		/**/
+
 /* HAS_ISASCII:
  *	This manifest constant lets the C program know that isascii 
  *	is available.

ext/Fcntl/Fcntl.pm

@@ -7,6 +7,7 @@ Fcntl - load the C Fcntl.h defines
 =head1 SYNOPSIS
 
     use Fcntl;
+    use Fcntl qw(:DEFAULT :flock);
 
 =head1 DESCRIPTION
 
@@ -21,14 +22,21 @@ far more likely chance of getting the numbers right.
 Only C<#define> symbols get translated; you must still correctly
 pack up your own arguments to pass as args for locking functions, etc.
 
+=head1 EXPORTED SYMBOLS
+
+By default your system's F_* and O_* constants (eg, F_DUPFD and O_CREAT)
+are exported into your namespace.  You can request that the flock()
+constants (LOCK_SH, LOCK_EX, LOCK_NB and LOCK_UN) be provided by using
+the tag C<:flock>.  See L<Exporter>.
+
 =cut
 
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD);
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $AUTOLOAD);
 
 require Exporter;
 require DynaLoader;
 @ISA = qw(Exporter DynaLoader);
-$VERSION = "1.00";
+$VERSION = "1.01";
 # Items to export into callers namespace by default
 # (move infrequently used names to @EXPORT_OK below)
 @EXPORT =
@@ -42,6 +50,11 @@ $VERSION = "1.00";
      );
 # Other items we are prepared to export if requested
 @EXPORT_OK = qw(
+    LOCK_SH LOCK_EX LOCK_NB LOCK_UN
+);
+# Named groups of exports
+%EXPORT_TAGS = (
+    'flock' => [qw(LOCK_SH LOCK_EX LOCK_NB LOCK_UN)],
 );
 
 sub AUTOLOAD {