home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl501m.zip / patches / patch.1l < prev    next >
Encoding:
Text File  |  1995-06-06  |  20.7 KB  |  819 lines
  1. # This is my patch  patch.1l for perl5.001.  See description below.
  2. #    Andy Dougherty        doughera@lafcol.lafayette.edu
  3. #
  4.  
  5. # Please execute the following commands before applying this patch.
  6. # (You can feed this patch to 'sh' to do so.)
  7.  
  8. # This hint file works for NeXT 3.2 or 3.3.
  9. mv hints/next_3_2.sh hints/next_3.sh
  10. exit
  11.  
  12. This is my patch  patch.1l  for perl5.001.
  13.  
  14. To apply, change to your perl directory, run the command above, then
  15. apply with
  16.     patch -p1 -N  < thispatch.
  17.  
  18. This patch fixes all the Configure & build problems for which I have a
  19. solution.
  20.  
  21. After you apply this patch, I would recommend:
  22.     make distclean  # or at the very least   rm config.sh
  23.     sh Configure [whatever options you use]
  24.     make depend
  25.     make 
  26.     make test
  27.  
  28. Patch and enjoy,
  29.  
  30.     Andy Dougherty        doughera@lafcol.lafayette.edu
  31.     Dept. of Physics
  32.     Lafayette College, Easton PA 18042
  33.  
  34. Here are the file-by-file contents:
  35.  
  36. Changes.Conf
  37.     Updated a bit.
  38.  
  39. Configure
  40.     Now honors hints on <pwd.h>-related things (for CX/UX, in particular).
  41.  
  42.     Now honors previous values of d_stdio_ptr_lval and d_stdio_cnt_lval.
  43.  
  44.     DB test programs now conditionally include 'const'.
  45.  
  46. MANIFEST
  47.     Updated.
  48.  
  49. config_H
  50.     Updated.
  51.  
  52. config_h.SH
  53.     Include trailing /**/ on STDIO_..._LVALUE defines.
  54.  
  55. hints/cxux.sh
  56.     Simplified.  
  57.     Include info about failing test.
  58.  
  59. hints/epix.sh
  60.     A guess at a dynamic loading fix.
  61.  
  62. hints/next_3.sh
  63.     Add a few comments.
  64.  
  65. lib/Benchmark.pm
  66.     Ensure numeric context on number of loop iterations.
  67.  
  68. op.c
  69.     Spider's padlex and goto &$nonesuch patches.
  70.  
  71. perl.c
  72.     fputs("\tUnofficial patchlevel 1l.\n",stdout);
  73.  
  74. pp_ctl.c
  75. pp_hot.c
  76. scope.c
  77.     Spider's padlex and goto &$nonesuch patches.
  78.  
  79.  
  80. Index: Changes.Conf
  81. *** perl5.001k/Changes.Conf    Thu May 25 15:34:26 1995
  82. --- perl5.001l/Changes.Conf    Tue Jun  6 13:23:58 1995
  83. ***************
  84. *** 22,27 ****
  85. --- 22,43 ----
  86.      
  87.       Many hint file updates.
  88.   
  89. + Upgrade Traps and Pitfalls:
  90. + 
  91. + Since a lot has changed in the build process, you are probably best off
  92. + starting with a fresh copy of the perl5.002 sources.  In particular,
  93. + your 5.000 or 5.001 config.sh will contain several variables that are no
  94. + longer needed.  Further, improvements in the Configure tests may mean
  95. + that some of the answers will be different than they were in previous
  96. + versions, and which answer to keep can be difficult to sort out. 
  97. + Therefore, you are probably better off ignoring your old config.sh, as
  98. + in the following:
  99. + 
  100. +     make distclean # (if you've built perl before)
  101. +     sh Configure [whatever options you like]
  102. +     make depend
  103. +     make
  104. +     make test
  105.   
  106.   -------------
  107.   Version 5.001
  108. ***************
  109. *** 120,131 ****
  110.       make test
  111.       <mv old architecture-dependent library to new location, if needed>
  112.       make install
  113. - 
  114. - 
  115. - 
  116. - 
  117. - 
  118. - 
  119. - 
  120. - 
  121.   
  122. --- 136,139 ----
  123. Index: Configure
  124. Prereq:  3.0.1.7 
  125. *** perl5.001k/Configure    Mon Jun  5 12:23:03 1995
  126. --- perl5.001l/Configure    Tue Jun  6 12:29:51 1995
  127. ***************
  128. *** 20,26 ****
  129.   
  130.   # $Id: Head.U,v 3.0.1.7 1995/03/21 08:46:15 ram Exp $
  131.   #
  132. ! # Generated on Mon Jun  5 12:18:53 EDT 1995 [metaconfig 3.0 PL55]
  133.   
  134.   cat >/tmp/c1$$ <<EOF
  135.   ARGGGHHHH!!!!!
  136. --- 20,26 ----
  137.   
  138.   # $Id: Head.U,v 3.0.1.7 1995/03/21 08:46:15 ram Exp $
  139.   #
  140. ! # Generated on Tue Jun  6 12:25:20 EDT 1995 [metaconfig 3.0 PL55]
  141.   
  142.   cat >/tmp/c1$$ <<EOF
  143.   ARGGGHHHH!!!!!
  144. ***************
  145. *** 5180,5233 ****
  146.   set pipe d_pipe
  147.   eval $inlibc
  148.   
  149. ! : see if this is a pwd system
  150. ! echo " "
  151. ! xxx=`./findhdr pwd.h`
  152. ! if $test "$xxx"; then
  153. !     i_pwd="$define"
  154. !     echo "<pwd.h> found." >&4
  155.       $cppstdin $cppflags $cppminus < $xxx >$$.h
  156.       if $contains 'pw_quota' $$.h >/dev/null 2>&1; then
  157. !         d_pwquota="$define"
  158.       else
  159. !         d_pwquota="$undef"
  160.       fi
  161.       if $contains 'pw_age' $$.h >/dev/null 2>&1; then
  162. !         d_pwage="$define"
  163.       else
  164. !         d_pwage="$undef"
  165.       fi
  166.       if $contains 'pw_change' $$.h >/dev/null 2>&1; then
  167. !         d_pwchange="$define"
  168.       else
  169. !         d_pwchange="$undef"
  170.       fi
  171.       if $contains 'pw_class' $$.h >/dev/null 2>&1; then
  172. !         d_pwclass="$define"
  173.       else
  174. !         d_pwclass="$undef"
  175.       fi
  176.       if $contains 'pw_expire' $$.h >/dev/null 2>&1; then
  177. !         d_pwexpire="$define"
  178.       else
  179. !         d_pwexpire="$undef"
  180.       fi
  181.       if $contains 'pw_comment' $$.h >/dev/null 2>&1; then
  182. !         d_pwcomment="$define"
  183.       else
  184. !         d_pwcomment="$undef"
  185.       fi
  186.       $rm -f $$.h
  187. ! else
  188. !     i_pwd="$undef"
  189. !     d_pwquota="$undef"
  190. !     d_pwage="$undef"
  191. !     d_pwchange="$undef"
  192. !     d_pwclass="$undef"
  193. !     d_pwexpire="$undef"
  194. !     d_pwcomment="$undef"
  195. !     echo "<pwd.h> NOT found." >&4
  196. ! fi
  197.   
  198.   : see if readdir and friends exist
  199.   set readdir d_readdir
  200. --- 5180,5254 ----
  201.   set pipe d_pipe
  202.   eval $inlibc
  203.   
  204. ! : see if this is a pwd.h system
  205. ! set pwd.h i_pwd
  206. ! eval $inhdr
  207. ! 
  208. ! case "$i_pwd" in
  209. ! $define)
  210. !     xxx=`./findhdr pwd.h`
  211.       $cppstdin $cppflags $cppminus < $xxx >$$.h
  212. + 
  213.       if $contains 'pw_quota' $$.h >/dev/null 2>&1; then
  214. !         val="$define"
  215.       else
  216. !         val="$undef"
  217.       fi
  218. +     set d_pwquota
  219. +     eval $setvar
  220. + 
  221.       if $contains 'pw_age' $$.h >/dev/null 2>&1; then
  222. !         val="$define"
  223.       else
  224. !         val="$undef"
  225.       fi
  226. +     set d_pwage
  227. +     eval $setvar
  228. + 
  229.       if $contains 'pw_change' $$.h >/dev/null 2>&1; then
  230. !         val="$define"
  231.       else
  232. !         val="$undef"
  233.       fi
  234. +     set d_pwchange
  235. +     eval $setvar
  236. + 
  237.       if $contains 'pw_class' $$.h >/dev/null 2>&1; then
  238. !         val="$define"
  239.       else
  240. !         val="$undef"
  241.       fi
  242. +     set d_pwclass
  243. +     eval $setvar
  244. + 
  245.       if $contains 'pw_expire' $$.h >/dev/null 2>&1; then
  246. !         val="$define"
  247.       else
  248. !         val="$undef"
  249.       fi
  250. +     set d_pwexpire
  251. +     eval $setvar
  252. + 
  253.       if $contains 'pw_comment' $$.h >/dev/null 2>&1; then
  254. !         val="$define"
  255.       else
  256. !         val="$undef"
  257.       fi
  258. +     set d_pwcomment
  259. +     eval $setvar
  260. + 
  261.       $rm -f $$.h
  262. !     ;;
  263. ! *)
  264. !     val="$undef"; 
  265. !     set d_pwquota; eval $setvar
  266. !     set d_pwage; eval $setvar
  267. !     set d_pwchange; eval $setvar
  268. !     set d_pwclass; eval $setvar
  269. !     set d_pwexpire; eval $setvar
  270. !     set d_pwcomment; eval $setvar
  271. !     ;;
  272. ! esac
  273.   
  274.   : see if readdir and friends exist
  275.   set readdir d_readdir
  276. ***************
  277. *** 5615,5625 ****
  278. --- 5636,5650 ----
  279.       '') stdio_ptr='((fp)->_IO_read_ptr)'
  280.           ptr_lval=$define
  281.           ;;
  282. +     *)    ptr_lval=$d_stdio_ptr_lval
  283. +         ;;
  284.       esac
  285.       case "$stdio_cnt" in
  286.       '') stdio_cnt='((fp)->_IO_read_end - (fp)->_IO_read_ptr)'
  287.           cnt_lval=$undef
  288.           ;;
  289. +     *)    cnt_lval=$d_stdio_cnt_lval
  290. +         ;;
  291.       esac
  292.       case "$stdio_base" in
  293.       '') stdio_base='((fp)->_IO_read_base)';;
  294. ***************
  295. *** 5632,5642 ****
  296. --- 5657,5671 ----
  297.       '') stdio_ptr='((fp)->_ptr)'
  298.           ptr_lval=$define
  299.           ;;
  300. +     *)    ptr_lval=$d_stdio_ptr_lval
  301. +         ;;
  302.       esac
  303.       case "$stdio_cnt" in
  304.       '') stdio_cnt='((fp)->_cnt)'
  305.           cnt_lval=$define
  306.           ;;
  307. +     *)    cnt_lval=$d_stdio_cnt_lval
  308. +         ;;
  309.       esac
  310.       case "$stdio_base" in
  311.       '') stdio_base='((fp)->_base)';;
  312. ***************
  313. *** 6384,6394 ****
  314.       : Check the return type needed for hash 
  315.       echo " "
  316.       echo "Checking return type needed for hash for Berkeley DB ..." >&4
  317. !     $cat >try.c <<'EOCP'
  318.   #include <sys/types.h>
  319.   #include <db.h>
  320.   u_int32_t hash_cb (ptr, size)
  321. ! void *ptr;
  322.   size_t size;
  323.   {
  324.   }
  325. --- 6413,6427 ----
  326.       : Check the return type needed for hash 
  327.       echo " "
  328.       echo "Checking return type needed for hash for Berkeley DB ..." >&4
  329. !     $cat >try.c <<EOCP
  330. ! #$d_const HASCONST
  331. ! #ifndef HASCONST
  332. ! #define const
  333. ! #endif
  334.   #include <sys/types.h>
  335.   #include <db.h>
  336.   u_int32_t hash_cb (ptr, size)
  337. ! const void *ptr;
  338.   size_t size;
  339.   {
  340.   }
  341. ***************
  342. *** 6420,6431 ****
  343.       : Check the return type needed for prefix 
  344.       echo " "
  345.       echo "Checking return type needed for prefix for Berkeley DB ..." >&4
  346. !     cat >try.c <<'EOCP'
  347.   #include <sys/types.h>
  348.   #include <db.h>
  349.   size_t prefix_cb (key1, key2)
  350. ! DBT *key1;
  351. ! DBT *key2;
  352.   {
  353.   }
  354.   BTREEINFO info;
  355. --- 6453,6468 ----
  356.       : Check the return type needed for prefix 
  357.       echo " "
  358.       echo "Checking return type needed for prefix for Berkeley DB ..." >&4
  359. !     cat >try.c <<EOCP
  360. ! #$d_const HASCONST
  361. ! #ifndef HASCONST
  362. ! #define const
  363. ! #endif
  364.   #include <sys/types.h>
  365.   #include <db.h>
  366.   size_t prefix_cb (key1, key2)
  367. ! const DBT *key1;
  368. ! const DBT *key2;
  369.   {
  370.   }
  371.   BTREEINFO info;
  372. Index: MANIFEST
  373. *** perl5.001k/MANIFEST    Tue Jun  6 14:17:58 1995
  374. --- perl5.001l/MANIFEST    Tue Jun  6 14:07:25 1995
  375. ***************
  376. *** 209,216 ****
  377.   hints/mpeix.sh        Hints for named architecture
  378.   hints/ncr_tower.sh    Hints for named architecture
  379.   hints/netbsd.sh        Hints for named architecture
  380.   hints/next_3_0.sh    Hints for named architecture
  381. - hints/next_3_2.sh    Hints for named architecture
  382.   hints/opus.sh        Hints for named architecture
  383.   hints/powerunix.sh    Hints for named architecture
  384.   hints/sco_2_3_0.sh    Hints for named architecture
  385. --- 209,216 ----
  386.   hints/mpeix.sh        Hints for named architecture
  387.   hints/ncr_tower.sh    Hints for named architecture
  388.   hints/netbsd.sh        Hints for named architecture
  389. + hints/next_3.sh        Hints for named architecture
  390.   hints/next_3_0.sh    Hints for named architecture
  391.   hints/opus.sh        Hints for named architecture
  392.   hints/powerunix.sh    Hints for named architecture
  393.   hints/sco_2_3_0.sh    Hints for named architecture
  394. Index: config_H
  395. Prereq:  3.0.1.3 
  396. *** perl5.001k/config_H    Mon Jun  5 12:19:31 1995
  397. --- perl5.001l/config_H    Tue Jun  6 13:16:32 1995
  398. ***************
  399. *** 14,20 ****
  400.    * $Id: Config_h.U,v 3.0.1.3 1995/01/30 14:25:39 ram Exp $
  401.    */
  402.   
  403. ! /* Configuration time: Fri Jun  2 14:50:10 EDT 1995
  404.    * Configured by: andy
  405.    * Target system: crystal crystal 3.2 2 i386 
  406.    */
  407. --- 14,20 ----
  408.    * $Id: Config_h.U,v 3.0.1.3 1995/01/30 14:25:39 ram Exp $
  409.    */
  410.   
  411. ! /* Configuration time: Tue Jun  6 12:34:26 EDT 1995
  412.    * Configured by: andy
  413.    * Target system: crystal crystal 3.2 2 i386 
  414.    */
  415. ***************
  416. *** 773,781 ****
  417.    */
  418.   #ifdef USE_STDIO_PTR
  419.   #define FILE_ptr(fp)    ((fp)->_ptr)
  420. ! #define STDIO_PTR_LVALUE
  421.   #define FILE_cnt(fp)    ((fp)->_cnt)
  422. ! #define STDIO_CNT_LVALUE
  423.   #endif
  424.   
  425.   /* FILE_base:
  426. --- 773,781 ----
  427.    */
  428.   #ifdef USE_STDIO_PTR
  429.   #define FILE_ptr(fp)    ((fp)->_ptr)
  430. ! #define STDIO_PTR_LVALUE         /**/
  431.   #define FILE_cnt(fp)    ((fp)->_cnt)
  432. ! #define STDIO_CNT_LVALUE         /**/
  433.   #endif
  434.   
  435.   /* FILE_base:
  436. Index: config_h.SH
  437. Prereq:  3.0.1.3 
  438. *** perl5.001k/config_h.SH    Mon Jun  5 12:23:03 1995
  439. --- perl5.001l/config_h.SH    Tue Jun  6 12:29:51 1995
  440. ***************
  441. *** 787,795 ****
  442.    */
  443.   #ifdef USE_STDIO_PTR
  444.   #define FILE_ptr(fp)    $stdio_ptr
  445. ! #$d_stdio_ptr_lval STDIO_PTR_LVALUE
  446.   #define FILE_cnt(fp)    $stdio_cnt
  447. ! #$d_stdio_cnt_lval STDIO_CNT_LVALUE
  448.   #endif
  449.   
  450.   /* FILE_base:
  451. --- 787,795 ----
  452.    */
  453.   #ifdef USE_STDIO_PTR
  454.   #define FILE_ptr(fp)    $stdio_ptr
  455. ! #$d_stdio_ptr_lval STDIO_PTR_LVALUE         /**/
  456.   #define FILE_cnt(fp)    $stdio_cnt
  457. ! #$d_stdio_cnt_lval STDIO_CNT_LVALUE         /**/
  458.   #endif
  459.   
  460.   /* FILE_base:
  461. Index: hints/cxux.sh
  462. *** perl5.001k/hints/cxux.sh    Wed May 31 09:15:30 1995
  463. --- perl5.001l/hints/cxux.sh    Tue Jun  6 11:41:36 1995
  464. ***************
  465. *** 75,104 ****
  466.   lddlflags='-Zlink=so'
  467.   
  468.   # Configure imagines that it sees a pw_quota field, but it is really in a
  469. ! # different structure than the one it thinks it is looking at.  WARNING:
  470. ! # Setting this here in the hints file doesn't help. You need to fix this by
  471. ! # editing config.sh after Configure asks you to fix things with a shell
  472. ! # escape! (Maybe Configure should actually try to compile a routine to
  473. ! # test each field, but what a pain that would be...).
  474. ! #
  475. ! # Perhaps I should create a config.over file and add this to it now?
  476. ! #
  477.   d_pwquota='undef'
  478. - echo ''
  479. - echo ''
  480. - echo WARNING: Edit config.sh when Configure offers to let you do so at the
  481. - echo end of the configuration process and manually change d_pwquota from
  482. - echo define to undef \(or you may want to create a config.over file now\).
  483. - echo ''
  484. - echo ''
  485. - 
  486. - # The following silly shell variable is set just so it will be printed out
  487. - # immediately prior to asking the user to edit config.sh :-).
  488. - #
  489. - dont_forget_to_fix_d_pwquota_in_config_to_be_undef="really"
  490.   
  491. ! 
  492. ! # Configure sometime finds what it believes to be ndbm header files on the
  493.   # system and imagines that we have the NDBM library, but we really don't.
  494.   # There is something there that once resembled ndbm, but it is purely
  495.   # for internal use in some tool and has been hacked beyond recognition
  496. --- 75,84 ----
  497.   lddlflags='-Zlink=so'
  498.   
  499.   # Configure imagines that it sees a pw_quota field, but it is really in a
  500. ! # different structure than the one it thinks it is looking at.
  501.   d_pwquota='undef'
  502.   
  503. ! # Configure sometimes finds what it believes to be ndbm header files on the
  504.   # system and imagines that we have the NDBM library, but we really don't.
  505.   # There is something there that once resembled ndbm, but it is purely
  506.   # for internal use in some tool and has been hacked beyond recognition
  507. ***************
  508. *** 110,112 ****
  509. --- 90,101 ----
  510.   #
  511.   d_mymalloc='undef'
  512.   usemymalloc='n'
  513. + 
  514. + cat <<'EOM'
  515. + 
  516. + You will get a failure on lib/posix.t test 16 because ungetc() on
  517. + stdin does not work if no characters have been read from stdin.
  518. + If you type a character at the terminal where you are running
  519. + the tests, you can fool it into thinking it worked.
  520. + 
  521. + EOM
  522. Index: hints/epix.sh
  523. *** perl5.001k/hints/epix.sh    Wed May 31 11:59:28 1995
  524. --- perl5.001l/hints/epix.sh    Mon Jun  5 17:01:13 1995
  525. ***************
  526. *** 61,66 ****
  527. --- 61,68 ----
  528.   fi
  529.   
  530.   lddlflags="-G $ldflags"    # Probably needed for dynamic loading
  531. + # We _do_ want the -L paths in ldflags, but we don't want the -non_shared.
  532. + lddlflags=`echo $lddlflags | sed 's/-non_shared//'`
  533.   
  534.   cat <<'EOM' >&4
  535.   
  536. Index: hints/next_3.sh
  537. *** perl5.001k/hints/next_3.sh    Mon Apr 10 10:14:22 1995
  538. --- perl5.001l/hints/next_3.sh    Tue Jun  6 14:06:24 1995
  539. ***************
  540. *** 1,6 ****
  541. --- 1,10 ----
  542.   # This file has been put together by Anno Siegel <siegel@zrz.TU-Berlin.DE>
  543.   # and Andreas Koenig <k@franz.ww.TU-Berlin.DE>. Comments, questions, and
  544.   # improvements welcome!
  545. + #
  546. + # These hints work for NeXT 3.2 and 3.3.  3.0 has it's own
  547. + # special hint file.
  548. + 
  549.   ccflags='-DUSE_NEXT_CTYPE'
  550.   POSIX_cflags='ccflags="-posix $ccflags"'
  551.   ldflags='-u libsys_s'
  552. ***************
  553. *** 35,38 ****
  554.   if [ `arch` = "hppa" ]; then
  555.   pp_cflags='optimize="-g"'
  556.   fi
  557. - 
  558. --- 39,41 ----
  559. Index: lib/Benchmark.pm
  560. *** perl5.001k/lib/Benchmark.pm    Thu May 25 11:15:48 1995
  561. --- perl5.001l/lib/Benchmark.pm    Tue Jun  6 12:20:18 1995
  562. ***************
  563. *** 242,247 ****
  564. --- 242,248 ----
  565.   # Last updated:    Sept 8th 94 by Tim Bunce
  566.   #
  567.   
  568. + use Carp;
  569.   use Exporter;
  570.   @ISA=(Exporter);
  571.   @EXPORT=qw(timeit timethis timethese timediff timestr);
  572. ***************
  573. *** 315,320 ****
  574. --- 316,325 ----
  575.   
  576.   sub runloop {
  577.       my($n, $c) = @_;
  578. + 
  579. +     $n+=0; # force numeric now, so garbage won't creep into the eval
  580. +     croak "negativ loopcount $n" if $n<0;
  581. +     confess "Usage: runloop(number, string)" unless defined $c;
  582.       my($t0, $t1, $td); # before, after, difference
  583.   
  584.       # find package of caller so we can execute code there
  585. ***************
  586. *** 326,332 ****
  587.   
  588.       my $subcode = "sub { package $pack; my(\$_i)=$n; while (\$_i--){$c;} }";
  589.       my $subref  = eval $subcode;
  590. !     die "runloop unable to compile '$c': $@\ncode: $subcode\n" if $@;
  591.       print STDERR "runloop $n '$subcode'\n" if ($debug);
  592.   
  593.       $t0 = &new;
  594. --- 331,337 ----
  595.   
  596.       my $subcode = "sub { package $pack; my(\$_i)=$n; while (\$_i--){$c;} }";
  597.       my $subref  = eval $subcode;
  598. !     croak "runloop unable to compile '$c': $@\ncode: $subcode\n" if $@;
  599.       print STDERR "runloop $n '$subcode'\n" if ($debug);
  600.   
  601.       $t0 = &new;
  602. Index: op.c
  603. *** perl5.001k/op.c    Wed Mar 15 09:29:47 1995
  604. --- perl5.001l/op.c    Tue Jun  6 12:18:47 1995
  605. ***************
  606. *** 2627,2633 ****
  607.       SAVESPTR(curpad);
  608.       curpad = 0;
  609.   
  610. !     if (!SvFLAGS(cv) & SVpcv_CLONED)
  611.           op_free(CvROOT(cv));
  612.       CvROOT(cv) = Nullop;
  613.       if (CvPADLIST(cv)) {
  614. --- 2627,2633 ----
  615.       SAVESPTR(curpad);
  616.       curpad = 0;
  617.   
  618. !     if (!(SvFLAGS(cv) & SVpcv_CLONED))
  619.           op_free(CvROOT(cv));
  620.       CvROOT(cv) = Nullop;
  621.       if (CvPADLIST(cv)) {
  622. ***************
  623. *** 2761,2766 ****
  624. --- 2761,2767 ----
  625.       CvOUTSIDE(cv) = CvOUTSIDE(compcv);
  626.       CvOUTSIDE(compcv) = 0;
  627.       CvPADLIST(cv) = CvPADLIST(compcv);
  628. +     CvPADLIST(compcv) = 0;
  629.       SvREFCNT_dec(compcv);
  630.       }
  631.       else {
  632. Index: perl.c
  633. *** perl5.001k/perl.c    Thu Jun  1 11:38:05 1995
  634. --- perl5.001l/perl.c    Tue Jun  6 14:41:07 1995
  635. ***************
  636. *** 996,1002 ****
  637.       return s;
  638.       case 'v':
  639.       printf("\nThis is perl, version %s\n\n",patchlevel);
  640. !     fputs("\tUnofficial patchlevel 1j.\n",stdout);
  641.       fputs("\nCopyright 1987-1994, Larry Wall\n",stdout);
  642.   #ifdef MSDOS
  643.       fputs("MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis\n",
  644. --- 996,1002 ----
  645.       return s;
  646.       case 'v':
  647.       printf("\nThis is perl, version %s\n\n",patchlevel);
  648. !     fputs("\tUnofficial patchlevel 1l.\n",stdout);
  649.       fputs("\nCopyright 1987-1994, Larry Wall\n",stdout);
  650.   #ifdef MSDOS
  651.       fputs("MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis\n",
  652. Index: pp_ctl.c
  653. *** perl5.001k/pp_ctl.c    Wed May 24 11:48:36 1995
  654. --- perl5.001l/pp_ctl.c    Tue Jun  6 12:18:48 1995
  655. ***************
  656. *** 1533,1538 ****
  657. --- 1533,1547 ----
  658.           I32 items = 0;
  659.           I32 oldsave;
  660.   
  661. +         if (!CvROOT(cv) && !CvXSUB(cv)) {
  662. +         if (CvGV(cv)) {
  663. +             SV *tmpstr = sv_newmortal();
  664. +             gv_efullname(tmpstr, CvGV(cv));
  665. +             DIE("Goto undefined subroutine &%s",SvPVX(tmpstr));
  666. +         }
  667. +         DIE("Goto undefined subroutine");
  668. +         }
  669. + 
  670.           /* First do some returnish stuff. */
  671.           cxix = dopoptosub(cxstack_ix);
  672.           if (cxix < 0)
  673. ***************
  674. *** 1591,1597 ****
  675.                   GvENAME(CvGV(cv)));
  676.               if (CvDEPTH(cv) > AvFILL(padlist)) {
  677.               AV *newpad = newAV();
  678. !             AV *oldpad = (AV*)AvARRAY(svp[CvDEPTH(cv)-1]);
  679.               I32 ix = AvFILL((AV*)svp[1]);
  680.               svp = AvARRAY(svp[0]);
  681.               for ( ;ix > 0; ix--) {
  682. --- 1600,1606 ----
  683.                   GvENAME(CvGV(cv)));
  684.               if (CvDEPTH(cv) > AvFILL(padlist)) {
  685.               AV *newpad = newAV();
  686. !             SV **oldpad = AvARRAY(svp[CvDEPTH(cv)-1]);
  687.               I32 ix = AvFILL((AV*)svp[1]);
  688.               svp = AvARRAY(svp[0]);
  689.               for ( ;ix > 0; ix--) {
  690. ***************
  691. *** 1600,1606 ****
  692.                   if (SvFLAGS(svp[ix]) & SVf_FAKE) {
  693.                       /* outer lexical? */
  694.                       av_store(newpad, ix,
  695. !                     SvREFCNT_inc(AvARRAY(oldpad)[ix]) );
  696.                   }
  697.                   else {        /* our own lexical */
  698.                       if (*name == '@')
  699. --- 1609,1615 ----
  700.                   if (SvFLAGS(svp[ix]) & SVf_FAKE) {
  701.                       /* outer lexical? */
  702.                       av_store(newpad, ix,
  703. !                     SvREFCNT_inc(oldpad[ix]) );
  704.                   }
  705.                   else {        /* our own lexical */
  706.                       if (*name == '@')
  707. Index: pp_hot.c
  708. *** perl5.001k/pp_hot.c    Thu May 25 14:27:29 1995
  709. --- perl5.001l/pp_hot.c    Tue Jun  6 12:18:49 1995
  710. ***************
  711. *** 1687,1693 ****
  712.           if (CvDEPTH(cv) > AvFILL(padlist)) {
  713.           AV *av;
  714.           AV *newpad = newAV();
  715. !         AV *oldpad = (AV*)AvARRAY(svp[CvDEPTH(cv)-1]);
  716.           I32 ix = AvFILL((AV*)svp[1]);
  717.           svp = AvARRAY(svp[0]);
  718.           for ( ;ix > 0; ix--) {
  719. --- 1687,1693 ----
  720.           if (CvDEPTH(cv) > AvFILL(padlist)) {
  721.           AV *av;
  722.           AV *newpad = newAV();
  723. !         SV **oldpad = AvARRAY(svp[CvDEPTH(cv)-1]);
  724.           I32 ix = AvFILL((AV*)svp[1]);
  725.           svp = AvARRAY(svp[0]);
  726.           for ( ;ix > 0; ix--) {
  727. ***************
  728. *** 1695,1701 ****
  729.               char *name = SvPVX(svp[ix]);
  730.               if (SvFLAGS(svp[ix]) & SVf_FAKE) { /* outer lexical? */
  731.                   av_store(newpad, ix,
  732. !                 SvREFCNT_inc(AvARRAY(oldpad)[ix]) );
  733.               }
  734.               else {                /* our own lexical */
  735.                   if (*name == '@')
  736. --- 1695,1701 ----
  737.               char *name = SvPVX(svp[ix]);
  738.               if (SvFLAGS(svp[ix]) & SVf_FAKE) { /* outer lexical? */
  739.                   av_store(newpad, ix,
  740. !                 SvREFCNT_inc(oldpad[ix]) );
  741.               }
  742.               else {                /* our own lexical */
  743.                   if (*name == '@')
  744. Index: scope.c
  745. *** perl5.001k/scope.c    Tue Jan 17 15:50:19 1995
  746. --- perl5.001l/scope.c    Tue Jun  6 12:18:49 1995
  747. ***************
  748. *** 276,282 ****
  749.   IV *ivp;
  750.   {
  751.       SSCHECK(3);
  752. !     SSPUSHINT(*ivp);
  753.       SSPUSHPTR(ivp);
  754.       SSPUSHINT(SAVEt_IV);
  755.   }
  756. --- 276,282 ----
  757.   IV *ivp;
  758.   {
  759.       SSCHECK(3);
  760. !     SSPUSHIV(*ivp);
  761.       SSPUSHPTR(ivp);
  762.       SSPUSHINT(SAVEt_IV);
  763.   }
  764. ***************
  765. *** 365,371 ****
  766.   SV** svp;
  767.   {
  768.       SSCHECK(2);
  769. !     SSPUSHPTR(svp);
  770.       SSPUSHINT(SAVEt_CLEARSV);
  771.   }
  772.   
  773. --- 365,371 ----
  774.   SV** svp;
  775.   {
  776.       SSCHECK(2);
  777. !     SSPUSHLONG((long)(svp-curpad));
  778.       SSPUSHINT(SAVEt_CLEARSV);
  779.   }
  780.   
  781. ***************
  782. *** 540,546 ****
  783.           Safefree((char*)ptr);
  784.           break;
  785.       case SAVEt_CLEARSV:
  786. !         ptr = SSPOPPTR;
  787.           sv = *(SV**)ptr;
  788.           if (SvREFCNT(sv) <= 1) { /* Can clear pad variable in place. */
  789.           if (SvTHINKFIRST(sv)) {
  790. --- 540,546 ----
  791.           Safefree((char*)ptr);
  792.           break;
  793.       case SAVEt_CLEARSV:
  794. !         ptr = (void*)&curpad[SSPOPLONG];
  795.           sv = *(SV**)ptr;
  796.           if (SvREFCNT(sv) <= 1) { /* Can clear pad variable in place. */
  797.           if (SvTHINKFIRST(sv)) {
  798. ***************
  799. *** 573,584 ****
  800. --- 573,586 ----
  801.           }
  802.           }
  803.           else {    /* Someone has a claim on this, so abandon it. */
  804. +         U32 padflags = SvFLAGS(sv) & (SVs_PADBUSY|SVs_PADMY|SVs_PADTMP);
  805.           SvREFCNT_dec(sv);    /* Cast current value to the winds. */
  806.           switch (SvTYPE(sv)) {    /* Console ourselves with a new value */
  807.           case SVt_PVAV:    *(SV**)ptr = (SV*)newAV();    break;
  808.           case SVt_PVHV:    *(SV**)ptr = (SV*)newHV();    break;
  809.           default:    *(SV**)ptr = NEWSV(0,0);    break;
  810.           }
  811. +         SvFLAGS(*(SV**)ptr) |= padflags; /* preserve pad nature */
  812.           }
  813.           break;
  814.       case SAVEt_DELETE:
  815.  
  816.  
  817. End of patch.
  818.  
  819.