Path: utzoo!utgpu!water!watmath!clyde!bellcore!faline!ulysses!allegra!princeton!udel!gatech!hao!ames!elroy!devvax!lroot From: lroot@devvax.UUCP Newsgroups: comp.sources.bugs Subject: perl 1.0 patch #2 Summary: This is an official patch for perl 1.0. Please apply it. Message-ID: <1144@devvax.JPL.NASA.GOV> Date: 24 Jan 88 12:21:57 GMT Organization: Jet Propulsion Laboratory, Pasadena, CA Lines: 583 Posted: Sun Jan 24 07:21:57 1988 System: perl version 1.0 Patch #: 2 Priority: HIGH Subject: Various portability fixes. From: Keith Waclena From: isis!aburt (Andrew Burt) Description: Some things didn't work right on System V and Pyramids. Fix: From rn, say "| patch -p0 -d DIR", where DIR is your perl source ^^^ directory. Outside of rn, say "cd DIR; patch -p0 >>>> *** NOTE: YOU MUST USE -p0 WITH PATCH OR IT WON'T WORK RIGHT *** <<<<< If patch indicates that patchlevel is the wrong version, you may need to apply one or more previous patches, or the patch may already have been applied. See the patchlevel.h file to find out what has or has not been applied. In any event, don't continue with the patch. If you are missing previous patches they can be obtained from me: Larry Wall lwall@jpl-devvax.jpl.nasa.gov If you send a mail message of the following form it will greatly speed processing: Subject: Command @SH mailpatch PATH perl 1.0 LIST ^ note the c where PATH is a return path FROM ME TO YOU in Internet notation, and LIST is the number of one or more patches you need, separated by spaces, commas, and/or hyphens. Saying 35- says everything from 35 to the end. You can also get the patches via anonymous FTP from jpl-devvax.jpl.nasa.gov (128.149.8.43). Index: patchlevel.h Prereq: 1 1c1 < #define PATCHLEVEL 1 --- > #define PATCHLEVEL 2 Index: Configure Prereq: 1.0.1.1 *** Configure.old Sun Jan 24 03:57:22 1988 --- Configure Sun Jan 24 03:57:24 1988 *************** *** 8,14 **** # and edit it to reflect your system. Some packages may include samples # of config.h for certain machines, so you might look for one of those.) # ! # $Header: Configure,v 1.0.1.1 88/01/21 21:21:47 root Exp $ # # Yes, you may rip this off to use in other distribution packages. # (Note: this Configure script was generated automatically. Rather than --- 8,14 ---- # and edit it to reflect your system. Some packages may include samples # of config.h for certain machines, so you might look for one of those.) # ! # $Header: Configure,v 1.0.1.2 88/01/24 03:51:55 root Exp $ # # Yes, you may rip this off to use in other distribution packages. # (Note: this Configure script was generated automatically. Rather than *************** *** 68,77 **** --- 68,80 ---- contains='' cpp='' cppminus='' + d_bcopy='' d_charsprf='' d_index='' + d_statblks='' d_stdstdio='' d_strctcpy='' + d_tminsys='' d_vfork='' d_voidsig='' libc='' *************** *** 638,643 **** --- 641,656 ---- fi rm -f testcpp.c testcpp.out + : see if bcopy exists + echo " " + if $contains bcopy libc.list >/dev/null 2>&1; then + echo 'bcopy() found.' + d_bcopy="$define" + else + echo 'bcopy() not found.' + d_bcopy="$undef" + fi + : see if sprintf is declared as int or pointer to char echo " " if $contains 'char.*sprintf' /usr/include/stdio.h >/dev/null 2>&1 ; then *************** *** 671,676 **** --- 684,704 ---- esac fi + : see if stat knows about block sizes + echo " " + if $contains 'st_blocks;' /usr/include/sys/stat.h >/dev/null 2>&1 ; then + if $contains 'st_blksize;' /usr/include/sys/stat.h >/dev/null 2>&1 ; then + echo "Your stat knows about block sizes." + d_statblks="$define" + else + echo "Your stat doesn't know about block sizes." + d_statblks="$undef" + fi + else + echo "Your stat doesn't know about block sizes." + d_statblks="$undef" + fi + : see if stdio is really std echo " " if $contains 'char.*_ptr;' /usr/include/stdio.h >/dev/null 2>&1 ; then *************** *** 708,713 **** --- 736,751 ---- fi $rm -f try.* + : see if struct tm is defined in sys/time.h + echo " " + if $contains 'struct tm' /usr/include/time.h >/dev/null 2>&1 ; then + echo "You have struct tm defined in rather than ." + d_tminsys="$undef" + else + echo "You have struct tm defined in rather than ." + d_tminsys="$define" + fi + : see if there is a vfork echo " " if $contains vfork libc.list >/dev/null 2>&1 ; then *************** *** 1260,1269 **** --- 1298,1310 ---- contains='$contains' cpp='$cpp' cppminus='$cppminus' + d_bcopy='$d_bcopy' d_charsprf='$d_charsprf' d_index='$d_index' + d_statblks='$d_statblks' d_stdstdio='$d_stdstdio' d_strctcpy='$d_strctcpy' + d_tminsys='$d_tminsys' d_vfork='$d_vfork' d_voidsig='$d_voidsig' libc='$libc' Index: Makefile.SH Prereq: 1.0 *** Makefile.SH.old Sun Jan 24 03:58:02 1988 --- Makefile.SH Sun Jan 24 03:58:03 1988 *************** *** 14,28 **** esac echo "Extracting Makefile (with variable substitutions)" cat >Makefile <Makefile <) { if ($verbose) { --- 14,42 ---- @ARGV = split(/[ \n]/,`echo base.* comp.* cmd.* io.* op.*`); } + open(config,"../config.sh"); + while () { + if (/sharpbang='(.*)'/) { + $sharpbang = ($1 eq '#!'); + last; + } + } $bad = 0; while ($test = shift) { print "$test..."; ! if ($sharpbang) { ! open(results,"$test|") || (print "can't run.\n"); ! } else { ! open(script,"$test") || die "Can't run $test"; ! $_ =