# This is my patch d to perl5.002beta1.
# Please execute the following command before applying this patch.
# (You can feed this patch to 'sh' to do so.)
mv hints/bsd386.sh hints/bsdi_bsdos.sh
exit 0
This is patch.2b1d to perl5.002beta1.
cd to your perl source directory and type
patch -p1 -N < patch.2b1a
This patch includes patches for the following items:
NETaa14710: Included bsdi_bsdos.sh hint file.
pod/perlre.pod: Mention 32bit limit.
Configure Updates.
Update Socket.xs to version 1.5. This handles
systems that might not have <sys/un.h>.
Fix missing quotes in h2ph.PL
These are each described in detail below, after the corresponding
index line.
Patch and enjoy,
Andy Dougherty doughera@lafcol.lafayette.edu
Dept. of Physics
Lafayette College, Easton PA 18042
Index: Configure
locincpth should now work as documented in INSTALL
Improved guessing of man1dir
Remove spurious semicolon in NONBLOCK testing.
Send failed './loc' message to fd 4.
Check for <sys/un.h>
Allow 'unixisms' to be overridden by hint files.
Remove -r test from './loc' since some executables are
not readable.
Remove spurious doublings of -L/usr/local/lib when reusing old
config.sh.
Improved domain name guessing, from
Hallvard B Furuseth <h.b.furuseth@usit.uio.no>
Include sitelib (architecture-independent directory).
Prereq: 3.0.1.8
*** perl5.002b1c/Configure Mon Nov 20 10:00:33 1995
--- perl5.002b1d/Configure Sat Dec 2 15:35:13 1995
***************
*** 20,26 ****
# $Id: Head.U,v 3.0.1.8 1995/07/25 13:40:02 ram Exp $
#
cat >/tmp/c1$$ <<EOF
ARGGGHHHH!!!!!
--- 20,26 ----
# $Id: Head.U,v 3.0.1.8 1995/07/25 13:40:02 ram Exp $
#
! # Generated on Sat Dec 2 15:29:39 EST 1995 [metaconfig 3.0 PL58]
cat >/tmp/c1$$ <<EOF
ARGGGHHHH!!!!!
***************
*** 469,474 ****
--- 469,475 ----
i_sysstat=''
i_systimes=''
i_systypes=''
+ i_sysun=''
i_sgtty=''
i_termio=''
i_termios=''
***************
*** 551,556 ****
--- 552,560 ----
installsitearch=''
sitearch=''
sitearchexp=''
+ installsitelib=''
+ sitelib=''
+ sitelibexp=''
sizetype=''
so=''
sharpbang=''
***************
*** 658,664 ****
--- 662,673 ----
libswanted=''
: set useposix=false in your hint file to disable the POSIX extension.
useposix=true
+ : Define several unixisms. These can be overridden in hint files.
+ exe_ext=''
+ : Extra object files, if any, needed on this platform.
+ archobjs=''
: Possible local include directories to search.
+ : Set locincpth to "" in a hint file to defeat local include searches.
locincpth="/usr/local/include /opt/local/include /usr/gnu/include"
locincpth="$locincpth /opt/gnu/include /usr/GNU/include /opt/GNU/include"
:
***************
*** 1303,1309 ****
for thisthing in \$dir/\$thing; do
: just loop through to pick last item
done
! if test -f \$thisthing -a -r \$thisthing; then
echo \$thisthing
exit 0
elif test -f \$dir/\$thing.exe; then
--- 1312,1318 ----
for thisthing in \$dir/\$thing; do
: just loop through to pick last item
done
! if test -f \$thisthing; then
echo \$thisthing
exit 0
elif test -f \$dir/\$thing.exe; then
***************
*** 1366,1373 ****
echo $file is in $xxx.
;;
*)
! echo "I don't know where '$file' is, and my life depends on it."
! echo "Go find a public domain implementation or fix your PATH setting!"
exit 1
;;
esac
--- 1375,1382 ----
echo $file is in $xxx.
;;
*)
! echo "I don't know where '$file' is, and my life depends on it." >&4
! echo "Go find a public domain implementation or fix your PATH setting!" >&4
exit 1
;;
esac
***************
*** 2486,2509 ****
installbin="$binexp"
fi
- : determine where manual pages are on this system
- echo " "
- case "$sysman" in
- '')
- syspath='/usr/man/man1 /usr/man/mann /usr/man/manl /usr/man/local/man1'
- syspath="$syspath /usr/man/u_man/man1 /usr/share/man/man1"
- syspath="$syspath /usr/catman/u_man/man1 /usr/man/l_man/man1"
- syspath="$syspath /usr/local/man/u_man/man1 /usr/local/man/l_man/man1"
- syspath="$syspath /usr/man/man.L /local/man/man1 /usr/local/man/man1"
- sysman=`./loc . /usr/man/man1 $syspath`
- ;;
- esac
- if $test -d "$sysman"; then
- echo "System manual is in $sysman." >&4
- else
- echo "Could not find manual pages in source form." >&4
- fi
-
: determine where manual pages go
set man1dir man1dir none
eval $prefixit
--- 2495,2500 ----
***************
*** 2521,2538 ****
echo "If you don't want the manual sources installed, answer 'none'."
case "$man1dir" in
'')
! lookpath="$prefixexp/man/man1 $prefixexp/man/u_man/man1"
! lookpath="$lookpath $prefixexp/man/l_man/man1"
! lookpath="$lookpath /usr/local/man/man1 /opt/man/man1 /usr/man/manl"
! lookpath="$lookpath /usr/man/local/man1 /usr/man/l_man/man1"
! lookpath="$lookpath /usr/local/man/u_man/man1 /usr/local/man/l_man/man1"
! lookpath="$lookpath /usr/man/man.L"
! man1dir=`./loc . $prefixexp/man/man1 $lookpath`
! if $test -d "$man1dir"; then
! dflt="$man1dir"
! else
! dflt="$sysman"
! fi
set dflt
eval $prefixup
;;
--- 2512,2539 ----
echo "If you don't want the manual sources installed, answer 'none'."
case "$man1dir" in
'')
! lookpath="$prefixexp/man/man1 $prefixexp/man/l_man/man1"
! lookpath="$lookpath $prefixexp/man/p_man/man1"
! lookpath="$lookpath $prefixexp/man/u_man/man1"
! : If prefix contains 'perl' then we want to keep the man pages
! : under the prefix directory. Otherwise, look in a variety of
! : other possible places. This is debatable, but probably a
! : good compromise.
! case "$prefix" in
! *perl*) ;;
! *) lookpath="$lookpath /usr/local/man/man1"
! lookpath="$lookpath /opt/local/man/man1"
! lookpath="$lookpath /usr/local/man/man.1"
! lookpath="$lookpath /opt/local/man/man.1"
! lookpath="$lookpath /usr/man/local/man1"
! lookpath="$lookpath /usr/man/l_man/man1"
! lookpath="$lookpath /usr/man/p_man/man1"
! lookpath="$lookpath /usr/man/u_man/man1"
! lookpath="$lookpath /usr/man/man.L"
! lookpath="$lookpath /usr/man/man.l"
! ;;
! esac
! dflt=`./loc . $prefixexp/man/man1 $lookpath`
set dflt
eval $prefixup
;;
***************
*** 2544,2550 ****
fn=dn+~
rp="Where do the main $spackage manual pages (source) go?"
. ./getfile
! if test "X$man1direxp" != "X$ansexp"; then
installman1dir=''
fi
man1dir="$ans"
--- 2545,2551 ----
fn=dn+~
rp="Where do the main $spackage manual pages (source) go?"
. ./getfile
! if $test "X$man1direxp" != "X$ansexp"; then
installman1dir=''
fi
man1dir="$ans"
***************
*** 2801,2806 ****
--- 2802,2846 ----
installscript="$scriptdirexp"
fi
+ : determine where site specific libraries go.
+ set dflt sitelib lib/site_perl
+ eval $prefixit
+ $cat <<EOM
+
+ The installation process will also create a directory for
+ site-specific extensions and modules. Some users find it convenient
+ to place all local files in this directory rather than in the main
+ distribution directory.
+
+ EOM
+ fn=d~+
+ rp='Pathname for the site-specific library files?'
+ . ./getfile
+ if $test "X$sitelibexp" != "X$ansexp"; then
+ installsitelib=''
+ fi
+ sitelib="$ans"
+ sitelibexp="$ansexp"
+ if $afs; then
+ $cat <<EOM
+
+ Since you are running AFS, I need to distinguish the directory in which
+ private files reside from the directory in which they are installed (and from
+ which they are presumably copied to the former directory by occult means).
+
+ EOM
+ case "$installsitelib" in
+ '') dflt=`echo $sitelibexp | sed 's#^/afs/#/afs/.#'`;;
+ *) dflt="$installsitelib";;
+ esac
+ fn=de~
+ rp='Where will private files be installed?'
+ . ./getfile
+ installsitelib="$ans"
+ else
+ installsitelib="$sitelibexp"
+ fi
+
: determine perl absolute location
case "$perlpath" in
'') perlpath=$binexp/perl ;;
***************
*** 2835,2840 ****
--- 2875,2898 ----
esac
echo "I'll use $startperl to start perl scripts."
+ : determine where manual pages are on this system
+ echo " "
+ case "$sysman" in
+ '')
+ syspath='/usr/man/man1 /usr/man/mann /usr/man/manl /usr/man/local/man1'
+ syspath="$syspath /usr/man/u_man/man1 /usr/share/man/man1"
+ syspath="$syspath /usr/catman/u_man/man1 /usr/man/l_man/man1"
+ syspath="$syspath /usr/local/man/u_man/man1 /usr/local/man/l_man/man1"
+ syspath="$syspath /usr/man/man.L /local/man/man1 /usr/local/man/man1"
+ sysman=`./loc . /usr/man/man1 $syspath`
+ ;;
+ esac
+ if $test -d "$sysman"; then
+ echo "System manual is in $sysman." >&4
+ else
+ echo "Could not find manual pages in source form." >&4
+ fi
+
: see what memory models we can support
case "$models" in
'')
***************
*** 3390,3397 ****
esac
dflt=''
! case "$ccflags" in
! '')
case "$gccversion" in
1*) dflt='-fpcc-struct-return' ;;
esac
--- 3448,3457 ----
esac
dflt=''
! : We will not override a previous value, but we might want to
! : augment a hint file
! case "$hint" in
! none|recommended)
case "$gccversion" in
1*) dflt='-fpcc-struct-return' ;;
esac
***************
*** 3446,3458 ****
set signal.h NO_PROTOTYPE; eval $inctest
set signal.h _NO_PROTO; eval $inctest
! case "$dflt" in
! '') dflt=none;;
! esac
! case "$ccflags" in
! '') ;;
*) dflt="$ccflags";;
esac
$cat <<EOH
Your C compiler may want other flags. For this question you should include
--- 3506,3519 ----
set signal.h NO_PROTOTYPE; eval $inctest
set signal.h _NO_PROTO; eval $inctest
! case "$hint" in
! none|recommended) dflt="$ccflags $dflt" ;;
*) dflt="$ccflags";;
esac
+
+ case "$dflt" in
+ ''|' ') dflt=none;;
+ esac
$cat <<EOH
Your C compiler may want other flags. For this question you should include
***************
*** 3547,3553 ****
case " $loclibpth " in
*" $thislibdir "*)
case "$dflt " in
! "-L$thislibdir ") ;;
*) dflt="$dflt -L$thislibdir" ;;
esac
;;
--- 3608,3614 ----
case " $loclibpth " in
*" $thislibdir "*)
case "$dflt " in
! *"-L$thislibdir "*) ;;
*) dflt="$dflt -L$thislibdir" ;;
esac
;;
***************
*** 5433,5439 ****
exit(0); /* Bye bye, thank you for playing! */
}
EOCP
! if $cc $ccflags $ldflags try.c -o try >/dev/null; 2>&1; then
echo "./try >try.out 2>try.ret 3>try.err || exit 4" >mtry
chmod +x mtry
./mtry >/dev/null 2>&1
--- 5494,5500 ----
exit(0); /* Bye bye, thank you for playing! */
}
EOCP
! if $cc $ccflags $ldflags try.c -o try >/dev/null 2>&1; then
echo "./try >try.out 2>try.ret 3>try.err || exit 4" >mtry
chmod +x mtry
./mtry >/dev/null 2>&1
***************
*** 6696,6711 ****
;;
*) case "$mydomain" in
'')
! $hostcat >hosts
! dflt=.`$awk "/[0-9].*$myhostname/ {for(i=2; i<=NF;i++) print \\\$i}" \
hosts | $sort | $uniq | \
! $sed -n -e "s/$myhostname\.\([a-zA-Z_.]\)/\1/p"`
! case "$dflt" in
.) echo "(You do not have fully-qualified names in /etc/hosts)"
tans=`./loc resolv.conf X /etc /usr/etc`
if $test -f "$tans"; then
echo "(Attempting domain name extraction from $tans)"
! dflt=.`egrep '^domain' $tans | $sed 's/domain[ ]*\(.*\)/\1/' \
| ./tr '[A-Z]' '[a-z]' 2>/dev/null`
fi
;;
--- 6757,6795 ----
;;
*) case "$mydomain" in
'')
! {
! : If we use NIS, try ypmatch.
! : Is there some reason why this was not done before?
! test "X$hostcat" = "Xypcat hosts" &&
! ypmatch "$myhostname" hosts 2>/dev/null |\
! $sed -e 's/[ ]*#.*//; s/$/ /' > hosts && \
! $test -s hosts
! } || {
! : Extract only the relevant hosts, reducing file size,
! : remove comments, insert trailing space for later use.
! $hostcat | $sed -n -e "s/[ ]*#.*//; s/\$/ /
! /[ ]$myhostname[ . ]/p" > hosts
! }
! tmp_re="[ . ]"
! $test x`$awk "/[0-9].*[ ]$myhostname$tmp_re/ { sum++ }
! END { print sum }" hosts` = x1 || tmp_re="[ ]"
! dflt=.`$awk "/[0-9].*[ ]$myhostname$tmp_re/ {for(i=2; i<=NF;i++) print \\\$i}" \
hosts | $sort | $uniq | \
! $sed -n -e "s/$myhostname\.\([-a-zA-Z0-9_.]\)/\1/p"`
! case `$echo X$dflt` in
! X*\ *) echo "(Several hosts in /etc/hosts matched hostname)"
! dflt=.
! ;;
.) echo "(You do not have fully-qualified names in /etc/hosts)"
+ ;;
+ esac
+ case "$dflt" in
+ .)
tans=`./loc resolv.conf X /etc /usr/etc`
if $test -f "$tans"; then
echo "(Attempting domain name extraction from $tans)"
! : Why was there an Egrep here, when Sed works?
! dflt=.`$sed -n -e 's/^domain[ ]*\(.*\)/\1/p' $tans \
| ./tr '[A-Z]' '[a-z]' 2>/dev/null`
fi
;;
***************
*** 6986,7001 ****
alignbytes="$ans"
$rm -f try.c try
! : Define several unixisms. These can be overridden in hint files.
! ar='ar'
! exe_ext=''
! lib_ext='.a'
! obj_ext='.o'
! path_sep='/'
! : Extra object files needed on this platform.
! archobjs=''
: Which makefile gets called first. This is used by make depend.
! firstmakefile='makefile'
: check for ordering of bytes in a long
case "$byteorder" in
--- 7070,7091 ----
alignbytes="$ans"
$rm -f try.c try
! case "$ar" in
! '') ar='ar';;
! esac
! case "$lib_ext" in
! '') lib_ext='.a';;
! esac
! case "$obj_ext" in
! '') obj_ext='.o';;
! esac
! case "$path_sep" in
! '') path_sep=':';;
! esac
: Which makefile gets called first. This is used by make depend.
! case "$firstmakefile" in
! '') firstmakefile='makefile';;
! esac
: check for ordering of bytes in a long
case "$byteorder" in
***************
*** 8371,8376 ****
--- 8461,8470 ----
set sys/types.h i_systypes
eval $inhdr
+ : see if this is a sys/un.h system
+ set sys/un.h i_sysun
+ eval $inhdr
+
: see if this is a unistd.h system
set unistd.h i_unistd
eval $inhdr
***************
*** 8966,8971 ****
--- 9060,9066 ----
i_systimek='$i_systimek'
i_systimes='$i_systimes'
i_systypes='$i_systypes'
+ i_sysun='$i_sysun'
i_termio='$i_termio'
i_termios='$i_termios'
i_time='$i_time'
***************
*** 8983,8988 ****
--- 9078,9084 ----
installprivlib='$installprivlib'
installscript='$installscript'
installsitearch='$installsitearch'
+ installsitelib='$installsitelib'
intsize='$intsize'
known_extensions='$known_extensions'
ksh='$ksh'
***************
*** 9081,9086 ****
--- 9177,9184 ----
signal_t='$signal_t'
sitearch='$sitearch'
sitearchexp='$sitearchexp'
+ sitelib='$sitelib'
+ sitelibexp='$sitelibexp'
sizetype='$sizetype'
sleep='$sleep'
smail='$smail'
Index: INSTALL
Consistently use "sh Configure" in examples.
Add reminder that interactive use may be helpful.
*** perl5.002b1c/INSTALL Mon Nov 20 10:46:48 1995
--- perl5.002b1d/INSTALL Tue Nov 21 22:54:28 1995
***************
*** 60,66 ****
using the Configure command line option -Dprefix='/some/directory',
e.g.
! Configure -Dprefix=/opt/perl
If your prefix contains the string "perl", then the directories
are simplified. For example, if you use prefix=/opt/perl,
--- 60,66 ----
using the Configure command line option -Dprefix='/some/directory',
e.g.
! sh Configure -Dprefix=/opt/perl
If your prefix contains the string "perl", then the directories
are simplified. For example, if you use prefix=/opt/perl,
***************
*** 263,269 ****
Then, you can Configure and install in the usual way:
! sh ./Configure -des
make
make test
make install
--- 263,269 ----
Then, you can Configure and install in the usual way:
! sh Configure -des
make
make test
make install
***************
*** 276,282 ****
# Set up config.over to install perl into a different directory,
# e.g. /tmp/perl5 (see previous part).
! sh ./Configure -des
make
make test
make install
--- 276,282 ----
# Set up config.over to install perl into a different directory,
# e.g. /tmp/perl5 (see previous part).
! sh Configure -des
make
make test
make install
***************
*** 290,295 ****
--- 290,310 ----
=over 4
+ =item Running Configure Interactively
+
+ If Configure runs into trouble, remember that you can always run
+ Configure interactively so that you can check (and correct) its
+ guesses.
+
+ All the installation questions have been moved to the top, so you don't
+ have to wait for them. Once you've handled them (and your C compiler &
+ flags) you can type '&-d' at the next Configure prompt and Configure
+ will use the defaults from then on.
+
+ If you find yourself trying obscure command line incantations and
+ config.over tricks, I recommend you run Configure interactively
+ instead. You'll probably save yourself time in the long run.
+
=item Hint files.
The perl distribution includes a number of system-specific hints files
***************
*** 314,320 ****
=item Propagating your changes
If you later make any changes to F<config.sh>, you should propagate
! them to all the .SH files by running B<Configure -S>.
=item config.over
--- 329,335 ----
=item Propagating your changes
If you later make any changes to F<config.sh>, you should propagate
! them to all the .SH files by running B<sh Configure -S>.
=item config.over
***************
*** 344,350 ****
To change the C flags for all the files, edit F<config.sh>
and change either C<$ccflags> or C<$optimize>,
! and then re-run B<Configure -S ; make depend>.
=item No sh.
--- 359,365 ----
To change the C flags for all the files, edit F<config.sh>
and change either C<$ccflags> or C<$optimize>,
! and then re-run B<sh Configure -S ; make depend>.
=item No sh.
Index: MANIFEST
Include renamed hint file.
*** perl5.002b1c/MANIFEST Sat Dec 2 16:20:21 1995
--- perl5.002b1d/MANIFEST Sun Nov 26 17:03:31 1995
***************
*** 178,184 ****
hints/altos486.sh Hints for named architecture
hints/apollo.sh Hints for named architecture
hints/aux.sh Hints for named architecture
! hints/bsd386.sh Hints for named architecture
hints/convexos.sh Hints for named architecture
hints/cxux.sh Hints for named architecture
hints/dec_osf.sh Hints for named architecture
--- 178,184 ----
hints/altos486.sh Hints for named architecture
hints/apollo.sh Hints for named architecture
hints/aux.sh Hints for named architecture
! hints/bsdi_bsdos.sh Hints for named architecture
hints/convexos.sh Hints for named architecture
hints/cxux.sh Hints for named architecture
hints/dec_osf.sh Hints for named architecture
Index: config_h.SH
Include check for <sys/un.h>.
Include SITELIB_EXP definition for architecture-independent
site-specific modules. Usually, this will be
/usr/local/lib/site_perl.
Prereq: 3.0.1.4
*** perl5.002b1c/config_h.SH Mon Nov 20 10:00:33 1995
--- perl5.002b1d/config_h.SH Sat Dec 2 15:35:13 1995
***************
*** 1183,1188 ****
--- 1183,1194 ----
*/
#$i_systypes I_SYS_TYPES /**/
+ /* I_SYS_UN:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/un.h> to get UNIX domain socket definitions.
+ */
+ #$i_sysun I_SYS_UN /**/
+
/* I_TERMIO:
* This symbol, if defined, indicates that the program should include
* <termio.h> rather than <sgtty.h>. There are also differences in
***************
*** 1514,1519 ****
--- 1520,1531 ----
* in programs that are not prepared to deal with ~ expansion at run-time.
*/
#define SITEARCH_EXP "$sitearchexp" /**/
+
+ /* SITELIB_EXP:
+ * This symbol contains the ~name expanded version of SITELIB, to be used
+ * in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+ #define SITELIB_EXP "$sitelibexp" /**/
/* VOIDFLAGS:
* This symbol indicates how much support of the void type is given by this
Index: ext/Socket/Makefile.PL
Update version number to 1.5.
*** perl5.002b1c/ext/Socket/Makefile.PL Sat Nov 18 15:36:56 1995
--- perl5.002b1d/ext/Socket/Makefile.PL Sat Dec 2 16:23:52 1995
***************
*** 1,2 ****
use ExtUtils::MakeMaker;
! WriteMakefile(VERSION => 1.3);
--- 1,2 ----
use ExtUtils::MakeMaker;
! WriteMakefile(VERSION => 1.5);
Index: ext/Socket/Socket.pm
Update to version 1.5.
*** perl5.002b1c/ext/Socket/Socket.pm Sat Nov 18 15:37:03 1995
--- perl5.002b1d/ext/Socket/Socket.pm Sat Dec 2 16:25:17 1995
***************
*** 1,5 ****
package Socket;
! $VERSION = 1.3;
=head1 NAME
--- 1,5 ----
package Socket;
! $VERSION = 1.5;
=head1 NAME
***************
*** 117,122 ****
--- 117,123 ----
consisting of (PATHNAME). In a scalar context, packs its PATHANE
arguments as a SOCKADDR_UN and returns it. If this is confusing, use
pack_sockaddr_un() and unpack_sockaddr_un() explicitly.
+ These are only supported if your system has <sys/un.h>.
=item pack_sockaddr_un PATH
Index: ext/Socket/Socket.xs
Update to version 1.5.
This only supports the sockaddr_un -related functions if your
system has <sys/un.h>. SVR3 systems generally don't.
*** perl5.002b1c/ext/Socket/Socket.xs Sat Nov 18 15:36:57 1995
--- perl5.002b1d/ext/Socket/Socket.xs Sat Dec 2 15:46:20 1995
***************
*** 7,13 ****
--- 7,15 ----
# include <sys/types.h>
# endif
#include <sys/socket.h>
+ #ifdef I_SYS_UN
#include <sys/un.h>
+ #endif
# ifdef I_NETINET_IN
# include <netinet/in.h>
# endif
***************
*** 632,642 ****
--- 634,649 ----
char * pathname
CODE:
{
+ #ifdef I_SYS_UN
struct sockaddr_un sun_ad; /* fear using sun */
Zero( &sun_ad, sizeof sun_ad, char );
sun_ad.sun_family = AF_UNIX;
Copy( pathname, sun_ad.sun_path, sizeof sun_ad.sun_path, char );
ST(0) = sv_2mortal(newSVpv((char *)&sun_ad, sizeof sun_ad));
+ #else
+ ST(0) = (SV *) not_here("pack_sockaddr_un");
+ #endif
+
}
void
***************
*** 644,649 ****
--- 651,657 ----
SV * sun_sv
PPCODE:
{
+ #ifdef I_SYS_UN
STRLEN sockaddrlen;
struct sockaddr_un addr;
char * sun_ad = SvPV(sun_sv,sockaddrlen);
***************
*** 663,668 ****
--- 671,679 ----
AF_UNIX);
}
ST(0) = sv_2mortal(newSVpv(addr.sun_path, strlen(addr.sun_path)));
+ #else
+ ST(0) = (SV *) not_here("unpack_sockaddr_un");
+ #endif
}
void
Index: h2ph.PL
Add missing quotes.
*** perl5.002b1c/h2ph.PL Sun Nov 19 23:00:39 1995
--- perl5.002b1d/h2ph.PL Mon Nov 27 10:14:50 1995
***************
*** 35,41 ****
'ds 00 \"';
'ig 00 ';
! \$perlincl = $Config{archlibexp};
!GROK!THIS!
--- 35,41 ----
'ds 00 \"';
'ig 00 ';
! \$perlincl = "$Config{archlibexp}";
!GROK!THIS!
Index: hints/bsdi_bsdos.sh
Updated and renamed file.
*** perl5.002b1c/hints/bsdi_bsdos.sh Thu Jan 19 19:08:34 1995
--- perl5.002b1d/hints/bsdi_bsdos.sh Sun Nov 26 16:50:26 1995
***************
*** 1,14 ****
# Original by Neil Bowers <neilb@khoros.unm.edu>
#
so='o'
d_voidsig='define'
- sig_name='ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM URG STOP TSTP CONT CHLD TTIN TTOU IO XCPU XFSZ VTALRM PROF WINCH INFO USR1 USR2 '
signal_t='void'
# we don't want to use -lnm, since exp() is busted in there (in 1.1 anyway)
set `echo X "$libswanted "| sed -e 's/ nm / /'`
shift
--- 1,25 ----
# Original by Neil Bowers <neilb@khoros.unm.edu>
#
! # You can override the compiler and loader on the Configure command line:
! # ./Configure -Dcc=gcc -Dld=ld
!
! # filename extension for shared library objects
so='o'
d_voidsig='define'
signal_t='void'
+ # If Configure's signal detection fails, uncomment this line.
+ # sig_name='ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM URG STOP TSTP CONT CHLD TTIN TTOU IO XCPU XFSZ VTALRM PROF WINCH INFO USR1 USR2 '
+
+ d_dosuid='define'
+
# we don't want to use -lnm, since exp() is busted in there (in 1.1 anyway)
set `echo X "$libswanted "| sed -e 's/ nm / /'`
shift
***************
*** 17,31 ****
# Avoid telldir prototype conflict in pp_sys.c (BSD/386 uses const DIR *)
pp_sys_cflags='ccflags="$ccflags -DHAS_TELLDIR_PROTOTYPE"'
- # Avoid problems with HUGE_VAL in POSIX in 1.0's cc.
- # Use gcc2 (2.5.8) if available in 1.1.
case "$osvers" in
1.0*)
POSIX_cflags='ccflags="$ccflags -UHUGE_VAL"'
;;
1.1*)
case "$cc" in
'') cc=gcc2 ;;
esac
;;
esac
--- 28,61 ----
# Avoid telldir prototype conflict in pp_sys.c (BSD/386 uses const DIR *)
pp_sys_cflags='ccflags="$ccflags -DHAS_TELLDIR_PROTOTYPE"'
case "$osvers" in
1.0*)
+ # Avoid problems with HUGE_VAL in POSIX in 1.0's cc.
POSIX_cflags='ccflags="$ccflags -UHUGE_VAL"'
;;
1.1*)
+ # Use gcc2 (2.5.8) if available in 1.1.
case "$cc" in
'') cc=gcc2 ;;
esac
+ ;;
+ 2.*)
+ # Use 2.X's gcc2
+ case "$cc" in
+ '') cc=gcc2 ;;
+ esac
+
+ # Link with shared libraries in 2.X
+ case "$ld" in
+ '') ld='shlicc' ;;
+ esac
+
+ # setre?[ug]id() have been replaced by the _POSIX_SAVED_IDS stuff
+ # in 4.4BSD-based systems (including BSD/OS 2.0 and later).
+ # See http://www.bsdi.com/bsdi-man?setuid(2)
+ d_setregid='undef'
+ d_setreuid='undef'
+ d_setrgid='undef'
+ d_setruid='undef'
;;
esac
Index: pod/perlre.pod
Mention 65536 limit explicitly.
*** perl5.002b1c/pod/perlre.pod Wed Nov 15 21:35:31 1995
--- perl5.002b1d/pod/perlre.pod Sun Nov 26 16:57:20 1995
***************
*** 75,82 ****
(If a curly bracket occurs in any other context, it is treated
as a regular character.) The "*" modifier is equivalent to C<{0,}>, the "+"
! modifier to C<{1,}>, and the "?" modifier to C<{0,1}>. There is no limit to the
! size of n or m, but large numbers will chew up more memory.
By default, a quantified subpattern is "greedy", that is, it will match as
many times as possible without causing the rest pattern not to match. The
--- 75,82 ----
(If a curly bracket occurs in any other context, it is treated
as a regular character.) The "*" modifier is equivalent to C<{0,}>, the "+"
! modifier to C<{1,}>, and the "?" modifier to C<{0,1}>. n and m are limited
! to integral values less than 65536.
By default, a quantified subpattern is "greedy", that is, it will match as
many times as possible without causing the rest pattern not to match. The
End of patch.
# Please execute the following command before applying this patch.
# (You can feed this patch to 'sh' to do so.)
mv hints/bsd386.sh hints/bsdi_bsdos.sh
exit 0
This is patch.2b1d to perl5.002beta1.
cd to your perl source directory and type
patch -p1 -N < patch.2b1a
This patch includes patches for the following items:
NETaa14710: Included bsdi_bsdos.sh hint file.
pod/perlre.pod: Mention 32bit limit.
Configure Updates.
Update Socket.xs to version 1.5. This handles
systems that might not have <sys/un.h>.
Fix missing quotes in h2ph.PL
These are each described in detail below, after the corresponding
index line.
Patch and enjoy,
Andy Dougherty doughera@lafcol.lafayette.edu
Dept. of Physics
Lafayette College, Easton PA 18042
Index: Configure
locincpth should now work as documented in INSTALL
Improved guessing of man1dir
Remove spurious semicolon in NONBLOCK testing.
Send failed './loc' message to fd 4.
Check for <sys/un.h>
Allow 'unixisms' to be overridden by hint files.
Remove -r test from './loc' since some executables are
not readable.
Remove spurious doublings of -L/usr/local/lib when reusing old
config.sh.
Improved domain name guessing, from
Hallvard B Furuseth <h.b.furuseth@usit.uio.no>
Include sitelib (architecture-independent directory).
Prereq: 3.0.1.8
*** perl5.002b1c/Configure Mon Nov 20 10:00:33 1995
--- perl5.002b1d/Configure Sat Dec 2 15:35:13 1995
***************
*** 20,26 ****
# $Id: Head.U,v 3.0.1.8 1995/07/25 13:40:02 ram Exp $
#
cat >/tmp/c1$$ <<EOF
ARGGGHHHH!!!!!
--- 20,26 ----
# $Id: Head.U,v 3.0.1.8 1995/07/25 13:40:02 ram Exp $
#
! # Generated on Sat Dec 2 15:29:39 EST 1995 [metaconfig 3.0 PL58]
cat >/tmp/c1$$ <<EOF
ARGGGHHHH!!!!!
***************
*** 469,474 ****
--- 469,475 ----
i_sysstat=''
i_systimes=''
i_systypes=''
+ i_sysun=''
i_sgtty=''
i_termio=''
i_termios=''
***************
*** 551,556 ****
--- 552,560 ----
installsitearch=''
sitearch=''
sitearchexp=''
+ installsitelib=''
+ sitelib=''
+ sitelibexp=''
sizetype=''
so=''
sharpbang=''
***************
*** 658,664 ****
--- 662,673 ----
libswanted=''
: set useposix=false in your hint file to disable the POSIX extension.
useposix=true
+ : Define several unixisms. These can be overridden in hint files.
+ exe_ext=''
+ : Extra object files, if any, needed on this platform.
+ archobjs=''
: Possible local include directories to search.
+ : Set locincpth to "" in a hint file to defeat local include searches.
locincpth="/usr/local/include /opt/local/include /usr/gnu/include"
locincpth="$locincpth /opt/gnu/include /usr/GNU/include /opt/GNU/include"
:
***************
*** 1303,1309 ****
for thisthing in \$dir/\$thing; do
: just loop through to pick last item
done
! if test -f \$thisthing -a -r \$thisthing; then
echo \$thisthing
exit 0
elif test -f \$dir/\$thing.exe; then
--- 1312,1318 ----
for thisthing in \$dir/\$thing; do
: just loop through to pick last item
done
! if test -f \$thisthing; then
echo \$thisthing
exit 0
elif test -f \$dir/\$thing.exe; then
***************
*** 1366,1373 ****
echo $file is in $xxx.
;;
*)
! echo "I don't know where '$file' is, and my life depends on it."
! echo "Go find a public domain implementation or fix your PATH setting!"
exit 1
;;
esac
--- 1375,1382 ----
echo $file is in $xxx.
;;
*)
! echo "I don't know where '$file' is, and my life depends on it." >&4
! echo "Go find a public domain implementation or fix your PATH setting!" >&4
exit 1
;;
esac
***************
*** 2486,2509 ****
installbin="$binexp"
fi
- : determine where manual pages are on this system
- echo " "
- case "$sysman" in
- '')
- syspath='/usr/man/man1 /usr/man/mann /usr/man/manl /usr/man/local/man1'
- syspath="$syspath /usr/man/u_man/man1 /usr/share/man/man1"
- syspath="$syspath /usr/catman/u_man/man1 /usr/man/l_man/man1"
- syspath="$syspath /usr/local/man/u_man/man1 /usr/local/man/l_man/man1"
- syspath="$syspath /usr/man/man.L /local/man/man1 /usr/local/man/man1"
- sysman=`./loc . /usr/man/man1 $syspath`
- ;;
- esac
- if $test -d "$sysman"; then
- echo "System manual is in $sysman." >&4
- else
- echo "Could not find manual pages in source form." >&4
- fi
-
: determine where manual pages go
set man1dir man1dir none
eval $prefixit
--- 2495,2500 ----
***************
*** 2521,2538 ****
echo "If you don't want the manual sources installed, answer 'none'."
case "$man1dir" in
'')
! lookpath="$prefixexp/man/man1 $prefixexp/man/u_man/man1"
! lookpath="$lookpath $prefixexp/man/l_man/man1"
! lookpath="$lookpath /usr/local/man/man1 /opt/man/man1 /usr/man/manl"
! lookpath="$lookpath /usr/man/local/man1 /usr/man/l_man/man1"
! lookpath="$lookpath /usr/local/man/u_man/man1 /usr/local/man/l_man/man1"
! lookpath="$lookpath /usr/man/man.L"
! man1dir=`./loc . $prefixexp/man/man1 $lookpath`
! if $test -d "$man1dir"; then
! dflt="$man1dir"
! else
! dflt="$sysman"
! fi
set dflt
eval $prefixup
;;
--- 2512,2539 ----
echo "If you don't want the manual sources installed, answer 'none'."
case "$man1dir" in
'')
! lookpath="$prefixexp/man/man1 $prefixexp/man/l_man/man1"
! lookpath="$lookpath $prefixexp/man/p_man/man1"
! lookpath="$lookpath $prefixexp/man/u_man/man1"
! : If prefix contains 'perl' then we want to keep the man pages
! : under the prefix directory. Otherwise, look in a variety of
! : other possible places. This is debatable, but probably a
! : good compromise.
! case "$prefix" in
! *perl*) ;;
! *) lookpath="$lookpath /usr/local/man/man1"
! lookpath="$lookpath /opt/local/man/man1"
! lookpath="$lookpath /usr/local/man/man.1"
! lookpath="$lookpath /opt/local/man/man.1"
! lookpath="$lookpath /usr/man/local/man1"
! lookpath="$lookpath /usr/man/l_man/man1"
! lookpath="$lookpath /usr/man/p_man/man1"
! lookpath="$lookpath /usr/man/u_man/man1"
! lookpath="$lookpath /usr/man/man.L"
! lookpath="$lookpath /usr/man/man.l"
! ;;
! esac
! dflt=`./loc . $prefixexp/man/man1 $lookpath`
set dflt
eval $prefixup
;;
***************
*** 2544,2550 ****
fn=dn+~
rp="Where do the main $spackage manual pages (source) go?"
. ./getfile
! if test "X$man1direxp" != "X$ansexp"; then
installman1dir=''
fi
man1dir="$ans"
--- 2545,2551 ----
fn=dn+~
rp="Where do the main $spackage manual pages (source) go?"
. ./getfile
! if $test "X$man1direxp" != "X$ansexp"; then
installman1dir=''
fi
man1dir="$ans"
***************
*** 2801,2806 ****
--- 2802,2846 ----
installscript="$scriptdirexp"
fi
+ : determine where site specific libraries go.
+ set dflt sitelib lib/site_perl
+ eval $prefixit
+ $cat <<EOM
+
+ The installation process will also create a directory for
+ site-specific extensions and modules. Some users find it convenient
+ to place all local files in this directory rather than in the main
+ distribution directory.
+
+ EOM
+ fn=d~+
+ rp='Pathname for the site-specific library files?'
+ . ./getfile
+ if $test "X$sitelibexp" != "X$ansexp"; then
+ installsitelib=''
+ fi
+ sitelib="$ans"
+ sitelibexp="$ansexp"
+ if $afs; then
+ $cat <<EOM
+
+ Since you are running AFS, I need to distinguish the directory in which
+ private files reside from the directory in which they are installed (and from
+ which they are presumably copied to the former directory by occult means).
+
+ EOM
+ case "$installsitelib" in
+ '') dflt=`echo $sitelibexp | sed 's#^/afs/#/afs/.#'`;;
+ *) dflt="$installsitelib";;
+ esac
+ fn=de~
+ rp='Where will private files be installed?'
+ . ./getfile
+ installsitelib="$ans"
+ else
+ installsitelib="$sitelibexp"
+ fi
+
: determine perl absolute location
case "$perlpath" in
'') perlpath=$binexp/perl ;;
***************
*** 2835,2840 ****
--- 2875,2898 ----
esac
echo "I'll use $startperl to start perl scripts."
+ : determine where manual pages are on this system
+ echo " "
+ case "$sysman" in
+ '')
+ syspath='/usr/man/man1 /usr/man/mann /usr/man/manl /usr/man/local/man1'
+ syspath="$syspath /usr/man/u_man/man1 /usr/share/man/man1"
+ syspath="$syspath /usr/catman/u_man/man1 /usr/man/l_man/man1"
+ syspath="$syspath /usr/local/man/u_man/man1 /usr/local/man/l_man/man1"
+ syspath="$syspath /usr/man/man.L /local/man/man1 /usr/local/man/man1"
+ sysman=`./loc . /usr/man/man1 $syspath`
+ ;;
+ esac
+ if $test -d "$sysman"; then
+ echo "System manual is in $sysman." >&4
+ else
+ echo "Could not find manual pages in source form." >&4
+ fi
+
: see what memory models we can support
case "$models" in
'')
***************
*** 3390,3397 ****
esac
dflt=''
! case "$ccflags" in
! '')
case "$gccversion" in
1*) dflt='-fpcc-struct-return' ;;
esac
--- 3448,3457 ----
esac
dflt=''
! : We will not override a previous value, but we might want to
! : augment a hint file
! case "$hint" in
! none|recommended)
case "$gccversion" in
1*) dflt='-fpcc-struct-return' ;;
esac
***************
*** 3446,3458 ****
set signal.h NO_PROTOTYPE; eval $inctest
set signal.h _NO_PROTO; eval $inctest
! case "$dflt" in
! '') dflt=none;;
! esac
! case "$ccflags" in
! '') ;;
*) dflt="$ccflags";;
esac
$cat <<EOH
Your C compiler may want other flags. For this question you should include
--- 3506,3519 ----
set signal.h NO_PROTOTYPE; eval $inctest
set signal.h _NO_PROTO; eval $inctest
! case "$hint" in
! none|recommended) dflt="$ccflags $dflt" ;;
*) dflt="$ccflags";;
esac
+
+ case "$dflt" in
+ ''|' ') dflt=none;;
+ esac
$cat <<EOH
Your C compiler may want other flags. For this question you should include
***************
*** 3547,3553 ****
case " $loclibpth " in
*" $thislibdir "*)
case "$dflt " in
! "-L$thislibdir ") ;;
*) dflt="$dflt -L$thislibdir" ;;
esac
;;
--- 3608,3614 ----
case " $loclibpth " in
*" $thislibdir "*)
case "$dflt " in
! *"-L$thislibdir "*) ;;
*) dflt="$dflt -L$thislibdir" ;;
esac
;;
***************
*** 5433,5439 ****
exit(0); /* Bye bye, thank you for playing! */
}
EOCP
! if $cc $ccflags $ldflags try.c -o try >/dev/null; 2>&1; then
echo "./try >try.out 2>try.ret 3>try.err || exit 4" >mtry
chmod +x mtry
./mtry >/dev/null 2>&1
--- 5494,5500 ----
exit(0); /* Bye bye, thank you for playing! */
}
EOCP
! if $cc $ccflags $ldflags try.c -o try >/dev/null 2>&1; then
echo "./try >try.out 2>try.ret 3>try.err || exit 4" >mtry
chmod +x mtry
./mtry >/dev/null 2>&1
***************
*** 6696,6711 ****
;;
*) case "$mydomain" in
'')
! $hostcat >hosts
! dflt=.`$awk "/[0-9].*$myhostname/ {for(i=2; i<=NF;i++) print \\\$i}" \
hosts | $sort | $uniq | \
! $sed -n -e "s/$myhostname\.\([a-zA-Z_.]\)/\1/p"`
! case "$dflt" in
.) echo "(You do not have fully-qualified names in /etc/hosts)"
tans=`./loc resolv.conf X /etc /usr/etc`
if $test -f "$tans"; then
echo "(Attempting domain name extraction from $tans)"
! dflt=.`egrep '^domain' $tans | $sed 's/domain[ ]*\(.*\)/\1/' \
| ./tr '[A-Z]' '[a-z]' 2>/dev/null`
fi
;;
--- 6757,6795 ----
;;
*) case "$mydomain" in
'')
! {
! : If we use NIS, try ypmatch.
! : Is there some reason why this was not done before?
! test "X$hostcat" = "Xypcat hosts" &&
! ypmatch "$myhostname" hosts 2>/dev/null |\
! $sed -e 's/[ ]*#.*//; s/$/ /' > hosts && \
! $test -s hosts
! } || {
! : Extract only the relevant hosts, reducing file size,
! : remove comments, insert trailing space for later use.
! $hostcat | $sed -n -e "s/[ ]*#.*//; s/\$/ /
! /[ ]$myhostname[ . ]/p" > hosts
! }
! tmp_re="[ . ]"
! $test x`$awk "/[0-9].*[ ]$myhostname$tmp_re/ { sum++ }
! END { print sum }" hosts` = x1 || tmp_re="[ ]"
! dflt=.`$awk "/[0-9].*[ ]$myhostname$tmp_re/ {for(i=2; i<=NF;i++) print \\\$i}" \
hosts | $sort | $uniq | \
! $sed -n -e "s/$myhostname\.\([-a-zA-Z0-9_.]\)/\1/p"`
! case `$echo X$dflt` in
! X*\ *) echo "(Several hosts in /etc/hosts matched hostname)"
! dflt=.
! ;;
.) echo "(You do not have fully-qualified names in /etc/hosts)"
+ ;;
+ esac
+ case "$dflt" in
+ .)
tans=`./loc resolv.conf X /etc /usr/etc`
if $test -f "$tans"; then
echo "(Attempting domain name extraction from $tans)"
! : Why was there an Egrep here, when Sed works?
! dflt=.`$sed -n -e 's/^domain[ ]*\(.*\)/\1/p' $tans \
| ./tr '[A-Z]' '[a-z]' 2>/dev/null`
fi
;;
***************
*** 6986,7001 ****
alignbytes="$ans"
$rm -f try.c try
! : Define several unixisms. These can be overridden in hint files.
! ar='ar'
! exe_ext=''
! lib_ext='.a'
! obj_ext='.o'
! path_sep='/'
! : Extra object files needed on this platform.
! archobjs=''
: Which makefile gets called first. This is used by make depend.
! firstmakefile='makefile'
: check for ordering of bytes in a long
case "$byteorder" in
--- 7070,7091 ----
alignbytes="$ans"
$rm -f try.c try
! case "$ar" in
! '') ar='ar';;
! esac
! case "$lib_ext" in
! '') lib_ext='.a';;
! esac
! case "$obj_ext" in
! '') obj_ext='.o';;
! esac
! case "$path_sep" in
! '') path_sep=':';;
! esac
: Which makefile gets called first. This is used by make depend.
! case "$firstmakefile" in
! '') firstmakefile='makefile';;
! esac
: check for ordering of bytes in a long
case "$byteorder" in
***************
*** 8371,8376 ****
--- 8461,8470 ----
set sys/types.h i_systypes
eval $inhdr
+ : see if this is a sys/un.h system
+ set sys/un.h i_sysun
+ eval $inhdr
+
: see if this is a unistd.h system
set unistd.h i_unistd
eval $inhdr
***************
*** 8966,8971 ****
--- 9060,9066 ----
i_systimek='$i_systimek'
i_systimes='$i_systimes'
i_systypes='$i_systypes'
+ i_sysun='$i_sysun'
i_termio='$i_termio'
i_termios='$i_termios'
i_time='$i_time'
***************
*** 8983,8988 ****
--- 9078,9084 ----
installprivlib='$installprivlib'
installscript='$installscript'
installsitearch='$installsitearch'
+ installsitelib='$installsitelib'
intsize='$intsize'
known_extensions='$known_extensions'
ksh='$ksh'
***************
*** 9081,9086 ****
--- 9177,9184 ----
signal_t='$signal_t'
sitearch='$sitearch'
sitearchexp='$sitearchexp'
+ sitelib='$sitelib'
+ sitelibexp='$sitelibexp'
sizetype='$sizetype'
sleep='$sleep'
smail='$smail'
Index: INSTALL
Consistently use "sh Configure" in examples.
Add reminder that interactive use may be helpful.
*** perl5.002b1c/INSTALL Mon Nov 20 10:46:48 1995
--- perl5.002b1d/INSTALL Tue Nov 21 22:54:28 1995
***************
*** 60,66 ****
using the Configure command line option -Dprefix='/some/directory',
e.g.
! Configure -Dprefix=/opt/perl
If your prefix contains the string "perl", then the directories
are simplified. For example, if you use prefix=/opt/perl,
--- 60,66 ----
using the Configure command line option -Dprefix='/some/directory',
e.g.
! sh Configure -Dprefix=/opt/perl
If your prefix contains the string "perl", then the directories
are simplified. For example, if you use prefix=/opt/perl,
***************
*** 263,269 ****
Then, you can Configure and install in the usual way:
! sh ./Configure -des
make
make test
make install
--- 263,269 ----
Then, you can Configure and install in the usual way:
! sh Configure -des
make
make test
make install
***************
*** 276,282 ****
# Set up config.over to install perl into a different directory,
# e.g. /tmp/perl5 (see previous part).
! sh ./Configure -des
make
make test
make install
--- 276,282 ----
# Set up config.over to install perl into a different directory,
# e.g. /tmp/perl5 (see previous part).
! sh Configure -des
make
make test
make install
***************
*** 290,295 ****
--- 290,310 ----
=over 4
+ =item Running Configure Interactively
+
+ If Configure runs into trouble, remember that you can always run
+ Configure interactively so that you can check (and correct) its
+ guesses.
+
+ All the installation questions have been moved to the top, so you don't
+ have to wait for them. Once you've handled them (and your C compiler &
+ flags) you can type '&-d' at the next Configure prompt and Configure
+ will use the defaults from then on.
+
+ If you find yourself trying obscure command line incantations and
+ config.over tricks, I recommend you run Configure interactively
+ instead. You'll probably save yourself time in the long run.
+
=item Hint files.
The perl distribution includes a number of system-specific hints files
***************
*** 314,320 ****
=item Propagating your changes
If you later make any changes to F<config.sh>, you should propagate
! them to all the .SH files by running B<Configure -S>.
=item config.over
--- 329,335 ----
=item Propagating your changes
If you later make any changes to F<config.sh>, you should propagate
! them to all the .SH files by running B<sh Configure -S>.
=item config.over
***************
*** 344,350 ****
To change the C flags for all the files, edit F<config.sh>
and change either C<$ccflags> or C<$optimize>,
! and then re-run B<Configure -S ; make depend>.
=item No sh.
--- 359,365 ----
To change the C flags for all the files, edit F<config.sh>
and change either C<$ccflags> or C<$optimize>,
! and then re-run B<sh Configure -S ; make depend>.
=item No sh.
Index: MANIFEST
Include renamed hint file.
*** perl5.002b1c/MANIFEST Sat Dec 2 16:20:21 1995
--- perl5.002b1d/MANIFEST Sun Nov 26 17:03:31 1995
***************
*** 178,184 ****
hints/altos486.sh Hints for named architecture
hints/apollo.sh Hints for named architecture
hints/aux.sh Hints for named architecture
! hints/bsd386.sh Hints for named architecture
hints/convexos.sh Hints for named architecture
hints/cxux.sh Hints for named architecture
hints/dec_osf.sh Hints for named architecture
--- 178,184 ----
hints/altos486.sh Hints for named architecture
hints/apollo.sh Hints for named architecture
hints/aux.sh Hints for named architecture
! hints/bsdi_bsdos.sh Hints for named architecture
hints/convexos.sh Hints for named architecture
hints/cxux.sh Hints for named architecture
hints/dec_osf.sh Hints for named architecture
Index: config_h.SH
Include check for <sys/un.h>.
Include SITELIB_EXP definition for architecture-independent
site-specific modules. Usually, this will be
/usr/local/lib/site_perl.
Prereq: 3.0.1.4
*** perl5.002b1c/config_h.SH Mon Nov 20 10:00:33 1995
--- perl5.002b1d/config_h.SH Sat Dec 2 15:35:13 1995
***************
*** 1183,1188 ****
--- 1183,1194 ----
*/
#$i_systypes I_SYS_TYPES /**/
+ /* I_SYS_UN:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/un.h> to get UNIX domain socket definitions.
+ */
+ #$i_sysun I_SYS_UN /**/
+
/* I_TERMIO:
* This symbol, if defined, indicates that the program should include
* <termio.h> rather than <sgtty.h>. There are also differences in
***************
*** 1514,1519 ****
--- 1520,1531 ----
* in programs that are not prepared to deal with ~ expansion at run-time.
*/
#define SITEARCH_EXP "$sitearchexp" /**/
+
+ /* SITELIB_EXP:
+ * This symbol contains the ~name expanded version of SITELIB, to be used
+ * in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+ #define SITELIB_EXP "$sitelibexp" /**/
/* VOIDFLAGS:
* This symbol indicates how much support of the void type is given by this
Index: ext/Socket/Makefile.PL
Update version number to 1.5.
*** perl5.002b1c/ext/Socket/Makefile.PL Sat Nov 18 15:36:56 1995
--- perl5.002b1d/ext/Socket/Makefile.PL Sat Dec 2 16:23:52 1995
***************
*** 1,2 ****
use ExtUtils::MakeMaker;
! WriteMakefile(VERSION => 1.3);
--- 1,2 ----
use ExtUtils::MakeMaker;
! WriteMakefile(VERSION => 1.5);
Index: ext/Socket/Socket.pm
Update to version 1.5.
*** perl5.002b1c/ext/Socket/Socket.pm Sat Nov 18 15:37:03 1995
--- perl5.002b1d/ext/Socket/Socket.pm Sat Dec 2 16:25:17 1995
***************
*** 1,5 ****
package Socket;
! $VERSION = 1.3;
=head1 NAME
--- 1,5 ----
package Socket;
! $VERSION = 1.5;
=head1 NAME
***************
*** 117,122 ****
--- 117,123 ----
consisting of (PATHNAME). In a scalar context, packs its PATHANE
arguments as a SOCKADDR_UN and returns it. If this is confusing, use
pack_sockaddr_un() and unpack_sockaddr_un() explicitly.
+ These are only supported if your system has <sys/un.h>.
=item pack_sockaddr_un PATH
Index: ext/Socket/Socket.xs
Update to version 1.5.
This only supports the sockaddr_un -related functions if your
system has <sys/un.h>. SVR3 systems generally don't.
*** perl5.002b1c/ext/Socket/Socket.xs Sat Nov 18 15:36:57 1995
--- perl5.002b1d/ext/Socket/Socket.xs Sat Dec 2 15:46:20 1995
***************
*** 7,13 ****
--- 7,15 ----
# include <sys/types.h>
# endif
#include <sys/socket.h>
+ #ifdef I_SYS_UN
#include <sys/un.h>
+ #endif
# ifdef I_NETINET_IN
# include <netinet/in.h>
# endif
***************
*** 632,642 ****
--- 634,649 ----
char * pathname
CODE:
{
+ #ifdef I_SYS_UN
struct sockaddr_un sun_ad; /* fear using sun */
Zero( &sun_ad, sizeof sun_ad, char );
sun_ad.sun_family = AF_UNIX;
Copy( pathname, sun_ad.sun_path, sizeof sun_ad.sun_path, char );
ST(0) = sv_2mortal(newSVpv((char *)&sun_ad, sizeof sun_ad));
+ #else
+ ST(0) = (SV *) not_here("pack_sockaddr_un");
+ #endif
+
}
void
***************
*** 644,649 ****
--- 651,657 ----
SV * sun_sv
PPCODE:
{
+ #ifdef I_SYS_UN
STRLEN sockaddrlen;
struct sockaddr_un addr;
char * sun_ad = SvPV(sun_sv,sockaddrlen);
***************
*** 663,668 ****
--- 671,679 ----
AF_UNIX);
}
ST(0) = sv_2mortal(newSVpv(addr.sun_path, strlen(addr.sun_path)));
+ #else
+ ST(0) = (SV *) not_here("unpack_sockaddr_un");
+ #endif
}
void
Index: h2ph.PL
Add missing quotes.
*** perl5.002b1c/h2ph.PL Sun Nov 19 23:00:39 1995
--- perl5.002b1d/h2ph.PL Mon Nov 27 10:14:50 1995
***************
*** 35,41 ****
'ds 00 \"';
'ig 00 ';
! \$perlincl = $Config{archlibexp};
!GROK!THIS!
--- 35,41 ----
'ds 00 \"';
'ig 00 ';
! \$perlincl = "$Config{archlibexp}";
!GROK!THIS!
Index: hints/bsdi_bsdos.sh
Updated and renamed file.
*** perl5.002b1c/hints/bsdi_bsdos.sh Thu Jan 19 19:08:34 1995
--- perl5.002b1d/hints/bsdi_bsdos.sh Sun Nov 26 16:50:26 1995
***************
*** 1,14 ****
# Original by Neil Bowers <neilb@khoros.unm.edu>
#
so='o'
d_voidsig='define'
- sig_name='ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM URG STOP TSTP CONT CHLD TTIN TTOU IO XCPU XFSZ VTALRM PROF WINCH INFO USR1 USR2 '
signal_t='void'
# we don't want to use -lnm, since exp() is busted in there (in 1.1 anyway)
set `echo X "$libswanted "| sed -e 's/ nm / /'`
shift
--- 1,25 ----
# Original by Neil Bowers <neilb@khoros.unm.edu>
#
! # You can override the compiler and loader on the Configure command line:
! # ./Configure -Dcc=gcc -Dld=ld
!
! # filename extension for shared library objects
so='o'
d_voidsig='define'
signal_t='void'
+ # If Configure's signal detection fails, uncomment this line.
+ # sig_name='ZERO HUP INT QUIT ILL TRAP IOT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM URG STOP TSTP CONT CHLD TTIN TTOU IO XCPU XFSZ VTALRM PROF WINCH INFO USR1 USR2 '
+
+ d_dosuid='define'
+
# we don't want to use -lnm, since exp() is busted in there (in 1.1 anyway)
set `echo X "$libswanted "| sed -e 's/ nm / /'`
shift
***************
*** 17,31 ****
# Avoid telldir prototype conflict in pp_sys.c (BSD/386 uses const DIR *)
pp_sys_cflags='ccflags="$ccflags -DHAS_TELLDIR_PROTOTYPE"'
- # Avoid problems with HUGE_VAL in POSIX in 1.0's cc.
- # Use gcc2 (2.5.8) if available in 1.1.
case "$osvers" in
1.0*)
POSIX_cflags='ccflags="$ccflags -UHUGE_VAL"'
;;
1.1*)
case "$cc" in
'') cc=gcc2 ;;
esac
;;
esac
--- 28,61 ----
# Avoid telldir prototype conflict in pp_sys.c (BSD/386 uses const DIR *)
pp_sys_cflags='ccflags="$ccflags -DHAS_TELLDIR_PROTOTYPE"'
case "$osvers" in
1.0*)
+ # Avoid problems with HUGE_VAL in POSIX in 1.0's cc.
POSIX_cflags='ccflags="$ccflags -UHUGE_VAL"'
;;
1.1*)
+ # Use gcc2 (2.5.8) if available in 1.1.
case "$cc" in
'') cc=gcc2 ;;
esac
+ ;;
+ 2.*)
+ # Use 2.X's gcc2
+ case "$cc" in
+ '') cc=gcc2 ;;
+ esac
+
+ # Link with shared libraries in 2.X
+ case "$ld" in
+ '') ld='shlicc' ;;
+ esac
+
+ # setre?[ug]id() have been replaced by the _POSIX_SAVED_IDS stuff
+ # in 4.4BSD-based systems (including BSD/OS 2.0 and later).
+ # See http://www.bsdi.com/bsdi-man?setuid(2)
+ d_setregid='undef'
+ d_setreuid='undef'
+ d_setrgid='undef'
+ d_setruid='undef'
;;
esac
Index: pod/perlre.pod
Mention 65536 limit explicitly.
*** perl5.002b1c/pod/perlre.pod Wed Nov 15 21:35:31 1995
--- perl5.002b1d/pod/perlre.pod Sun Nov 26 16:57:20 1995
***************
*** 75,82 ****
(If a curly bracket occurs in any other context, it is treated
as a regular character.) The "*" modifier is equivalent to C<{0,}>, the "+"
! modifier to C<{1,}>, and the "?" modifier to C<{0,1}>. There is no limit to the
! size of n or m, but large numbers will chew up more memory.
By default, a quantified subpattern is "greedy", that is, it will match as
many times as possible without causing the rest pattern not to match. The
--- 75,82 ----
(If a curly bracket occurs in any other context, it is treated
as a regular character.) The "*" modifier is equivalent to C<{0,}>, the "+"
! modifier to C<{1,}>, and the "?" modifier to C<{0,1}>. n and m are limited
! to integral values less than 65536.
By default, a quantified subpattern is "greedy", that is, it will match as
many times as possible without causing the rest pattern not to match. The
End of patch.