# # This patch takes you from Perl 5.005 to 5.005_01. # # To apply, chdir to a clean perl5.005 source directory # and do: # # patch -p1 -N < this_file # exit Index: patchlevel.h ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/patchlevel.h Wed Jul 22 14:22:01 1998 --- perl5.005_01/patchlevel.h Sun Jul 26 17:15:21 1998 *************** *** 1,6 **** #ifndef __PATCHLEVEL_H_INCLUDED__ #define PATCHLEVEL 5 ! #define SUBVERSION 0 /* local_patches -- list of locally applied less-than-subversion patches. --- 1,6 ---- #ifndef __PATCHLEVEL_H_INCLUDED__ #define PATCHLEVEL 5 ! #define SUBVERSION 1 /* local_patches -- list of locally applied less-than-subversion patches. Index: Changes ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/Changes Wed Jul 22 17:19:33 1998 --- perl5.005_01/Changes Sun Jul 26 19:27:56 1998 *************** *** 14,20 **** To give due honor to those who have made Perl what is is today, here are some of the more common names in the Changes file, and their ! current addresses (as of March 1997): Gisle Aas Abigail --- 14,20 ---- To give due honor to those who have made Perl what is is today, here are some of the more common names in the Changes file, and their ! current addresses (as of July 1998): Gisle Aas Abigail *************** *** 72,77 **** --- 72,177 ---- +> branched (from elsewhere) !> merged changes (from elsewhere) + + ---------------- + Version 5.005_01 First maintenance release of 5.005 + ---------------- + + ____________________________________________________________________________ + [ 1669] By: gsar on 1998/07/26 23:19:02 + Log: update Changes; add sv_*_mg() entries in win32/GenCAPI.pl + Branch: maint-5.005/perl + ! Changes proto.h win32/GenCAPI.pl + ____________________________________________________________________________ + [ 1668] By: gsar on 1998/07/26 21:12:11 + Log: s/TMP_CRLF_PATCH/PERL_STRICT_CR/ with sense reversed, so they + can disable it from config.sh if they want; up patchlevel to 5_01; + little tweaks to pods + Branch: maint-5.005/perl + ! README.win32 patchlevel.h pod/perldelta.pod toke.c + ! win32/Makefile win32/config_H.bc win32/config_H.gc + ! win32/config_H.vc win32/makefile.mk win32/win32.c + ____________________________________________________________________________ + [ 1662] By: gsar on 1998/07/26 05:01:52 + Log: add missing sv_*_mg() prototypes in proto.h, update perlhist.pod + Branch: maint-5.005/perl + ! pod/perlhist.pod proto.h + ____________________________________________________________________________ + [ 1658] By: gsar on 1998/07/26 02:23:46 + Log: VMS patches from Dan Sugalski + Date: Fri, 24 Jul 1998 11:38:25 -0700 + Message-Id: <3.0.5.32.19980724113825.00a067b0@ous.edu> + Subject: [PATCH 5.005] version number problem with VMS (Corrected) + -- + Date: Fri, 24 Jul 1998 12:30:36 -0700 + Message-Id: <3.0.5.32.19980724123036.009f0390@ous.edu> + Subject: [PATCH 5.005]Tweaks to README.vms + -- + Date: Sat, 25 Jul 1998 17:56:55 -0700 (PDT) + Message-ID: + Subject: [PATCH 5.005] Final build cleanup patch + Branch: maint-5.005/perl + ! README.vms vms/descrip_mms.template vms/subconfigure.com + ____________________________________________________________________________ + [ 1657] By: gsar on 1998/07/26 02:19:50 + Log: another platform where pp_sselect() needs a whole fd_set buffer + From: Lupe Christoph + Date: Sat, 25 Jul 1998 19:49:33 +0200 (MET DST) + Message-Id: <199807251749.TAA22347@alanya.m.isar.de> + Subject: Patch for Not OK: perl 5.005 on i86pc-solaris-thread 2.6 + Branch: maint-5.005/perl + ! pp_sys.c + ____________________________________________________________________________ + [ 1656] By: gsar on 1998/07/26 02:12:46 + Log: fix problem building modules on dos-djgpp + From: Laszlo Molnar + Date: Sat, 25 Jul 1998 00:53:39 +0200 + Message-ID: <19980725005339.C222@cdata.tvnet.hu> + Subject: [PATCH 5.005] dos-djgpp and modules problem + Branch: maint-5.005/perl + ! djgpp/fixpmain + ____________________________________________________________________________ + [ 1655] By: gsar on 1998/07/26 02:11:09 + Log: From: Tom Spindler + Date: Wed, 22 Jul 1998 16:11:07 -0400 + Message-ID: <19980722161107.A16813@home.merit.edu> + Subject: [PATCH 5.005] BeOS tweak + Branch: maint-5.005/perl + ! hints/beos.sh + ____________________________________________________________________________ + [ 1654] By: gsar on 1998/07/26 02:09:29 + Log: various pod tweaks + Branch: maint-5.005/perl + ! Changes pod/perldelta.pod pod/perlmodinstall.pod + ! pod/perltoc.pod + ____________________________________________________________________________ + [ 1653] By: gsar on 1998/07/26 02:05:46 + Log: fix emacs/ptags for PL_* changes + From: Ilya Zakharevich + Date: Fri, 24 Jul 1998 03:12:35 -0400 (EDT) + Message-Id: <199807240712.DAA04204@monk.mps.ohio-state.edu> + Subject: [PATCH 5.004_76] Yet better ptags + Branch: maint-5.005/perl + ! emacs/ptags + ____________________________________________________________________________ + [ 1652] By: gsar on 1998/07/26 02:03:01 + Log: fix behavior of <=> on bigints + From: "M.J.T. Guy" + Message-Id: + Date: Fri, 24 Jul 1998 18:29:53 +0100 + Subject: [PATCH] Re: Math::BigInt <=> op is not correct. + Branch: maint-5.005/perl + ! lib/Math/BigInt.pm t/lib/bigintpm.t + ____________________________________________________________________________ + [ 1649] By: gsar on 1998/07/24 03:56:56 + Log: create maint-5.005 branch + Branch: maint-5.005/perl + +> (branch 1079 files) + ____________________________________________________________________________ + [ 1648] By: gsar on 1998/07/24 03:36:35 + Log: un-checked-in 5.005 Changes (this is 5.005 *exactly*) + Branch: perl + ! Changes ------------- Version 5.005 Production release Index: README.vms ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/README.vms Wed Jul 22 04:23:06 1998 --- perl5.005_01/README.vms Sat Jul 25 22:28:39 1998 *************** *** 177,195 **** your DCL$PATH (if you're using VMS 6.2 or higher). 4) Optionally define the command PERLDOC as ! PERLDOC :== $PERL_ROOT:[000000]PERL PERL_ROOT:[LIB.POD]PERLDOC.COM -T Note that if you wish to use most as a pager please see ftp://space.mit.edu/pub/davis/ for both most and slang. 5) Optionally define the command PERLBUG (the Perl bug report generator) as ! PERLBUG :== $PERL_ROOT:[000000]PERL PERL_ROOT:[LIB]PERLBUG.COM" 6) Optionally define the command POD2MAN (Converts POD files to nroff source suitable for converting to man pages. Also quiets complaints during module builds) as DEFINE/NOLOG POD2MAN PERL_ROOT:[LIB.POD]POD2MAN.COM ! POD2MAN :== $PERL_ROOT:[000000]PERL POD2MAN * Installing Perl into DCLTABLES --- 177,205 ---- your DCL$PATH (if you're using VMS 6.2 or higher). 4) Optionally define the command PERLDOC as ! PERLDOC :== "$PERL_ROOT:[000000]PERL PERL_ROOT:[LIB.POD]PERLDOC.COM -T" Note that if you wish to use most as a pager please see ftp://space.mit.edu/pub/davis/ for both most and slang. 5) Optionally define the command PERLBUG (the Perl bug report generator) as ! PERLBUG :== "$PERL_ROOT:[000000]PERL PERL_ROOT:[LIB]PERLBUG.COM" 6) Optionally define the command POD2MAN (Converts POD files to nroff source suitable for converting to man pages. Also quiets complaints during module builds) as DEFINE/NOLOG POD2MAN PERL_ROOT:[LIB.POD]POD2MAN.COM ! POD2MAN :== "$PERL_ROOT:[000000]PERL POD2MAN" ! ! 7) Optionally define the command POD2TEXT (Converts POD files to text, ! which is required for perldoc -f to work properly) as ! ! DEFINE/NOLOG POD2TEXT PERL_ROOT:[LIB.POD]POD2TEXT.COM ! POD2TEXT :== "$PERL_ROOT:[000000]PERL POD2TEXT" ! ! In all these cases, if you've got PERL defined as a foreign command, you ! can replace $PERL_ROOT:[000000]PERL with ''perl'. If you've installed perl ! into DCLTABLES, replace it with just perl. * Installing Perl into DCLTABLES Index: README.win32 ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/README.win32 Wed Jul 22 14:54:22 1998 --- perl5.005_01/README.win32 Sun Jul 26 17:04:47 1998 *************** *** 70,76 **** shell. The Makefile also has known incompatibilites with the "command.com" shell that comes with Windows95, so building under Windows95 should be considered "unsupported". However, there have been reports of successful ! build attempts using 4DOS/NT version 3.00 under Windows95, using dmake, but your mileage may vary. The surest way to build it is on WindowsNT, using the cmd shell. --- 70,76 ---- shell. The Makefile also has known incompatibilites with the "command.com" shell that comes with Windows95, so building under Windows95 should be considered "unsupported". However, there have been reports of successful ! build attempts using 4DOS/NT version 6.01 under Windows95, using dmake, but your mileage may vary. The surest way to build it is on WindowsNT, using the cmd shell. Index: djgpp/fixpmain ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/djgpp/fixpmain Sat Jul 11 14:48:32 1998 --- perl5.005_01/djgpp/fixpmain Sat Jul 25 22:19:23 1998 *************** *** 15,24 **** $badname=join ("__",map {lc substr ($_,0,8)} split /:+/); # dosify $perlmain =~ s/^.*boot_$badname.*$//gm if $badname; # delete bad lines ! @exts=split (" ",$Config{known_extensions}); ! for $realname (@exts,'DynaLoader') { ! $dosname=substr (lc $realname,0,8); $perlmain =~ s/\bboot_$dosname/boot_$realname/gm; $perlmain =~ s/\b$dosname(::bootstrap)/$realname$1/gm; } --- 15,25 ---- $badname=join ("__",map {lc substr ($_,0,8)} split /:+/); # dosify $perlmain =~ s/^.*boot_$badname.*$//gm if $badname; # delete bad lines ! @exts=('DynaLoader',split (" ",$Config{known_extensions})); ! for $realname (@exts) { ! $dosname=join ("__",map {lc substr ($_,0,8)} split /\//,$realname); ! $realname =~ s!/!__!g; $perlmain =~ s/\bboot_$dosname/boot_$realname/gm; $perlmain =~ s/\b$dosname(::bootstrap)/$realname$1/gm; } Index: emacs/ptags ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/emacs/ptags Tue Jul 7 18:17:00 1998 --- perl5.005_01/emacs/ptags Sat Jul 25 22:03:34 1998 *************** *** 14,28 **** # Use Hallvard's scan for XS files - since he processes the "C" part too - # but with a lot of improvements: now it is no worse than CPerl's one. ! # Avoid builitin on OS/2: if test ! -z "$OS2_SHELL"; then alias find=gnufind; fi # Insure proper order (.h after .c, .xs before .c in subdirs): ! topfiles="`echo ' ' *.y *.c *.h ' ' | sed 's/ embed.h / /' | sed 's/ globals.c / /'`" subdirfiles="`( find ./*/* -name '*.[cy]' -print | sort ; find ./*/* -name '*.[hH]' -print | sort )`" xsfiles="`find . -name '*.xs' -print | sort`" ! # etags -d : process defineds too (default now) # These are example lines for global variables and PP-code: ## IEXT SV * Iparsehook; --- 14,31 ---- # Use Hallvard's scan for XS files - since he processes the "C" part too - # but with a lot of improvements: now it is no worse than CPerl's one. ! # Avoid builtin on OS/2: if test ! -z "$OS2_SHELL"; then alias find=gnufind; fi # Insure proper order (.h after .c, .xs before .c in subdirs): ! # Move autogenerated less-informative files to the end: ! # Hard to do embed.h and embedvar.h in one sweep: ! ! topfiles="`echo ' ' *.y *.c *.h ' ' | sed 's/ \(embed\(var\|\)\.h\|obj\(pp\|XSUB\)\.h\|globals\.c\) \(\(embedvar\|objpp\).h \|\)/ /g'`" subdirfiles="`( find ./*/* -name '*.[cy]' -print | sort ; find ./*/* -name '*.[hH]' -print | sort )`" xsfiles="`find . -name '*.xs' -print | sort`" ! # etags -d : process defines too (default now) # These are example lines for global variables and PP-code: ## IEXT SV * Iparsehook; *************** *** 32,41 **** ## PERLVARI(Grsfp, PerlIO *, Nullfp) ## PERLVAR(cvcache, HV *) set x -d -l c \ -r '/[dI]?EXT\(CONST\)?[ \t*]+\([a-zA-Z_0-9]+[ \t*]+\)*\([a-zA-Z_0-9]+\)[ \t]*\($\|;\|\[\|[ \t]I+NIT[ \t]*(\|\/\*\)/\3/' \ -r '/IEXT[ \t][^\/]*[ \t*]I\([a-zA-Z_][a-zA-Z_0-9]*\)[\[; \t]/\1/' \ ! -r '/PERLVAR[a-zA-Z_0-9]*[ \t]*([ \t]*[GIT]?\([a-zA-Z_][a-zA-Z_0-9]*\)[ \t]*,/\1/' \ -r '/PP[ \t]*([ \t]*\([^ \t()]*\)[ \t]*)/\1/' shift --- 35,46 ---- ## PERLVARI(Grsfp, PerlIO *, Nullfp) ## PERLVAR(cvcache, HV *) + # Putting PL_\1 in the substitution line makes etags dump core + # Thus we do it later (but 20.2.92 does it OK). set x -d -l c \ -r '/[dI]?EXT\(CONST\)?[ \t*]+\([a-zA-Z_0-9]+[ \t*]+\)*\([a-zA-Z_0-9]+\)[ \t]*\($\|;\|\[\|[ \t]I+NIT[ \t]*(\|\/\*\)/\3/' \ -r '/IEXT[ \t][^\/]*[ \t*]I\([a-zA-Z_][a-zA-Z_0-9]*\)[\[; \t]/\1/' \ ! -r '/PERLVAR[a-zA-Z_0-9]*[ \t]*([ \t]*[GIT]?\([a-zA-Z_][a-zA-Z_0-9]*\)[ \t]*[\[,]/\1/' \ -r '/PP[ \t]*([ \t]*\([^ \t()]*\)[ \t]*)/\1/' shift *************** *** 47,54 **** -l none -r '/#\(\$[a-zA-Z_0-9]+\|define\)[ \t]+\([a-zA-Z_0-9]+\)/\2/' \ config_h.SH etags -o TAGS.tmp -a "$@" $topfiles etags -o TAGS.tmp -a -D -l none -r '/#define.*\t\(Perl_.*\)/\1/' embed.h ! etags -o TAGS.tmp -a globals.c perl -w014pe 'if (s/^( [^\n\x7F\x1]*\b # 1: TAG group (\w+) # 2: word --- 52,75 ---- -l none -r '/#\(\$[a-zA-Z_0-9]+\|define\)[ \t]+\([a-zA-Z_0-9]+\)/\2/' \ config_h.SH etags -o TAGS.tmp -a "$@" $topfiles + + # Now add these PL_: + perl -w014pe 'if (s/^( .* PERLVAR I? # 1: TAG group + \s* \( \s* [GIT] # + .* # + \x7F # End of description + ) + ( .* \x1 ) # 2: Exact group + /${1}PL_$2/mgx) { # Add PL_ + $chars = chomp; + s/^((\n.+,)\d+)/ $2 . (length($_) - length($1) - 1) /e; + $_ .= ("\f" x $chars); + }' TAGS.tmp > TAGS.tm1 && mv TAGS.tm1 TAGS.tmp + + + etags -o TAGS.tmp -a -D -l none -r '/#define.*\t\(Perl_.*\)/\1/' embed.h ! etags -o TAGS.tmp -a globals.c embedvar.h objXSUB.h objpp.h perl -w014pe 'if (s/^( [^\n\x7F\x1]*\b # 1: TAG group (\w+) # 2: word Index: hints/beos.sh Prereq: 1.1 ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/hints/beos.sh Thu May 14 17:57:14 1998 --- perl5.005_01/hints/beos.sh Sat Jul 25 22:17:47 1998 *************** *** 1,7 **** # BeOS hints file # $Id: beos.sh,v 1.1 1998/02/16 03:51:45 dogcow Exp $ ! if [ ! -f ../beos/nm ]; then mwcc -w all -o ../beos/nm ../beos/nm.c; fi prefix="/boot/home/config" --- 1,7 ---- # BeOS hints file # $Id: beos.sh,v 1.1 1998/02/16 03:51:45 dogcow Exp $ ! if [ ! -f beos/nm ]; then mwcc -w all -o beos/nm beos/nm.c; fi prefix="/boot/home/config" Index: lib/Math/BigInt.pm ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/lib/Math/BigInt.pm Mon Jun 29 01:49:32 1998 --- perl5.005_01/lib/Math/BigInt.pm Sat Jul 25 22:08:46 1998 *************** *** 82,89 **** # Negate input value. sub bneg { #(num_str) return num_str local($_) = &bnorm(@_); ! vec($_,0,8) ^= ord('+') ^ ord('-') unless $_ eq '+0'; ! s/^H/N/; $_; } --- 82,89 ---- # Negate input value. sub bneg { #(num_str) return num_str local($_) = &bnorm(@_); ! return $_ if $_ eq '+0' or $_ eq 'NaN'; ! vec($_,0,8) ^= ord('+') ^ ord('-'); $_; } *************** *** 106,112 **** } elsif ($y eq 'NaN') { undef; } else { ! &cmp($x,$y); } } --- 106,112 ---- } elsif ($y eq 'NaN') { undef; } else { ! &cmp($x,$y) <=> 0; } } *************** *** 393,399 **** =head1 Autocreating constants After C all the integer decimal constants ! in the given scope are converted to C. This convertion happens at compile time. In particular --- 393,399 ---- =head1 Autocreating constants After C all the integer decimal constants ! in the given scope are converted to C. This conversion happens at compile time. In particular Index: pod/perldelta.pod ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/pod/perldelta.pod Wed Jul 22 17:01:39 1998 --- perl5.005_01/pod/perldelta.pod Sun Jul 26 17:14:05 1998 *************** *** 135,141 **** Perl has a new Social Contract for contributors. See F. The license included in much of the Perl documentation has changed. ! See L and the individual perl man pages listed therein. =head1 Core Changes --- 135,146 ---- Perl has a new Social Contract for contributors. See F. The license included in much of the Perl documentation has changed. ! Most of the Perl documentation was previously under the implicit GNU ! General Public License or the Artistic License (at the user's choice). ! Now much of the documentation unambigously states the terms under which ! it may be distributed. Those terms are in general much less restrictive ! than the GNU GPL. See L and the individual perl man pages listed ! therein. =head1 Core Changes *************** *** 299,304 **** --- 304,339 ---- This should improve reliability of cached stack pointers in the internals and in XSUBs. + =head2 More generous treatment of carriage returns + + Perl used to complain if it encountered literal carriage returns in + scripts. Now they are mostly treated like whitespace within program text. + Inside string literals and here documents, literal carriage returns are + ignored if they occur paired with newlines, or get interpreted as newlines + if they stand alone. This behavior means that literal carriage returns + in files should be avoided. You can get the older, more compatible (but + less generous) behavior by defining the preprocessor symbol + C when building perl. Of course, all this has nothing + whatever to do with how escapes like C<\r> are handled within strings. + + Note that this doesn't somehow magically allow you to keep all text files + in DOS format. The generous treatment only applies to files that perl + itself parses. If your C compiler doesn't allow carriage returns in + files, you may still be unable to build modules that need a C compiler. + + =head2 Memory leaks + + C, C and C don't leak memory anymore when used in lvalue + context. Many small leaks that impacted applications that embed multiple + interpreters have been fixed. + + =head2 Better support for multiple interpreters + + The build-time option C<-DMULTIPLICITY> has had many of the details + reworked. Some previously global variables that should have been + per-interpreter now are. With care, this allows interpreters to call + each other. See the C extension on CPAN. + =head2 Behavior of local() on array and hash elements is now well-defined See L. *************** *** 591,601 **** =head1 Utility Changes ! h2ph and related utilities have been vastly overhauled. ! perlcc, a new experimental front end for the compiler is available. ! The crude GNU configure emulator is now called configure.gnu. =head1 Documentation Changes --- 626,642 ---- =head1 Utility Changes ! C and related utilities have been vastly overhauled. ! ! C, a new experimental front end for the compiler is available. ! The crude GNU C emulator is now called C to ! avoid trampling on C under case-insensitive filesystems. ! C used to be rather slow. The slower features are now optional. ! In particular, case-insensitive searches need the C<-i> switch, and ! recursive searches need C<-r>. You can set these switches in the ! C environment variable to get the old behavior. =head1 Documentation Changes Index: pod/perlhist.pod Prereq: 1.41 ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/pod/perlhist.pod Tue Jul 14 04:44:06 1998 --- perl5.005_01/pod/perlhist.pod Sun Jul 26 01:08:15 1998 *************** *** 289,294 **** --- 289,297 ---- 5.004_72 1998-Jul-12 5.004_73 1998-Jul-13 5.004_74 1998-Jul-14 + 5.004_75 1998-Jul-15 + 5.004_76 1998-Jul-21 + 5.005 1998-Jul-22 =head2 SELECTED RELEASE SIZES Index: pod/perlmodinstall.pod ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/pod/perlmodinstall.pod Wed Jul 22 13:32:04 1998 --- perl5.005_01/pod/perlmodinstall.pod Sat Jul 25 22:02:23 1998 *************** *** 24,31 **** --- 24,34 ---- =over 5 =item B the file + =item B the file into a directory + =item B the module (sometimes unnecessary) + =item B the module. =back Index: pod/perltoc.pod ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/pod/perltoc.pod Wed Jul 22 17:05:56 1998 --- perl5.005_01/pod/perltoc.pod Sat Jul 25 22:14:35 1998 *************** *** 898,903 **** --- 898,909 ---- =item Reliable stack pointers + =item More generous treatment of carriage returns + + =item Memory leaks + + =item Better support for multiple interpreters + =item Behavior of local() on array and hash elements is now well-defined =item C<%!> is transparently tied to the L module *************** *** 1493,1501 **** =item PREAMBLE ! B the file=item B the file into a directory ! =item B the module (sometimes unnecessary) ! =item B the module =back --- 1499,1506 ---- =item PREAMBLE ! B the file, B the file into a directory, B the ! module (sometimes unnecessary), B the module =back Index: pp_sys.c ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/pp_sys.c Tue Jul 21 00:51:53 1998 --- perl5.005_01/pp_sys.c Sat Jul 25 22:24:31 1998 *************** *** 755,761 **** #if BYTEORDER == 0x1234 || BYTEORDER == 0x12345678 /* XXX Configure test needed. */ ! #if defined(__linux__) || defined(OS2) || defined(NeXT) || defined(__osf__) growsize = sizeof(fd_set); #else growsize = maxlen; /* little endians can use vecs directly */ --- 755,761 ---- #if BYTEORDER == 0x1234 || BYTEORDER == 0x12345678 /* XXX Configure test needed. */ ! #if defined(__linux__) || defined(OS2) || defined(NeXT) || defined(__osf__) || defined(sun) growsize = sizeof(fd_set); #else growsize = maxlen; /* little endians can use vecs directly */ Index: proto.h ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/proto.h Tue Jul 21 03:21:09 1998 --- perl5.005_01/proto.h Sun Jul 26 18:57:03 1998 *************** *** 74,80 **** VIRTUAL char * get_no_modify _((void)); VIRTUAL U32 * get_opargs _((void)); VIRTUAL I32 cxinc _((void)); ! VIRTUAL void deb _((const char* pat,...)) /*__attribute__((format(printf,1,2)))*/; VIRTUAL void deb_growlevel _((void)); VIRTUAL void debprofdump _((void)); VIRTUAL I32 debop _((OP* o)); --- 74,80 ---- VIRTUAL char * get_no_modify _((void)); VIRTUAL U32 * get_opargs _((void)); VIRTUAL I32 cxinc _((void)); ! VIRTUAL void deb _((const char* pat,...)); VIRTUAL void deb_growlevel _((void)); VIRTUAL void debprofdump _((void)); VIRTUAL I32 debop _((OP* o)); *************** *** 527,535 **** --- 527,539 ---- VIRTUAL int sv_backoff _((SV* sv)); VIRTUAL SV* sv_bless _((SV* sv, HV* stash)); VIRTUAL void sv_catpvf _((SV* sv, const char* pat, ...)); + VIRTUAL void sv_catpvf_mg _((SV *sv, const char* pat, ...)); VIRTUAL void sv_catpv _((SV* sv, char* ptr)); + VIRTUAL void sv_catpv_mg _((SV *sv, char *ptr)); VIRTUAL void sv_catpvn _((SV* sv, char* ptr, STRLEN len)); + VIRTUAL void sv_catpvn_mg _((SV *sv, char *ptr, STRLEN len)); VIRTUAL void sv_catsv _((SV* dsv, SV* ssv)); + VIRTUAL void sv_catsv_mg _((SV *dstr, SV *sstr)); VIRTUAL void sv_chop _((SV* sv, char* ptr)); VIRTUAL void sv_clean_all _((void)); VIRTUAL void sv_clean_objs _((void)); *************** *** 568,584 **** --- 572,596 ---- VIRTUAL void sv_report_used _((void)); VIRTUAL void sv_reset _((char* s, HV* stash)); VIRTUAL void sv_setpvf _((SV* sv, const char* pat, ...)); + VIRTUAL void sv_setpvf_mg _((SV *sv, const char* pat, ...)); VIRTUAL void sv_setiv _((SV* sv, IV num)); + VIRTUAL void sv_setiv_mg _((SV *sv, IV i)); VIRTUAL void sv_setpviv _((SV* sv, IV num)); + VIRTUAL void sv_setpviv_mg _((SV *sv, IV iv)); VIRTUAL void sv_setuv _((SV* sv, UV num)); + VIRTUAL void sv_setuv_mg _((SV *sv, UV u)); VIRTUAL void sv_setnv _((SV* sv, double num)); + VIRTUAL void sv_setnv_mg _((SV *sv, double num)); VIRTUAL SV* sv_setref_iv _((SV* rv, char* classname, IV iv)); VIRTUAL SV* sv_setref_nv _((SV* rv, char* classname, double nv)); VIRTUAL SV* sv_setref_pv _((SV* rv, char* classname, void* pv)); VIRTUAL SV* sv_setref_pvn _((SV* rv, char* classname, char* pv, I32 n)); VIRTUAL void sv_setpv _((SV* sv, const char* ptr)); + VIRTUAL void sv_setpv_mg _((SV *sv, const char *ptr)); VIRTUAL void sv_setpvn _((SV* sv, const char* ptr, STRLEN len)); + VIRTUAL void sv_setpvn_mg _((SV *sv, const char *ptr, STRLEN len)); VIRTUAL void sv_setsv _((SV* dsv, SV* ssv)); + VIRTUAL void sv_setsv_mg _((SV *dstr, SV *sstr)); VIRTUAL void sv_taint _((SV* sv)); VIRTUAL bool sv_tainted _((SV* sv)); VIRTUAL int sv_unmagic _((SV* sv, int type)); *************** *** 586,591 **** --- 598,604 ---- VIRTUAL void sv_untaint _((SV* sv)); VIRTUAL bool sv_upgrade _((SV* sv, U32 mt)); VIRTUAL void sv_usepvn _((SV* sv, char* ptr, STRLEN len)); + VIRTUAL void sv_usepvn_mg _((SV *sv, char *ptr, STRLEN len)); VIRTUAL void sv_vcatpvfn _((SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, bool *used_locale)); *************** *** 662,681 **** void sv_unglob _((SV* sv)); void sv_check_thinkfirst _((SV *sv)); I32 avhv_index_sv _((SV* sv)); - - void sv_catpv_mg _((SV *sv, char *ptr)); - void sv_catpvf_mg _((SV *sv, const char* pat, ...)); - void sv_catpvn_mg _((SV *sv, char *ptr, STRLEN len)); - void sv_catsv_mg _((SV *dstr, SV *sstr)); - void sv_setiv_mg _((SV *sv, IV i)); - void sv_setnv_mg _((SV *sv, double num)); - void sv_setsv_mg _((SV *dstr, SV *sstr)); - void sv_setuv_mg _((SV *sv, UV u)); - void sv_setpv_mg _((SV *sv, const char *ptr)); - void sv_setpvf_mg _((SV *sv, const char* pat, ...)); - void sv_setpviv_mg _((SV *sv, IV iv)); - void sv_setpvn_mg _((SV *sv, const char *ptr, STRLEN len)); - void sv_usepvn_mg _((SV *sv, char *ptr, STRLEN len)); void do_report_used _((SV *sv)); void do_clean_objs _((SV *sv)); --- 675,680 ---- Index: t/lib/bigintpm.t ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/t/lib/bigintpm.t Sun Jul 19 21:18:01 1998 --- perl5.005_01/t/lib/bigintpm.t Sat Jul 25 22:08:46 1998 *************** *** 10,16 **** $test = 0; $| = 1; ! print "1..246\n"; while () { chop; if (s/^&//) { --- 10,16 ---- $test = 0; $| = 1; ! print "1..247\n"; while () { chop; if (s/^&//) { *************** *** 116,121 **** --- 116,122 ---- +124:+123:+1 -123:-124:+1 -124:-123:-1 + +100:+5:+1 &badd abc:abc:NaN abc:+0:NaN Index: toke.c ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/toke.c Tue Jul 21 01:57:44 1998 --- perl5.005_01/toke.c Sun Jul 26 16:43:39 1998 *************** *** 11,18 **** * "It all comes from here, the stench and the peril." --Frodo */ - #define TMP_CRLF_PATCH - #include "EXTERN.h" #include "perl.h" --- 11,16 ---- *************** *** 1988,1994 **** } goto retry; case '\r': ! #ifndef TMP_CRLF_PATCH warn("Illegal character \\%03o (carriage return)", '\r'); croak( "(Maybe you didn't strip carriage returns after a network transfer?)\n"); --- 1986,1992 ---- } goto retry; case '\r': ! #ifdef PERL_STRICT_CR warn("Illegal character \\%03o (carriage return)", '\r'); croak( "(Maybe you didn't strip carriage returns after a network transfer?)\n"); *************** *** 5168,5174 **** *d++ = '\n'; *d = '\0'; len = d - PL_tokenbuf; ! #ifdef TMP_CRLF_PATCH d = strchr(s, '\r'); if (d) { char *olds = s; --- 5166,5172 ---- *d++ = '\n'; *d = '\0'; len = d - PL_tokenbuf; ! #ifndef PERL_STRICT_CR d = strchr(s, '\r'); if (d) { char *olds = s; *************** *** 5244,5250 **** } PL_curcop->cop_line++; PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr); ! #ifdef TMP_CRLF_PATCH if (PL_bufend - PL_linestart >= 2) { if ((PL_bufend[-2] == '\r' && PL_bufend[-1] == '\n') || (PL_bufend[-2] == '\n' && PL_bufend[-1] == '\r')) --- 5242,5248 ---- } PL_curcop->cop_line++; PL_bufend = SvPVX(PL_linestr) + SvCUR(PL_linestr); ! #ifndef PERL_STRICT_CR if (PL_bufend - PL_linestart >= 2) { if ((PL_bufend[-2] == '\r' && PL_bufend[-1] == '\n') || (PL_bufend[-2] == '\n' && PL_bufend[-1] == '\r')) *************** *** 5543,5549 **** if (s < PL_bufend) break; /* handle case where we are done yet :-) */ ! #ifdef TMP_CRLF_PATCH if (to - SvPVX(sv) >= 2) { if ((to[-2] == '\r' && to[-1] == '\n') || (to[-2] == '\n' && to[-1] == '\r')) --- 5541,5547 ---- if (s < PL_bufend) break; /* handle case where we are done yet :-) */ ! #ifndef PERL_STRICT_CR if (to - SvPVX(sv) >= 2) { if ((to[-2] == '\r' && to[-1] == '\n') || (to[-2] == '\n' && to[-1] == '\r')) Index: vms/descrip_mms.template ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/vms/descrip_mms.template Wed Jul 22 04:23:55 1998 --- perl5.005_01/vms/descrip_mms.template Sat Jul 25 22:29:01 1998 *************** *** 56,62 **** OBJVAL = $(MMS$TARGET_NAME)$(O) .endif ! PERL_VERSION = 5_00$PATCHLEVEL$SUBVERSION .ifdef MALLOC MALLOC_O = ,malloc$(O) --- 56,62 ---- OBJVAL = $(MMS$TARGET_NAME)$(O) .endif ! PERL_VERSION = ~PV~ .ifdef MALLOC MALLOC_O = ,malloc$(O) Index: vms/subconfigure.com ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/vms/subconfigure.com Mon Jul 20 21:36:52 1998 --- perl5.005_01/vms/subconfigure.com Sat Jul 25 22:28:08 1998 *************** *** 373,379 **** --- 373,384 ---- $ perl_archname = "''perl_archname'-thread" $ ENDIF $ perl_osvers=f$edit(osvers, "TRIM") + $ if (perl_subversion + 0).eq.0 + $ THEN + $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + $ ELSE $ LocalPerlVer = "5_" + Perl_PATCHLEVEL + perl_subversion + $ ENDIF $! $! Some that we need to invoke the compiler for $ OS := "open/write SOURCECHAN []temp.c" *************** *** 2455,2461 **** $ WRITE_RESULT "Writing DESCRIP.MMS" $!set ver $ define/user sys$output [-]descrip.mms ! $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" $! set nover $! $! Clean up after ourselves --- 2460,2466 ---- $ WRITE_RESULT "Writing DESCRIP.MMS" $!set ver $ define/user sys$output [-]descrip.mms ! $ mcr []munchconfig [-]config.sh descrip_mms.template "''DECC_REPLACE'" "''ARCH_TYPE'" "''GNUC_REPLACE'" "''SOCKET_REPLACE'" "''THREAD_REPLACE'" "''C_Compiler_Replace'" "''MALLOC_REPLACE'" "''Thread_Live_Dangerously'" "PV=''LocalPerlVer'" $! set nover $! $! Clean up after ourselves Index: win32/GenCAPI.pl ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/win32/GenCAPI.pl Tue Jul 21 01:47:35 1998 --- perl5.005_01/win32/GenCAPI.pl Sun Jul 26 19:25:00 1998 *************** *** 202,207 **** --- 202,230 ---- ENDCODE print OUTFILE "#endif\n" unless ($separateObj == 0); } + elsif($name eq "sv_catpvf_mg") { + print OUTFILE "\n#ifdef $name" . "_defined" unless ($separateObj == 0); + $args[0] =~ /(\w+)\W*$/; + $arg0 = $1; + $args[1] =~ /(\w+)\W*$/; + $arg1 = $1; + print OUTFILE <Perl_mg_set + #endif + extern "C" $type $funcName ($args) + { + va_list args; + va_start(args, $arg1); + pPerl->Perl_sv_vcatpvfn($arg0, $arg1, strlen($arg1), &args, NULL, 0, NULL); + va_end(args); + SvSETMAGIC(sv); + } + ENDCODE + print OUTFILE "#endif\n" unless ($separateObj == 0); + } elsif($name eq "sv_setpvf") { print OUTFILE "\n#ifdef $name" . "_defined" unless ($separateObj == 0); $args[0] =~ /(\w+)\W*$/; *************** *** 217,222 **** --- 240,268 ---- va_start(args, $arg1); pPerl->Perl_sv_vsetpvfn($arg0, $arg1, strlen($arg1), &args, NULL, 0, NULL); va_end(args); + } + ENDCODE + print OUTFILE "#endif\n" unless ($separateObj == 0); + } + elsif($name eq "sv_setpvf_mg") { + print OUTFILE "\n#ifdef $name" . "_defined" unless ($separateObj == 0); + $args[0] =~ /(\w+)\W*$/; + $arg0 = $1; + $args[1] =~ /(\w+)\W*$/; + $arg1 = $1; + print OUTFILE <Perl_mg_set + #endif + extern "C" $type $funcName ($args) + { + va_list args; + va_start(args, $arg1); + pPerl->Perl_sv_vsetpvfn($arg0, $arg1, strlen($arg1), &args, NULL, 0, NULL); + va_end(args); + SvSETMAGIC(sv); } ENDCODE print OUTFILE "#endif\n" unless ($separateObj == 0); Index: win32/Makefile ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/win32/Makefile Wed Jul 22 13:17:57 1998 --- perl5.005_01/win32/Makefile Sun Jul 26 17:41:55 1998 *************** *** 25,31 **** # versioned installation can be obtained by setting INST_TOP above to a # path that includes an arbitrary version string. # ! INST_VER = \5.005 # # uncomment to enable threads-capabilities --- 25,31 ---- # versioned installation can be obtained by setting INST_TOP above to a # path that includes an arbitrary version string. # ! INST_VER = \5.00501 # # uncomment to enable threads-capabilities Index: win32/config_H.bc Prereq: 3.0.1.5 ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/win32/config_H.bc Wed Jul 22 04:58:20 1998 --- perl5.005_01/win32/config_H.bc Sun Jul 26 17:16:54 1998 *************** *** 34,41 **** * This symbol is the filename expanded version of the BIN symbol, for * programs that do not want to deal with that at run-time. */ ! #define BIN "c:\\perl\\5.005\\bin\\MSWin32-x86" /**/ ! #define BIN_EXP "c:\\perl\\5.005\\bin\\MSWin32-x86" /**/ /* CPPSTDIN: * This symbol contains the first part of the string which will invoke --- 34,41 ---- * This symbol is the filename expanded version of the BIN symbol, for * programs that do not want to deal with that at run-time. */ ! #define BIN "c:\\perl\\5.00501\\bin\\MSWin32-x86" /**/ ! #define BIN_EXP "c:\\perl\\5.00501\\bin\\MSWin32-x86" /**/ /* CPPSTDIN: * This symbol contains the first part of the string which will invoke *************** *** 1829,1835 **** * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define ARCHLIB "c:\\perl\\5.005\\lib\\MSWin32-x86" /**/ /*#define ARCHLIB_EXP "" /**/ /* DLSYM_NEEDS_UNDERSCORE: --- 1829,1835 ---- * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define ARCHLIB "c:\\perl\\5.00501\\lib\\MSWin32-x86" /**/ /*#define ARCHLIB_EXP "" /**/ /* DLSYM_NEEDS_UNDERSCORE: *************** *** 1875,1882 **** * This symbol contains the ~name expanded version of PRIVLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define PRIVLIB "c:\\perl\\5.005\\lib" /**/ ! #define PRIVLIB_EXP (win32_get_privlib("5.005")) /**/ /* SITEARCH: * This symbol contains the name of the private library for this package. --- 1875,1882 ---- * This symbol contains the ~name expanded version of PRIVLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define PRIVLIB "c:\\perl\\5.00501\\lib" /**/ ! #define PRIVLIB_EXP (win32_get_privlib("5.00501")) /**/ /* SITEARCH: * This symbol contains the name of the private library for this package. *************** *** 1891,1897 **** * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define SITEARCH "c:\\perl\\site\\5.005\\lib\\MSWin32-x86" /**/ /*#define SITEARCH_EXP "" /**/ /* SITELIB: --- 1891,1897 ---- * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define SITEARCH "c:\\perl\\site\\5.00501\\lib\\MSWin32-x86" /**/ /*#define SITEARCH_EXP "" /**/ /* SITELIB: *************** *** 1907,1914 **** * 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 "c:\\perl\\site\\5.005\\lib" /**/ ! #define SITELIB_EXP (win32_get_sitelib("5.005")) /**/ /* STARTPERL: * This variable contains the string to put in front of a perl --- 1907,1914 ---- * 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 "c:\\perl\\site\\5.00501\\lib" /**/ ! #define SITELIB_EXP (win32_get_sitelib("5.00501")) /**/ /* STARTPERL: * This variable contains the string to put in front of a perl Index: win32/config_H.gc Prereq: 3.0.1.5 ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/win32/config_H.gc Wed Jul 22 04:58:20 1998 --- perl5.005_01/win32/config_H.gc Sun Jul 26 17:16:54 1998 *************** *** 34,41 **** * This symbol is the filename expanded version of the BIN symbol, for * programs that do not want to deal with that at run-time. */ ! #define BIN "c:\\perl\\5.005\\bin\\MSWin32-x86" /**/ ! #define BIN_EXP "c:\\perl\\5.005\\bin\\MSWin32-x86" /**/ /* CPPSTDIN: * This symbol contains the first part of the string which will invoke --- 34,41 ---- * This symbol is the filename expanded version of the BIN symbol, for * programs that do not want to deal with that at run-time. */ ! #define BIN "c:\\perl\\5.00501\\bin\\MSWin32-x86" /**/ ! #define BIN_EXP "c:\\perl\\5.00501\\bin\\MSWin32-x86" /**/ /* CPPSTDIN: * This symbol contains the first part of the string which will invoke *************** *** 1829,1835 **** * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define ARCHLIB "c:\\perl\\5.005\\lib\\MSWin32-x86" /**/ /*#define ARCHLIB_EXP "" /**/ /* DLSYM_NEEDS_UNDERSCORE: --- 1829,1835 ---- * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define ARCHLIB "c:\\perl\\5.00501\\lib\\MSWin32-x86" /**/ /*#define ARCHLIB_EXP "" /**/ /* DLSYM_NEEDS_UNDERSCORE: *************** *** 1875,1882 **** * This symbol contains the ~name expanded version of PRIVLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define PRIVLIB "c:\\perl\\5.005\\lib" /**/ ! #define PRIVLIB_EXP (win32_get_privlib("5.005")) /**/ /* SITEARCH: * This symbol contains the name of the private library for this package. --- 1875,1882 ---- * This symbol contains the ~name expanded version of PRIVLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define PRIVLIB "c:\\perl\\5.00501\\lib" /**/ ! #define PRIVLIB_EXP (win32_get_privlib("5.00501")) /**/ /* SITEARCH: * This symbol contains the name of the private library for this package. *************** *** 1891,1897 **** * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define SITEARCH "c:\\perl\\site\\5.005\\lib\\MSWin32-x86" /**/ /*#define SITEARCH_EXP "" /**/ /* SITELIB: --- 1891,1897 ---- * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define SITEARCH "c:\\perl\\site\\5.00501\\lib\\MSWin32-x86" /**/ /*#define SITEARCH_EXP "" /**/ /* SITELIB: *************** *** 1907,1914 **** * 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 "c:\\perl\\site\\5.005\\lib" /**/ ! #define SITELIB_EXP (win32_get_sitelib("5.005")) /**/ /* STARTPERL: * This variable contains the string to put in front of a perl --- 1907,1914 ---- * 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 "c:\\perl\\site\\5.00501\\lib" /**/ ! #define SITELIB_EXP (win32_get_sitelib("5.00501")) /**/ /* STARTPERL: * This variable contains the string to put in front of a perl Index: win32/config_H.vc Prereq: 3.0.1.5 ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/win32/config_H.vc Wed Jul 22 04:58:20 1998 --- perl5.005_01/win32/config_H.vc Sun Jul 26 17:16:54 1998 *************** *** 34,41 **** * This symbol is the filename expanded version of the BIN symbol, for * programs that do not want to deal with that at run-time. */ ! #define BIN "c:\\perl\\5.005\\bin\\MSWin32-x86" /**/ ! #define BIN_EXP "c:\\perl\\5.005\\bin\\MSWin32-x86" /**/ /* CPPSTDIN: * This symbol contains the first part of the string which will invoke --- 34,41 ---- * This symbol is the filename expanded version of the BIN symbol, for * programs that do not want to deal with that at run-time. */ ! #define BIN "c:\\perl\\5.00501\\bin\\MSWin32-x86" /**/ ! #define BIN_EXP "c:\\perl\\5.00501\\bin\\MSWin32-x86" /**/ /* CPPSTDIN: * This symbol contains the first part of the string which will invoke *************** *** 1829,1835 **** * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define ARCHLIB "c:\\perl\\5.005\\lib\\MSWin32-x86" /**/ /*#define ARCHLIB_EXP "" /**/ /* DLSYM_NEEDS_UNDERSCORE: --- 1829,1835 ---- * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define ARCHLIB "c:\\perl\\5.00501\\lib\\MSWin32-x86" /**/ /*#define ARCHLIB_EXP "" /**/ /* DLSYM_NEEDS_UNDERSCORE: *************** *** 1875,1882 **** * This symbol contains the ~name expanded version of PRIVLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define PRIVLIB "c:\\perl\\5.005\\lib" /**/ ! #define PRIVLIB_EXP (win32_get_privlib("5.005")) /**/ /* SITEARCH: * This symbol contains the name of the private library for this package. --- 1875,1882 ---- * This symbol contains the ~name expanded version of PRIVLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define PRIVLIB "c:\\perl\\5.00501\\lib" /**/ ! #define PRIVLIB_EXP (win32_get_privlib("5.00501")) /**/ /* SITEARCH: * This symbol contains the name of the private library for this package. *************** *** 1891,1897 **** * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define SITEARCH "c:\\perl\\site\\5.005\\lib\\MSWin32-x86" /**/ /*#define SITEARCH_EXP "" /**/ /* SITELIB: --- 1891,1897 ---- * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ ! #define SITEARCH "c:\\perl\\site\\5.00501\\lib\\MSWin32-x86" /**/ /*#define SITEARCH_EXP "" /**/ /* SITELIB: *************** *** 1907,1914 **** * 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 "c:\\perl\\site\\5.005\\lib" /**/ ! #define SITELIB_EXP (win32_get_sitelib("5.005")) /**/ /* STARTPERL: * This variable contains the string to put in front of a perl --- 1907,1914 ---- * 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 "c:\\perl\\site\\5.00501\\lib" /**/ ! #define SITELIB_EXP (win32_get_sitelib("5.00501")) /**/ /* STARTPERL: * This variable contains the string to put in front of a perl Index: win32/makefile.mk ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/win32/makefile.mk Wed Jul 22 13:17:57 1998 --- perl5.005_01/win32/makefile.mk Sun Jul 26 17:41:56 1998 *************** *** 29,35 **** # versioned installation can be obtained by setting INST_TOP above to a # path that includes an arbitrary version string. # ! INST_VER *= \5.005 # # uncomment to enable threads-capabilities --- 29,35 ---- # versioned installation can be obtained by setting INST_TOP above to a # path that includes an arbitrary version string. # ! INST_VER *= \5.00501 # # uncomment to enable threads-capabilities Index: win32/win32.c ####### perl5.005_01/ => perl5.005_01 *** perl5.005_01/win32/win32.c Wed Jul 22 13:17:57 1998 --- perl5.005_01/win32/win32.c Sun Jul 26 16:41:50 1998 *************** *** 1175,1180 **** --- 1175,1181 ---- return des_fcrypt(crypt_buffer, txt, salt); #else die("The crypt() function is unimplemented due to excessive paranoia."); + return Nullch; #endif } #endif End of Patch.