home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl501m.zip / patches / patch.1m < prev   
Text File  |  1995-06-22  |  85KB  |  3,160 lines
  1. # This is my patch  patch.1m for perl5.001.  See description below.
  2. #    Andy Dougherty        doughera@lafcol.lafayette.edu
  3. #
  4.  
  5. # Please execute the following command before applying this patch.
  6. # (You can feed this patch to 'sh' to do so.)
  7.  
  8. # embed_h.sh is replaced by a new perl script embed.pl with identical
  9. # functionality.
  10. rm -f embed_h.sh
  11.  
  12. exit 0
  13.  
  14. This is my patch  patch.1m  for perl5.001.
  15.  
  16. To apply, change to your perl directory, run the command above, then
  17. apply with
  18.     patch -p1 -N  < thispatch.
  19.  
  20. Highlights of this patch include:
  21.  
  22. 1.  Fixes for $sitelib, $d_stdio_ptr_lval, and $d_stdio_cnt_lval 
  23.     when config.sh is re-used.
  24.  
  25. 2.  Move embed.h, keywords.h, and opcode.h dependencies to
  26.     a special  regen_headers target that is ordinarily not used.
  27.     This is now analogous to the run_byacc target.  As a cosmetic
  28.     side-effect, I transliterated embed_h.sh into embed.pl so that
  29.     it can run on non-unix systems as well.
  30.  
  31. 3.  Tests for gdbm_{sync,exists,setopt} in GDBM_File (needed for
  32.     Slackware 2.1).
  33.  
  34. For good measure, I've also thrown in the following patches I pulled
  35. off the list, mostly unmodified from the originals.
  36.     
  37. 1.  Larry's "unofficial official" fix for the subroutine array context
  38.     problem.
  39.  
  40. 2.  Tim's __DATA__ patch.  (I kept forgetting about this one.)
  41.  
  42. 3.  Malcom's  USE_OP_MASK patch to pave the way for his Safe extension.
  43.  
  44. 4.  Spider's suggested renaming of regexec to pregexec and regcomp to
  45.     pregcomp to avoid conflicts with POSIX symbols on Digital Unix.
  46.     (I only added a brief explanatory comment to the relevant .c
  47.     files.)
  48.  
  49. 5.  Spider's installperl patch to avoid installing *.orig and and the 
  50.     .exists files.  (I changed this a little to include patch's ~
  51.     suffix, which is used on systems with short file names (in some
  52.     versions of patch)).
  53.  
  54. 6.  Raphael's "safe_unlink" patch to installperl, in case a copy
  55.     of perl is currently runniung.
  56.  
  57. 7.  xsubpp 1.9.
  58.  
  59. 8.  Tim's  lib.pm module (with patched corrected spelling of 2nd :-).
  60.  
  61. 9.  Tim's Exporter module version patches.
  62.  
  63. 10.  Tim's MakeMaker patches for make test when LINKTYPE=static.
  64.  
  65. 11.  Randal's pod2html patches.
  66.  
  67. 12.  Spider's "picky compiler" patches for x2p/util.[ch]
  68.  
  69. 13.  Paul's updated source filtering patches.
  70.  
  71. Patch and enjoy.  I hope nothing breaks :-).
  72.  
  73.     Andy Dougherty        doughera@lafcol.lafayette.edu
  74.     Dept. of Physics
  75.     Lafayette College, Easton PA 18042
  76.  
  77. Index: Configure
  78. Prereq:  3.0.1.7 
  79. *** perl5.001l/Configure    Tue Jun  6 15:06:54 1995
  80. --- perl5.001m/Configure    Thu Jun 22 11:03:49 1995
  81. ***************
  82. *** 20,26 ****
  83.   
  84.   # $Id: Head.U,v 3.0.1.7 1995/03/21 08:46:15 ram Exp $
  85.   #
  86. ! # Generated on Tue Jun  6 12:25:20 EDT 1995 [metaconfig 3.0 PL55]
  87.   
  88.   cat >/tmp/c1$$ <<EOF
  89.   ARGGGHHHH!!!!!
  90. --- 20,26 ----
  91.   
  92.   # $Id: Head.U,v 3.0.1.7 1995/03/21 08:46:15 ram Exp $
  93.   #
  94. ! # Generated on Thu Jun 22 10:38:35 EDT 1995 [metaconfig 3.0 PL55]
  95.   
  96.   cat >/tmp/c1$$ <<EOF
  97.   ARGGGHHHH!!!!!
  98. ***************
  99. *** 5478,5484 ****
  100.       fi
  101.       echo "and it returns ($shmattype)." >&4
  102.       : see if a prototype for shmat is available
  103. !     $cppstdin $cppflags $cppminus < $usrinc/sys/shm.h > shmat.c 2>/dev/null
  104.       if $contains 'shmat.*(' shmat.c >/dev/null 2>&1; then
  105.           val="$define"
  106.       else
  107. --- 5478,5485 ----
  108.       fi
  109.       echo "and it returns ($shmattype)." >&4
  110.       : see if a prototype for shmat is available
  111. !     xxx=`./findhdr sys/shm.h`
  112. !     $cppstdin $cppflags $cppminus < $xxx > shmat.c 2>/dev/null
  113.       if $contains 'shmat.*(' shmat.c >/dev/null 2>&1; then
  114.           val="$define"
  115.       else
  116. ***************
  117. *** 5523,5529 ****
  118.   If you don't want to use such an additional directory, answer 'none'.
  119.   
  120.   EOM
  121. ! dflt=none
  122.   fn=d~+n
  123.   rp='Local directory for additional library files?'
  124.   . ./getfile
  125. --- 5524,5533 ----
  126.   If you don't want to use such an additional directory, answer 'none'.
  127.   
  128.   EOM
  129. ! case "$sitelib" in
  130. ! '') dflt=none ;;
  131. ! *) dflt="$sitelib" ;;
  132. ! esac
  133.   fn=d~+n
  134.   rp='Local directory for additional library files?'
  135.   . ./getfile
  136. ***************
  137. *** 5533,5559 ****
  138.   sitelib="$ans"
  139.   sitelibexp="$ansexp"
  140.   if $afs; then
  141. !     $cat <<EOM
  142.   
  143.   Since you are running AFS, I need to distinguish the directory in which
  144.   private files reside from the directory in which they are installed (and from
  145.   which they are presumably copied to the former directory by occult means).
  146.   
  147.   EOM
  148. !     case "$installsitelib" in
  149. !     '') dflt=`echo $sitelibexp | sed 's#^/afs/#/afs/.#'`;;
  150. !     *) dflt="$installsitelib";;
  151.       esac
  152. -     fn=de~
  153. -     rp='Where will additional local files be installed?'
  154. -     . ./getfile
  155. -     installsitelib="$ans"
  156.   else
  157.       installsitelib="$sitelibexp"
  158.   fi
  159.   
  160.   case "$sitelibexp" in
  161. ! ''|' ') d_sitelib=undef ;;
  162.   *) d_sitelib=define ;;
  163.   esac
  164.   
  165. --- 5537,5568 ----
  166.   sitelib="$ans"
  167.   sitelibexp="$ansexp"
  168.   if $afs; then
  169. !     case "$sitelib" in
  170. !     '') installsitelib="$sitelibexp"
  171. !         ;;
  172. !     *)    $cat <<EOM
  173.   
  174.   Since you are running AFS, I need to distinguish the directory in which
  175.   private files reside from the directory in which they are installed (and from
  176.   which they are presumably copied to the former directory by occult means).
  177.   
  178.   EOM
  179. !         case "$installsitelib" in
  180. !         '') dflt=`echo $sitelibexp | sed 's#^/afs/#/afs/.#'`;;
  181. !         *) dflt="$installsitelib";;
  182. !         esac
  183. !         fn=de~
  184. !         rp='Where will additional local files be installed?'
  185. !         . ./getfile
  186. !         installsitelib="$ans"
  187. !         ;;
  188.       esac
  189.   else
  190.       installsitelib="$sitelibexp"
  191.   fi
  192.   
  193.   case "$sitelibexp" in
  194. ! '') d_sitelib=undef ;;
  195.   *) d_sitelib=define ;;
  196.   esac
  197.   
  198. ***************
  199. *** 5708,5715 ****
  200.   
  201.   : Can _ptr be used as an lvalue.  Only makes sense if we
  202.   : have a known stdio implementation.
  203. ! case "$d_stdstdio" in
  204. ! $define) val=$ptr_lval ;;
  205.   *) val=$undef ;;
  206.   esac
  207.   set d_stdio_ptr_lval
  208. --- 5717,5724 ----
  209.   
  210.   : Can _ptr be used as an lvalue.  Only makes sense if we
  211.   : have a known stdio implementation.
  212. ! case "$d_stdstdio$ptr_lval" in
  213. ! $define$define) val=$define ;;
  214.   *) val=$undef ;;
  215.   esac
  216.   set d_stdio_ptr_lval
  217. ***************
  218. *** 5718,5725 ****
  219.   
  220.   : Can _cnt be used as an lvalue.  Only makes sense if we
  221.   : have a known stdio implementation.
  222. ! case "$d_stdstdio" in
  223. ! $define) val=$cnt_lval ;;
  224.   *) val=$undef ;;
  225.   esac
  226.   set d_stdio_cnt_lval
  227. --- 5727,5734 ----
  228.   
  229.   : Can _cnt be used as an lvalue.  Only makes sense if we
  230.   : have a known stdio implementation.
  231. ! case "$d_stdstdio$cnt_lval" in
  232. ! $define$define) val=$define ;;
  233.   *) val=$undef ;;
  234.   esac
  235.   set d_stdio_cnt_lval
  236. Index: MANIFEST
  237. *** perl5.001l/MANIFEST    Tue Jun  6 15:06:55 1995
  238. --- perl5.001m/MANIFEST    Wed Jun 21 16:09:44 1995
  239. ***************
  240. *** 79,85 ****
  241.   emacs/perldb.pl        Emacs debugging
  242.   emacs/tedstuff        Some optional patches
  243.   embed.h            Maps symbols to safer names
  244. ! embed_h.sh        Produces embed.h
  245.   ext/DB_File/DB_File.pm        Berkeley DB extension Perl module
  246.   ext/DB_File/DB_File.xs        Berkeley DB extension external subroutines
  247.   ext/DB_File/DB_File_BS        Berkeley DB extension mkbootstrap fodder
  248. --- 79,85 ----
  249.   emacs/perldb.pl        Emacs debugging
  250.   emacs/tedstuff        Some optional patches
  251.   embed.h            Maps symbols to safer names
  252. ! embed.pl        Produces embed.h
  253.   ext/DB_File/DB_File.pm        Berkeley DB extension Perl module
  254.   ext/DB_File/DB_File.xs        Berkeley DB extension external subroutines
  255.   ext/DB_File/DB_File_BS        Berkeley DB extension mkbootstrap fodder
  256. ***************
  257. *** 307,312 ****
  258. --- 307,313 ----
  259.   lib/importenv.pl    Perl routine to get environment into variables
  260.   lib/integer.pm        For "use integer"
  261.   lib/less.pm        For "use less"
  262. + lib/lib.pm        For "use lib"
  263.   lib/look.pl        A "look" equivalent
  264.   lib/newgetopt.pl    A perl library supporting long option parsing
  265.   lib/open2.pl        Open a two-ended pipe
  266. Index: Makefile.SH
  267. *** perl5.001l/Makefile.SH    Tue Jun  6 15:05:25 1995
  268. --- perl5.001m/Makefile.SH    Wed Jun 21 16:43:11 1995
  269. ***************
  270. *** 185,191 ****
  271. --- 185,193 ----
  272.   #    @echo " "; echo "    Making docs"; cd pod; $(MAKE) all;
  273.   
  274.   # Phony target to force checking subdirectories.
  275. + # Apparently some makes require an action for the FORCE target.
  276.   FORCE:
  277. +     @true
  278.   
  279.   # The $& notation tells Sequent machines that it can do a parallel make,
  280.   # and is harmless otherwise.
  281. ***************
  282. *** 252,274 ****
  283.       $(CCCMD) -DIAMSUID sperl.c
  284.       $(RMS) sperl.c
  285.   
  286. - # The following three header files are generated automatically
  287. - # The correct versions should be already supplied with the perl kit,
  288. - # in case you don't have perl or 'sh' available.
  289. - # The - is to ignore error return codes in case you have the source
  290. - # installed read-only or you don't have perl yet.
  291. - keywords.h: keywords.pl
  292. -     @echo "Don't worry if this fails."
  293. -     - perl keywords.pl
  294. - 
  295. - opcode.h: opcode.pl
  296. -     @echo "Don't worry if this fails."
  297. -     - perl opcode.pl
  298. - 
  299. - embed.h: embed_h.sh global.sym interp.sym
  300. -     @echo "Don't worry if this fails."
  301. -     - sh embed_h.sh
  302. - 
  303.   # We have to call our ./makedir because Ultrix 4.3 make can't handle the line
  304.   #    test -d lib/auto || mkdir lib/auto
  305.   #
  306. --- 254,259 ----
  307. ***************
  308. *** 321,326 ****
  309. --- 306,324 ----
  310.   perly.h: perly.y
  311.       -@touch perly.h
  312.   
  313. + # The following three header files are generated automatically
  314. + #    keywords.h:    keywords.pl
  315. + #    opcode.h:    opcode.pl
  316. + #    embed.h:      embed.pl global.sym interp.sym
  317. + # The correct versions should be already supplied with the perl kit,
  318. + # in case you don't have perl available.
  319. + # To force them to run, type
  320. + #    make regen_headers
  321. + regen_headers:    FORCE
  322. +     perl keywords.pl
  323. +     perl opcode.pl
  324. +     perl embed.pl
  325. +  
  326.   # Extensions:
  327.   # Names added to $(dynamic_ext) or $(static_ext) will automatically
  328.   # get built.  There should ordinarily be no need to change any of
  329. Index: embed.h
  330. *** perl5.001l/embed.h    Tue Jun  6 15:05:29 1995
  331. --- perl5.001m/embed.h    Thu Jun 22 10:28:09 1995
  332. ***************
  333. *** 357,362 ****
  334. --- 357,363 ----
  335.   #define doeval        Perl_doeval
  336.   #define dofindlabel    Perl_dofindlabel
  337.   #define dopoptoeval    Perl_dopoptoeval
  338. + #define dowantarray    Perl_dowantarray
  339.   #define dump_all    Perl_dump_all
  340.   #define dump_eval    Perl_dump_eval
  341.   #define dump_gv        Perl_dump_gv
  342. ***************
  343. *** 861,870 ****
  344.   #define q        Perl_q
  345.   #define ref        Perl_ref
  346.   #define refkids        Perl_refkids
  347. ! #define regcomp        Perl_regcomp
  348.   #define regdump        Perl_regdump
  349. ! #define regexec        Perl_regexec
  350. ! #define regfree        Perl_regfree
  351.   #define regnext        Perl_regnext
  352.   #define regprop        Perl_regprop
  353.   #define repeatcpy    Perl_repeatcpy
  354. --- 862,871 ----
  355.   #define q        Perl_q
  356.   #define ref        Perl_ref
  357.   #define refkids        Perl_refkids
  358. ! #define pregcomp    Perl_pregcomp
  359.   #define regdump        Perl_regdump
  360. ! #define pregexec    Perl_pregexec
  361. ! #define pregfree    Perl_pregfree
  362.   #define regnext        Perl_regnext
  363.   #define regprop        Perl_regprop
  364.   #define repeatcpy    Perl_repeatcpy
  365. ***************
  366. *** 1088,1093 ****
  367. --- 1089,1095 ----
  368.   #define ofslen        (curinterp->Iofslen)
  369.   #define oldlastpm    (curinterp->Ioldlastpm)
  370.   #define oldname        (curinterp->Ioldname)
  371. + #define op_mask        (curinterp->Iop_mask)
  372.   #define origargc    (curinterp->Iorigargc)
  373.   #define origargv    (curinterp->Iorigargv)
  374.   #define origfilename    (curinterp->Iorigfilename)
  375. ***************
  376. *** 1244,1249 ****
  377. --- 1246,1252 ----
  378.   #define Iofslen        ofslen
  379.   #define Ioldlastpm    oldlastpm
  380.   #define Ioldname    oldname
  381. + #define Iop_mask    op_mask
  382.   #define Iorigargc    origargc
  383.   #define Iorigargv    origargv
  384.   #define Iorigfilename    origfilename
  385. Index: embed.pl
  386. *** /dev/null    Thu Jun 22 13:39:36 1995
  387. --- perl5.001m/embed.pl    Wed Jun 21 16:03:52 1995
  388. ***************
  389. *** 0 ****
  390. --- 1,67 ----
  391. + #!/usr/bin/perl
  392. + 
  393. + open(EM, ">embed.h") || die "Can't create embed.h: $!\n";
  394. + 
  395. + print EM <<'END';
  396. + /* This file is derived from global.sym and interp.sym */
  397. + 
  398. + /* (Doing namespace management portably in C is really gross.) */
  399. + 
  400. + #ifdef EMBED
  401. + 
  402. + /* globals we need to hide from the world */
  403. + END
  404. + 
  405. + open(GL, "<global.sym") || die "Can't open global.sym: $!\n";
  406. + 
  407. + while(<GL>) {
  408. +     s/[ \t]*#.*//;        # Delete comments.
  409. +     next unless /\S/;
  410. +     s/(.*)/#define $1\t\tPerl_$1/;
  411. +     s/(................\t)\t/$1/;
  412. +     print EM $_;
  413. + }
  414. + 
  415. + close(GL) || warn "Can't close global.sym: $!\n";
  416. + 
  417. + print EM <<'END';
  418. + 
  419. + #endif /* EMBED */
  420. + 
  421. + /* Put interpreter specific symbols into a struct? */
  422. + 
  423. + #ifdef MULTIPLICITY
  424. + 
  425. + END
  426. + 
  427. + open(INT, "<interp.sym") || die "Can't open interp.sym: $!\n";
  428. + while (<INT>) {
  429. +     s/[ \t]*#.*//;        # Delete comments.
  430. +     next unless /\S/;
  431. +     s/(.*)/#define $1\t\t(curinterp->I$1)/;
  432. +     s/(................\t)\t/$1/;
  433. +     print EM $_;
  434. + }
  435. + close(INT) || warn "Can't close interp.sym: $!\n";
  436. + 
  437. + print EM <<'END';
  438. + 
  439. + #else    /* not multiple, so translate interpreter symbols the other way... */
  440. + 
  441. + END
  442. + 
  443. + open(INT, "<interp.sym") || die "Can't open interp.sym: $!\n";
  444. + while (<INT>) {
  445. +     s/[ \t]*#.*//;        # Delete comments.
  446. +     next unless /\S/;
  447. +     s/(.*)/#define I$1\t\t$1/;
  448. +     s/(................\t)\t/$1/;
  449. +     print EM $_;
  450. + }
  451. + close(INT) || warn "Can't close interp.sym: $!\n";
  452. + 
  453. + print EM <<'END';
  454. + 
  455. + #endif /* MULTIPLICITY */
  456. + END
  457. + 
  458. Index: ext/GDBM_File/GDBM_File.xs
  459. *** perl5.001l/ext/GDBM_File/GDBM_File.xs    Tue Jun  6 15:05:10 1995
  460. --- perl5.001m/ext/GDBM_File/GDBM_File.xs    Thu Jun 22 09:54:54 1995
  461. ***************
  462. *** 29,34 ****
  463. --- 29,44 ----
  464.       return -1;
  465.   }
  466.   
  467. + /* Versions of gdbm prior to 1.7x might not have the gdbm_sync,
  468. +    gdbm_exists, and gdbm_setopt functions.  Apparently Slackware
  469. +    (Linux) 2.1 contains gdbm-1.5 (which dates back to 1991).
  470. + */
  471. + #ifndef GDBM_FAST
  472. + #define gdbm_exists(db,key) not_here("gdbm_exists")
  473. + #define gdbm_sync(db) (void) not_here("gdbm_sync")
  474. + #define gdbm_setopt(db,optflag,optval,optlen) not_here("gdbm_setopt")
  475. + #endif
  476. + 
  477.   static double
  478.   constant(name, arg)
  479.   char *name;
  480. Index: global.sym
  481. *** perl5.001l/global.sym    Tue Jun  6 15:05:30 1995
  482. --- perl5.001m/global.sym    Thu Jun 22 10:22:37 1995
  483. ***************
  484. *** 357,362 ****
  485. --- 357,363 ----
  486.   doeval
  487.   dofindlabel
  488.   dopoptoeval
  489. + dowantarray
  490.   dump_all
  491.   dump_eval
  492.   dump_gv
  493. Index: hints/freebsd.sh
  494. *** perl5.001l/hints/freebsd.sh    Tue Jun  6 15:06:18 1995
  495. --- perl5.001m/hints/freebsd.sh    Tue Jun 20 10:18:34 1995
  496. ***************
  497. *** 14,22 ****
  498.   # Ollivier Robert <Ollivier.Robert@keltia.frmug.fr.net>
  499.   # Date: Fri, 12 May 1995 14:30:38 +0200 (MET DST)
  500.   #
  501. - # FreeBSD has the dynamic loading dl*() functions in /usr/lib/crt0.o,
  502. - # so Configure doesn't find them (unless you abandon the nm scan).
  503. - #
  504.   # The two flags "-fpic -DPIC" are used to indicate a
  505.   # will-be-shared object.  Configure will guess the -fpic, (and the
  506.   # -DPIC is not used by perl proper) but the full define is included to 
  507. --- 14,19 ----
  508. ***************
  509. *** 31,39 ****
  510.   0.*|1.0*)
  511.       usedl="$undef"
  512.       ;;
  513. ! 1.1*)    d_dlopen="$define"
  514. !     cccdlflags='-DPIC -fpic'
  515. !     lddlflags="-Bshareable $lddlflags"
  516.       malloctype='void *'
  517.       groupstype='int'
  518.       d_setregid='undef'
  519. --- 28,34 ----
  520.   0.*|1.0*)
  521.       usedl="$undef"
  522.       ;;
  523. ! 1.1*)
  524.       malloctype='void *'
  525.       groupstype='int'
  526.       d_setregid='undef'
  527. ***************
  528. *** 41,50 ****
  529.       d_setrgid='undef'
  530.       d_setruid='undef'
  531.       ;;
  532. ! 2.0-RELEASE*)
  533. !     d_dlopen="$define"
  534. !     cccdlflags='-DPIC -fpic'
  535. !     lddlflags="-Bshareable $lddlflags"
  536.       d_setregid='undef'
  537.       d_setreuid='undef'
  538.       d_setrgid='undef'
  539. --- 36,42 ----
  540.       d_setrgid='undef'
  541.       d_setruid='undef'
  542.       ;;
  543. ! 2.0-release*)
  544.       d_setregid='undef'
  545.       d_setreuid='undef'
  546.       d_setrgid='undef'
  547. ***************
  548. *** 55,71 ****
  549.   # It does not covert all 2.1-current versions as the output of uname
  550.   # changed a few times.
  551.   #
  552. ! 2.0.5*|2.0-BUILD|2.1*)
  553. !     d_dlopen="$define"
  554. !     cccdlflags='-DPIC -fpic'
  555.       lddlflags="-Bshareable $lddlflags"
  556. !     # Are these defines necessary?  Doesn't Configure find them
  557. !     # correctly?
  558. !     d_setregid='define'
  559. !     d_setreuid='define'
  560. !     d_setrgid='define'
  561. !     d_setruid='define'
  562.   esac
  563.   # Avoid telldir prototype conflict in pp_sys.c  (FreeBSD uses const DIR *)
  564.   # Configure should test for this.  Volunteers?
  565.   pp_sys_cflags='ccflags="$ccflags -DHAS_TELLDIR_PROTOTYPE"'
  566. --- 47,72 ----
  567.   # It does not covert all 2.1-current versions as the output of uname
  568.   # changed a few times.
  569.   #
  570. ! 2.0.5*|2.0-built*|2.1*)
  571. !      usevfork='true'
  572. !      d_dosuid='define'
  573. !     ;;
  574. ! #
  575. ! # Guesses at what will be needed after 2.1
  576. ! *)    usevfork='true'
  577. !      d_dosuid='define'
  578. !     ;;
  579. ! esac
  580. ! 
  581. ! # Dynamic Loading flags have not changed much, so they are separated
  582. ! # out here to avoid duplicating them everywhere.
  583. ! case "$osvers" in
  584. ! 0.*|1.0*) ;;
  585. ! *)    cccdlflags='-DPIC -fpic'
  586.       lddlflags="-Bshareable $lddlflags"
  587. !     ;;
  588.   esac
  589. + 
  590.   # Avoid telldir prototype conflict in pp_sys.c  (FreeBSD uses const DIR *)
  591.   # Configure should test for this.  Volunteers?
  592.   pp_sys_cflags='ccflags="$ccflags -DHAS_TELLDIR_PROTOTYPE"'
  593. Index: installman
  594. *** perl5.001l/installman    Tue Jun  6 15:05:35 1995
  595. --- perl5.001m/installman    Thu Jun 22 13:43:21 1995
  596. ***************
  597. *** 64,71 ****
  598.   
  599.       # We insist on using the current version of pod2man in case there
  600.       # are enhancements or changes from previous installed versions.
  601. !     $pod2man = "../pod/pod2man";
  602. !     -x  $pod2man    || die "Executable $pod2man not found.\n";
  603.   
  604.       &makedir($mandir);
  605.       # Make a list of all the .pm and .pod files in the directory.  We will
  606. --- 64,79 ----
  607.   
  608.       # We insist on using the current version of pod2man in case there
  609.       # are enhancements or changes from previous installed versions.
  610. !     # The error message doesn't include the '..' because the user
  611. !     # won't be aware that we've chdir to $poddir.
  612. !     -x  "../pod/pod2man" || die "Executable pod/pod2man not found.\n";
  613. ! 
  614. !     # We want to be sure to use the current perl.  We can't rely on
  615. !     # the installed perl because it might not be actually installed
  616. !     # yet. (The user may have set the $install* Configure variables 
  617. !     # to point to some temporary home, from which the executable gets
  618. !     # installed by occult means.)
  619. !     $pod2man = "../perl -I ../lib ../pod/pod2man";
  620.   
  621.       &makedir($mandir);
  622.       # Make a list of all the .pm and .pod files in the directory.  We will
  623. Index: installperl
  624. *** perl5.001l/installperl    Tue Jun  6 15:05:36 1995
  625. --- perl5.001m/installperl    Wed Jun 21 15:09:27 1995
  626. ***************
  627. *** 69,78 ****
  628.   
  629.   # First we install the version-numbered executables.
  630.   
  631. ! &unlink("$installbin/perl$ver");
  632.   &cmd("cp perl $installbin/perl$ver");
  633.   
  634. ! &unlink("$installbin/sperl$ver");
  635.   if ($d_dosuid) {
  636.       &cmd("cp suidperl $installbin/sperl$ver");
  637.       &chmod(04711, "$installbin/sperl$ver");
  638. --- 69,78 ----
  639.   
  640.   # First we install the version-numbered executables.
  641.   
  642. ! &safe_unlink("$installbin/perl$ver");
  643.   &cmd("cp perl $installbin/perl$ver");
  644.   
  645. ! &safe_unlink("$installbin/sperl$ver");
  646.   if ($d_dosuid) {
  647.       &cmd("cp suidperl $installbin/sperl$ver");
  648.       &chmod(04711, "$installbin/sperl$ver");
  649. ***************
  650. *** 83,95 ****
  651.   # Make links to ordinary names if installbin directory isn't current directory.
  652.   
  653.   if (! &samepath($installbin, '.')) {
  654. !     &unlink("$installbin/perl", "$installbin/suidperl");
  655.       &link("$installbin/perl$ver", "$installbin/perl");
  656.       &link("$installbin/sperl$ver", "$installbin/suidperl") if $d_dosuid;
  657.   }
  658.   
  659.   if (! &samepath($installbin, 'x2p')) {
  660. !     &unlink("$installbin/a2p");
  661.       &cmd("cp x2p/a2p $installbin/a2p");
  662.       &chmod(0755, "$installbin/a2p");
  663.   }
  664. --- 83,95 ----
  665.   # Make links to ordinary names if installbin directory isn't current directory.
  666.   
  667.   if (! &samepath($installbin, '.')) {
  668. !     &safe_unlink("$installbin/perl", "$installbin/suidperl");
  669.       &link("$installbin/perl$ver", "$installbin/perl");
  670.       &link("$installbin/sperl$ver", "$installbin/suidperl") if $d_dosuid;
  671.   }
  672.   
  673.   if (! &samepath($installbin, 'x2p')) {
  674. !     &safe_unlink("$installbin/a2p");
  675.       &cmd("cp x2p/a2p $installbin/a2p");
  676.       &chmod(0755, "$installbin/a2p");
  677.   }
  678. ***************
  679. *** 248,253 ****
  680. --- 248,269 ----
  681.       }
  682.   }
  683.   
  684. + sub safe_unlink {
  685. +     local(@names) = @_;
  686. + 
  687. +     foreach $name (@names) {
  688. +     next unless -e $name;
  689. +     print STDERR "  unlink $name\n";
  690. +     next if $nonono;
  691. +     next if unlink($name);
  692. +     warn "Couldn't unlink $name: $!\n";
  693. +     if ($! =~ /busy/i) {
  694. +         print STDERR "  mv $name $name.old\n";
  695. +         &rename($name, "$name.old") || warn "Couldn't rename $name: $!\n";
  696. +     }
  697. +     }
  698. + }
  699. + 
  700.   sub cmd {
  701.       local($cmd) = @_;
  702.       print STDERR "  $cmd\n";
  703. ***************
  704. *** 257,262 ****
  705. --- 273,291 ----
  706.       }
  707.   }
  708.   
  709. + sub rename {
  710. +     local($from,$to) = @_;
  711. +     unless (unlink($to)) {
  712. +     my($i);
  713. +     for ($i = 1; $i < 50; $i++) {
  714. +         last if rename($to, "$to.$i");
  715. +     }
  716. +     return 0 if $i >= 50;    # Give up!
  717. +     }
  718. +     link($from,$to) || return 0;
  719. +     unlink($from);
  720. + }
  721. + 
  722.   sub link {
  723.       local($from,$to) = @_;
  724.   
  725. ***************
  726. *** 304,309 ****
  727. --- 333,342 ----
  728.       $dir =~ s#^\.(?![^/])/?##;
  729.   
  730.       my $name = $_;
  731. +     
  732. +     # ignore patch backups and the .exists files.
  733. +     return if $name =~ m{\.orig$|~$|^\.exists};
  734. + 
  735.       $name = "$dir/$name" if $dir ne '';
  736.   
  737.       my $installlib = $installprivlib;
  738. Index: interp.sym
  739. *** perl5.001l/interp.sym    Mon Feb 20 19:05:41 1995
  740. --- perl5.001m/interp.sym    Tue Jun 20 10:09:03 1995
  741. ***************
  742. *** 96,101 ****
  743. --- 96,102 ----
  744.   ofslen
  745.   oldlastpm
  746.   oldname
  747. + op_mask
  748.   origargc
  749.   origargv
  750.   origfilename
  751. Index: keywords.h
  752. *** perl5.001l/keywords.h    Tue Oct 18 12:20:23 1994
  753. --- perl5.001m/keywords.h    Thu Jun 22 10:23:03 1995
  754. ***************
  755. *** 1,241 ****
  756.   #define KEY_NULL        0
  757.   #define KEY___LINE__        1
  758.   #define KEY___FILE__        2
  759. ! #define KEY___END__        3
  760. ! #define KEY_AUTOLOAD        4
  761. ! #define KEY_BEGIN        5
  762. ! #define KEY_CORE        6
  763. ! #define KEY_DESTROY        7
  764. ! #define KEY_END            8
  765. ! #define KEY_EQ            9
  766. ! #define KEY_GE            10
  767. ! #define KEY_GT            11
  768. ! #define KEY_LE            12
  769. ! #define KEY_LT            13
  770. ! #define KEY_NE            14
  771. ! #define KEY_abs            15
  772. ! #define KEY_accept        16
  773. ! #define KEY_alarm        17
  774. ! #define KEY_and            18
  775. ! #define KEY_atan2        19
  776. ! #define KEY_bind        20
  777. ! #define KEY_binmode        21
  778. ! #define KEY_bless        22
  779. ! #define KEY_caller        23
  780. ! #define KEY_chdir        24
  781. ! #define KEY_chmod        25
  782. ! #define KEY_chomp        26
  783. ! #define KEY_chop        27
  784. ! #define KEY_chown        28
  785. ! #define KEY_chr            29
  786. ! #define KEY_chroot        30
  787. ! #define KEY_close        31
  788. ! #define KEY_closedir        32
  789. ! #define KEY_cmp            33
  790. ! #define KEY_connect        34
  791. ! #define KEY_continue        35
  792. ! #define KEY_cos            36
  793. ! #define KEY_crypt        37
  794. ! #define KEY_dbmclose        38
  795. ! #define KEY_dbmopen        39
  796. ! #define KEY_defined        40
  797. ! #define KEY_delete        41
  798. ! #define KEY_die            42
  799. ! #define KEY_do            43
  800. ! #define KEY_dump        44
  801. ! #define KEY_each        45
  802. ! #define KEY_else        46
  803. ! #define KEY_elsif        47
  804. ! #define KEY_endgrent        48
  805. ! #define KEY_endhostent        49
  806. ! #define KEY_endnetent        50
  807. ! #define KEY_endprotoent        51
  808. ! #define KEY_endpwent        52
  809. ! #define KEY_endservent        53
  810. ! #define KEY_eof            54
  811. ! #define KEY_eq            55
  812. ! #define KEY_eval        56
  813. ! #define KEY_exec        57
  814. ! #define KEY_exists        58
  815. ! #define KEY_exit        59
  816. ! #define KEY_exp            60
  817. ! #define KEY_fcntl        61
  818. ! #define KEY_fileno        62
  819. ! #define KEY_flock        63
  820. ! #define KEY_for            64
  821. ! #define KEY_foreach        65
  822. ! #define KEY_fork        66
  823. ! #define KEY_format        67
  824. ! #define KEY_formline        68
  825. ! #define KEY_ge            69
  826. ! #define KEY_getc        70
  827. ! #define KEY_getgrent        71
  828. ! #define KEY_getgrgid        72
  829. ! #define KEY_getgrnam        73
  830. ! #define KEY_gethostbyaddr    74
  831. ! #define KEY_gethostbyname    75
  832. ! #define KEY_gethostent        76
  833. ! #define KEY_getlogin        77
  834. ! #define KEY_getnetbyaddr    78
  835. ! #define KEY_getnetbyname    79
  836. ! #define KEY_getnetent        80
  837. ! #define KEY_getpeername        81
  838. ! #define KEY_getpgrp        82
  839. ! #define KEY_getppid        83
  840. ! #define KEY_getpriority        84
  841. ! #define KEY_getprotobyname    85
  842. ! #define KEY_getprotobynumber    86
  843. ! #define KEY_getprotoent        87
  844. ! #define KEY_getpwent        88
  845. ! #define KEY_getpwnam        89
  846. ! #define KEY_getpwuid        90
  847. ! #define KEY_getservbyname    91
  848. ! #define KEY_getservbyport    92
  849. ! #define KEY_getservent        93
  850. ! #define KEY_getsockname        94
  851. ! #define KEY_getsockopt        95
  852. ! #define KEY_glob        96
  853. ! #define KEY_gmtime        97
  854. ! #define KEY_goto        98
  855. ! #define KEY_grep        99
  856. ! #define KEY_gt            100
  857. ! #define KEY_hex            101
  858. ! #define KEY_if            102
  859. ! #define KEY_index        103
  860. ! #define KEY_int            104
  861. ! #define KEY_ioctl        105
  862. ! #define KEY_join        106
  863. ! #define KEY_keys        107
  864. ! #define KEY_kill        108
  865. ! #define KEY_last        109
  866. ! #define KEY_lc            110
  867. ! #define KEY_lcfirst        111
  868. ! #define KEY_le            112
  869. ! #define KEY_length        113
  870. ! #define KEY_link        114
  871. ! #define KEY_listen        115
  872. ! #define KEY_local        116
  873. ! #define KEY_localtime        117
  874. ! #define KEY_log            118
  875. ! #define KEY_lstat        119
  876. ! #define KEY_lt            120
  877. ! #define KEY_m            121
  878. ! #define KEY_map            122
  879. ! #define KEY_mkdir        123
  880. ! #define KEY_msgctl        124
  881. ! #define KEY_msgget        125
  882. ! #define KEY_msgrcv        126
  883. ! #define KEY_msgsnd        127
  884. ! #define KEY_my            128
  885. ! #define KEY_ne            129
  886. ! #define KEY_next        130
  887. ! #define KEY_no            131
  888. ! #define KEY_not            132
  889. ! #define KEY_oct            133
  890. ! #define KEY_open        134
  891. ! #define KEY_opendir        135
  892. ! #define KEY_or            136
  893. ! #define KEY_ord            137
  894. ! #define KEY_pack        138
  895. ! #define KEY_package        139
  896. ! #define KEY_pipe        140
  897. ! #define KEY_pop            141
  898. ! #define KEY_pos            142
  899. ! #define KEY_print        143
  900. ! #define KEY_printf        144
  901. ! #define KEY_push        145
  902. ! #define KEY_q            146
  903. ! #define KEY_qq            147
  904. ! #define KEY_quotemeta        148
  905. ! #define KEY_qw            149
  906. ! #define KEY_qx            150
  907. ! #define KEY_rand        151
  908. ! #define KEY_read        152
  909. ! #define KEY_readdir        153
  910. ! #define KEY_readline        154
  911. ! #define KEY_readlink        155
  912. ! #define KEY_readpipe        156
  913. ! #define KEY_recv        157
  914. ! #define KEY_redo        158
  915. ! #define KEY_ref            159
  916. ! #define KEY_rename        160
  917. ! #define KEY_require        161
  918. ! #define KEY_reset        162
  919. ! #define KEY_return        163
  920. ! #define KEY_reverse        164
  921. ! #define KEY_rewinddir        165
  922. ! #define KEY_rindex        166
  923. ! #define KEY_rmdir        167
  924. ! #define KEY_s            168
  925. ! #define KEY_scalar        169
  926. ! #define KEY_seek        170
  927. ! #define KEY_seekdir        171
  928. ! #define KEY_select        172
  929. ! #define KEY_semctl        173
  930. ! #define KEY_semget        174
  931. ! #define KEY_semop        175
  932. ! #define KEY_send        176
  933. ! #define KEY_setgrent        177
  934. ! #define KEY_sethostent        178
  935. ! #define KEY_setnetent        179
  936. ! #define KEY_setpgrp        180
  937. ! #define KEY_setpriority        181
  938. ! #define KEY_setprotoent        182
  939. ! #define KEY_setpwent        183
  940. ! #define KEY_setservent        184
  941. ! #define KEY_setsockopt        185
  942. ! #define KEY_shift        186
  943. ! #define KEY_shmctl        187
  944. ! #define KEY_shmget        188
  945. ! #define KEY_shmread        189
  946. ! #define KEY_shmwrite        190
  947. ! #define KEY_shutdown        191
  948. ! #define KEY_sin            192
  949. ! #define KEY_sleep        193
  950. ! #define KEY_socket        194
  951. ! #define KEY_socketpair        195
  952. ! #define KEY_sort        196
  953. ! #define KEY_splice        197
  954. ! #define KEY_split        198
  955. ! #define KEY_sprintf        199
  956. ! #define KEY_sqrt        200
  957. ! #define KEY_srand        201
  958. ! #define KEY_stat        202
  959. ! #define KEY_study        203
  960. ! #define KEY_sub            204
  961. ! #define KEY_substr        205
  962. ! #define KEY_symlink        206
  963. ! #define KEY_syscall        207
  964. ! #define KEY_sysread        208
  965. ! #define KEY_system        209
  966. ! #define KEY_syswrite        210
  967. ! #define KEY_tell        211
  968. ! #define KEY_telldir        212
  969. ! #define KEY_tie            213
  970. ! #define KEY_time        214
  971. ! #define KEY_times        215
  972. ! #define KEY_tr            216
  973. ! #define KEY_truncate        217
  974. ! #define KEY_uc            218
  975. ! #define KEY_ucfirst        219
  976. ! #define KEY_umask        220
  977. ! #define KEY_undef        221
  978. ! #define KEY_unless        222
  979. ! #define KEY_unlink        223
  980. ! #define KEY_unpack        224
  981. ! #define KEY_unshift        225
  982. ! #define KEY_untie        226
  983. ! #define KEY_until        227
  984. ! #define KEY_use            228
  985. ! #define KEY_utime        229
  986. ! #define KEY_values        230
  987. ! #define KEY_vec            231
  988. ! #define KEY_wait        232
  989. ! #define KEY_waitpid        233
  990. ! #define KEY_wantarray        234
  991. ! #define KEY_warn        235
  992. ! #define KEY_while        236
  993. ! #define KEY_write        237
  994. ! #define KEY_x            238
  995. ! #define KEY_xor            239
  996. ! #define KEY_y            240
  997. --- 1,242 ----
  998.   #define KEY_NULL        0
  999.   #define KEY___LINE__        1
  1000.   #define KEY___FILE__        2
  1001. ! #define KEY___DATA__        3
  1002. ! #define KEY___END__        4
  1003. ! #define KEY_AUTOLOAD        5
  1004. ! #define KEY_BEGIN        6
  1005. ! #define KEY_CORE        7
  1006. ! #define KEY_DESTROY        8
  1007. ! #define KEY_END            9
  1008. ! #define KEY_EQ            10
  1009. ! #define KEY_GE            11
  1010. ! #define KEY_GT            12
  1011. ! #define KEY_LE            13
  1012. ! #define KEY_LT            14
  1013. ! #define KEY_NE            15
  1014. ! #define KEY_abs            16
  1015. ! #define KEY_accept        17
  1016. ! #define KEY_alarm        18
  1017. ! #define KEY_and            19
  1018. ! #define KEY_atan2        20
  1019. ! #define KEY_bind        21
  1020. ! #define KEY_binmode        22
  1021. ! #define KEY_bless        23
  1022. ! #define KEY_caller        24
  1023. ! #define KEY_chdir        25
  1024. ! #define KEY_chmod        26
  1025. ! #define KEY_chomp        27
  1026. ! #define KEY_chop        28
  1027. ! #define KEY_chown        29
  1028. ! #define KEY_chr            30
  1029. ! #define KEY_chroot        31
  1030. ! #define KEY_close        32
  1031. ! #define KEY_closedir        33
  1032. ! #define KEY_cmp            34
  1033. ! #define KEY_connect        35
  1034. ! #define KEY_continue        36
  1035. ! #define KEY_cos            37
  1036. ! #define KEY_crypt        38
  1037. ! #define KEY_dbmclose        39
  1038. ! #define KEY_dbmopen        40
  1039. ! #define KEY_defined        41
  1040. ! #define KEY_delete        42
  1041. ! #define KEY_die            43
  1042. ! #define KEY_do            44
  1043. ! #define KEY_dump        45
  1044. ! #define KEY_each        46
  1045. ! #define KEY_else        47
  1046. ! #define KEY_elsif        48
  1047. ! #define KEY_endgrent        49
  1048. ! #define KEY_endhostent        50
  1049. ! #define KEY_endnetent        51
  1050. ! #define KEY_endprotoent        52
  1051. ! #define KEY_endpwent        53
  1052. ! #define KEY_endservent        54
  1053. ! #define KEY_eof            55
  1054. ! #define KEY_eq            56
  1055. ! #define KEY_eval        57
  1056. ! #define KEY_exec        58
  1057. ! #define KEY_exists        59
  1058. ! #define KEY_exit        60
  1059. ! #define KEY_exp            61
  1060. ! #define KEY_fcntl        62
  1061. ! #define KEY_fileno        63
  1062. ! #define KEY_flock        64
  1063. ! #define KEY_for            65
  1064. ! #define KEY_foreach        66
  1065. ! #define KEY_fork        67
  1066. ! #define KEY_format        68
  1067. ! #define KEY_formline        69
  1068. ! #define KEY_ge            70
  1069. ! #define KEY_getc        71
  1070. ! #define KEY_getgrent        72
  1071. ! #define KEY_getgrgid        73
  1072. ! #define KEY_getgrnam        74
  1073. ! #define KEY_gethostbyaddr    75
  1074. ! #define KEY_gethostbyname    76
  1075. ! #define KEY_gethostent        77
  1076. ! #define KEY_getlogin        78
  1077. ! #define KEY_getnetbyaddr    79
  1078. ! #define KEY_getnetbyname    80
  1079. ! #define KEY_getnetent        81
  1080. ! #define KEY_getpeername        82
  1081. ! #define KEY_getpgrp        83
  1082. ! #define KEY_getppid        84
  1083. ! #define KEY_getpriority        85
  1084. ! #define KEY_getprotobyname    86
  1085. ! #define KEY_getprotobynumber    87
  1086. ! #define KEY_getprotoent        88
  1087. ! #define KEY_getpwent        89
  1088. ! #define KEY_getpwnam        90
  1089. ! #define KEY_getpwuid        91
  1090. ! #define KEY_getservbyname    92
  1091. ! #define KEY_getservbyport    93
  1092. ! #define KEY_getservent        94
  1093. ! #define KEY_getsockname        95
  1094. ! #define KEY_getsockopt        96
  1095. ! #define KEY_glob        97
  1096. ! #define KEY_gmtime        98
  1097. ! #define KEY_goto        99
  1098. ! #define KEY_grep        100
  1099. ! #define KEY_gt            101
  1100. ! #define KEY_hex            102
  1101. ! #define KEY_if            103
  1102. ! #define KEY_index        104
  1103. ! #define KEY_int            105
  1104. ! #define KEY_ioctl        106
  1105. ! #define KEY_join        107
  1106. ! #define KEY_keys        108
  1107. ! #define KEY_kill        109
  1108. ! #define KEY_last        110
  1109. ! #define KEY_lc            111
  1110. ! #define KEY_lcfirst        112
  1111. ! #define KEY_le            113
  1112. ! #define KEY_length        114
  1113. ! #define KEY_link        115
  1114. ! #define KEY_listen        116
  1115. ! #define KEY_local        117
  1116. ! #define KEY_localtime        118
  1117. ! #define KEY_log            119
  1118. ! #define KEY_lstat        120
  1119. ! #define KEY_lt            121
  1120. ! #define KEY_m            122
  1121. ! #define KEY_map            123
  1122. ! #define KEY_mkdir        124
  1123. ! #define KEY_msgctl        125
  1124. ! #define KEY_msgget        126
  1125. ! #define KEY_msgrcv        127
  1126. ! #define KEY_msgsnd        128
  1127. ! #define KEY_my            129
  1128. ! #define KEY_ne            130
  1129. ! #define KEY_next        131
  1130. ! #define KEY_no            132
  1131. ! #define KEY_not            133
  1132. ! #define KEY_oct            134
  1133. ! #define KEY_open        135
  1134. ! #define KEY_opendir        136
  1135. ! #define KEY_or            137
  1136. ! #define KEY_ord            138
  1137. ! #define KEY_pack        139
  1138. ! #define KEY_package        140
  1139. ! #define KEY_pipe        141
  1140. ! #define KEY_pop            142
  1141. ! #define KEY_pos            143
  1142. ! #define KEY_print        144
  1143. ! #define KEY_printf        145
  1144. ! #define KEY_push        146
  1145. ! #define KEY_q            147
  1146. ! #define KEY_qq            148
  1147. ! #define KEY_quotemeta        149
  1148. ! #define KEY_qw            150
  1149. ! #define KEY_qx            151
  1150. ! #define KEY_rand        152
  1151. ! #define KEY_read        153
  1152. ! #define KEY_readdir        154
  1153. ! #define KEY_readline        155
  1154. ! #define KEY_readlink        156
  1155. ! #define KEY_readpipe        157
  1156. ! #define KEY_recv        158
  1157. ! #define KEY_redo        159
  1158. ! #define KEY_ref            160
  1159. ! #define KEY_rename        161
  1160. ! #define KEY_require        162
  1161. ! #define KEY_reset        163
  1162. ! #define KEY_return        164
  1163. ! #define KEY_reverse        165
  1164. ! #define KEY_rewinddir        166
  1165. ! #define KEY_rindex        167
  1166. ! #define KEY_rmdir        168
  1167. ! #define KEY_s            169
  1168. ! #define KEY_scalar        170
  1169. ! #define KEY_seek        171
  1170. ! #define KEY_seekdir        172
  1171. ! #define KEY_select        173
  1172. ! #define KEY_semctl        174
  1173. ! #define KEY_semget        175
  1174. ! #define KEY_semop        176
  1175. ! #define KEY_send        177
  1176. ! #define KEY_setgrent        178
  1177. ! #define KEY_sethostent        179
  1178. ! #define KEY_setnetent        180
  1179. ! #define KEY_setpgrp        181
  1180. ! #define KEY_setpriority        182
  1181. ! #define KEY_setprotoent        183
  1182. ! #define KEY_setpwent        184
  1183. ! #define KEY_setservent        185
  1184. ! #define KEY_setsockopt        186
  1185. ! #define KEY_shift        187
  1186. ! #define KEY_shmctl        188
  1187. ! #define KEY_shmget        189
  1188. ! #define KEY_shmread        190
  1189. ! #define KEY_shmwrite        191
  1190. ! #define KEY_shutdown        192
  1191. ! #define KEY_sin            193
  1192. ! #define KEY_sleep        194
  1193. ! #define KEY_socket        195
  1194. ! #define KEY_socketpair        196
  1195. ! #define KEY_sort        197
  1196. ! #define KEY_splice        198
  1197. ! #define KEY_split        199
  1198. ! #define KEY_sprintf        200
  1199. ! #define KEY_sqrt        201
  1200. ! #define KEY_srand        202
  1201. ! #define KEY_stat        203
  1202. ! #define KEY_study        204
  1203. ! #define KEY_sub            205
  1204. ! #define KEY_substr        206
  1205. ! #define KEY_symlink        207
  1206. ! #define KEY_syscall        208
  1207. ! #define KEY_sysread        209
  1208. ! #define KEY_system        210
  1209. ! #define KEY_syswrite        211
  1210. ! #define KEY_tell        212
  1211. ! #define KEY_telldir        213
  1212. ! #define KEY_tie            214
  1213. ! #define KEY_time        215
  1214. ! #define KEY_times        216
  1215. ! #define KEY_tr            217
  1216. ! #define KEY_truncate        218
  1217. ! #define KEY_uc            219
  1218. ! #define KEY_ucfirst        220
  1219. ! #define KEY_umask        221
  1220. ! #define KEY_undef        222
  1221. ! #define KEY_unless        223
  1222. ! #define KEY_unlink        224
  1223. ! #define KEY_unpack        225
  1224. ! #define KEY_unshift        226
  1225. ! #define KEY_untie        227
  1226. ! #define KEY_until        228
  1227. ! #define KEY_use            229
  1228. ! #define KEY_utime        230
  1229. ! #define KEY_values        231
  1230. ! #define KEY_vec            232
  1231. ! #define KEY_wait        233
  1232. ! #define KEY_waitpid        234
  1233. ! #define KEY_wantarray        235
  1234. ! #define KEY_warn        236
  1235. ! #define KEY_while        237
  1236. ! #define KEY_write        238
  1237. ! #define KEY_x            239
  1238. ! #define KEY_xor            240
  1239. ! #define KEY_y            241
  1240. Index: keywords.pl
  1241. *** perl5.001l/keywords.pl    Tue Oct 18 12:20:27 1994
  1242. --- perl5.001m/keywords.pl    Wed Jun 21 12:10:15 1995
  1243. ***************
  1244. *** 26,31 ****
  1245. --- 26,32 ----
  1246.   NULL
  1247.   __LINE__
  1248.   __FILE__
  1249. + __DATA__
  1250.   __END__
  1251.   AUTOLOAD
  1252.   BEGIN
  1253. Index: lib/Exporter.pm
  1254. *** perl5.001l/lib/Exporter.pm    Tue Jun  6 15:04:47 1995
  1255. --- perl5.001m/lib/Exporter.pm    Wed Jun 21 12:07:41 1995
  1256. ***************
  1257. *** 36,41 ****
  1258. --- 36,51 ----
  1259.   You can set C<$Exporter::Verbose=1;> to see how the specifications are
  1260.   being processed and what is actually being imported into modules.
  1261.   
  1262. + =head2 Module Version Checking
  1263. + 
  1264. + The Exporter module will convert an attempt to import a number from a
  1265. + module into a call to $module_name->require_version($value). This can
  1266. + be used to validate that the version of the module being used is
  1267. + greater than or equal to the required version.
  1268. + 
  1269. + The Exporter module supplies a default require_version method which
  1270. + checks the value of $VERSION in the exporting module.
  1271. + 
  1272.   =cut
  1273.   
  1274.   require 5.001;
  1275. ***************
  1276. *** 111,117 ****
  1277.   
  1278.       foreach $sym (@imports) {
  1279.           if (!$exports{$sym}) {
  1280. !         if ($sym !~ s/^&// || !$exports{$sym}) {
  1281.               warn qq["$sym" is not exported by the $pkg module ],
  1282.                   "at $callfile line $callline\n";
  1283.               $oops++;
  1284. --- 121,135 ----
  1285.   
  1286.       foreach $sym (@imports) {
  1287.           if (!$exports{$sym}) {
  1288. !         if ($sym =~ m/^\d/) {
  1289. !             $pkg->require_version($sym);
  1290. !             # If the version number was the only thing specified
  1291. !             # then we should act as if nothing was specified:
  1292. !             if (@imports == 1) {
  1293. !             @imports = @exports;
  1294. !             last;
  1295. !             }
  1296. !         } elsif ($sym !~ s/^&// || !$exports{$sym}) {
  1297.               warn qq["$sym" is not exported by the $pkg module ],
  1298.                   "at $callfile line $callline\n";
  1299.               $oops++;
  1300. ***************
  1301. *** 150,155 ****
  1302. --- 168,182 ----
  1303.       *tags = \%{"${pkg}::EXPORT_TAGS"};
  1304.       push(@{"${pkg}::EXPORT"},
  1305.       map {$tags{$_} ? @{$tags{$_}} : $_} @_ ? @_ : keys %tags);
  1306. + }
  1307. + 
  1308. + sub require_version {
  1309. +     my($self, $wanted) = @_;
  1310. +     my $pkg = ref $self || $self;
  1311. +     my $version = ${"${pkg}::VERSION"} || "(undef)";
  1312. +     Carp::croak("$pkg $wanted required--this is only version $version")
  1313. +         if $version < $wanted;
  1314. +     $version;
  1315.   }
  1316.   
  1317.   1;
  1318. Index: lib/ExtUtils/MakeMaker.pm
  1319. Prereq:  1.21 
  1320. *** perl5.001l/lib/ExtUtils/MakeMaker.pm    Tue Jun  6 15:06:44 1995
  1321. --- perl5.001m/lib/ExtUtils/MakeMaker.pm    Wed Jun 21 12:09:55 1995
  1322. ***************
  1323. *** 1,6 ****
  1324.   package ExtUtils::MakeMaker;
  1325.   
  1326. ! $Version = 4.15; # Last edited $Date: 1995/06/06 14:04:00 $ by Andreas Koenig
  1327.   
  1328.   $Version_OK = 4.13;    # Makefiles older than $Version_OK will die
  1329.               # (Will be checked from MakeMaker version 4.13 onwards)
  1330. --- 1,6 ----
  1331.   package ExtUtils::MakeMaker;
  1332.   
  1333. ! $Version = 4.16; # Last edited $Date: 1995/06/18 16:04:00 $ by Tim Bunce
  1334.   
  1335.   $Version_OK = 4.13;    # Makefiles older than $Version_OK will die
  1336.               # (Will be checked from MakeMaker version 4.13 onwards)
  1337. ***************
  1338. *** 263,275 ****
  1339.       'clean'        => {},
  1340.       'realclean'        => {},
  1341.       'dist'        => {},
  1342. -     'test'        => {},
  1343.       'install'        => {},
  1344.       'force'        => {},
  1345.       'perldepend'    => {},
  1346.       'makefile'        => {},
  1347. !     'postamble'        => {},
  1348. !     'staticmake'    => {},
  1349.   );
  1350.   %MM_Sections = @MM_Sections_spec; # looses section ordering
  1351.   @MM_Sections = grep(!ref, @MM_Sections_spec); # keeps order
  1352. --- 263,275 ----
  1353.       'clean'        => {},
  1354.       'realclean'        => {},
  1355.       'dist'        => {},
  1356.       'install'        => {},
  1357.       'force'        => {},
  1358.       'perldepend'    => {},
  1359.       'makefile'        => {},
  1360. !     'staticmake'    => {},    # Sadly this defines more macros
  1361. !     'test'        => {},
  1362. !     'postamble'        => {},    # should always be last
  1363.   );
  1364.   %MM_Sections = @MM_Sections_spec; # looses section ordering
  1365.   @MM_Sections = grep(!ref, @MM_Sections_spec); # keeps order
  1366. ***************
  1367. *** 765,771 ****
  1368.           $xs{$name} = $c;
  1369.           $c{$c} = 1;
  1370.       } elsif ($name =~ /\.c$/){
  1371. !         $c{$name} = 1;
  1372.       } elsif ($name =~ /\.h$/){
  1373.           $h{$name} = 1;
  1374.       } elsif ($name =~ /\.(p[ml]|pod)$/){
  1375. --- 765,772 ----
  1376.           $xs{$name} = $c;
  1377.           $c{$c} = 1;
  1378.       } elsif ($name =~ /\.c$/){
  1379. !         $c{$name} = 1
  1380. !         unless $name =~ m/perlmain\.c/; # See MAP_TARGET
  1381.       } elsif ($name =~ /\.h$/){
  1382.           $h{$name} = 1;
  1383.       } elsif ($name =~ /\.(p[ml]|pod)$/){
  1384. ***************
  1385. *** 1842,1862 ****
  1386.       my(@m);
  1387.       push(@m,"
  1388.   TEST_VERBOSE=0
  1389.   
  1390. ! test :: all
  1391.   ");
  1392. -     push(@m, <<"END") if $tests;
  1393. -     \$(FULLPERL) -I\$(INST_ARCHLIB) -I\$(INST_LIB) -I\$(PERL_ARCHLIB) -I\$(PERL_LIB) -e 'use Test::Harness qw(&runtests \$\$verbose); \$\$verbose=\$(TEST_VERBOSE); runtests \@ARGV;' $tests
  1394. - END
  1395. -     push(@m, <<'END') if -f "test.pl";
  1396. -     $(FULLPERL) -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) test.pl
  1397. - END
  1398.       push(@m, map("\tcd $_ && test -f $att{MAKEFILE} && \$(MAKE) test \$(PASTHRU2)\n",
  1399.            @{$att{DIR}}));
  1400. !     push(@m, "\t\@echo 'No tests defined for \$(NAME) extension.'\n") unless @m > 1;
  1401.       join("", @m);
  1402.   }
  1403.   
  1404.   
  1405.   sub install {
  1406.       my($self, %attribs) = @_;
  1407. --- 1843,1882 ----
  1408.       my(@m);
  1409.       push(@m,"
  1410.   TEST_VERBOSE=0
  1411. + TEST_TYPE=test_$att{LINKTYPE}
  1412.   
  1413. ! test :: \$(TEST_TYPE)
  1414.   ");
  1415.       push(@m, map("\tcd $_ && test -f $att{MAKEFILE} && \$(MAKE) test \$(PASTHRU2)\n",
  1416.            @{$att{DIR}}));
  1417. !     push(@m, "\t\@echo 'No tests defined for \$(NAME) extension.'\n")
  1418. !     unless $tests or -f "test.pl" or @{$att{DIR}};
  1419. !     push(@m, "\n");
  1420. ! 
  1421. !     push(@m, "test_dynamic :: all\n");
  1422. !     push(@m, $self->test_via_harness('$(FULLPERL)', $tests)) if $tests;
  1423. !     push(@m, $self->test_via_script('$(FULLPERL)', 'test.pl')) if -f "test.pl";
  1424. !     push(@m, "\n");
  1425. ! 
  1426. !     push(@m, "test_static :: all \$(MAP_TARGET)\n");
  1427. !     push(@m, $self->test_via_harness('./$(MAP_TARGET)', $tests)) if $tests;
  1428. !     push(@m, $self->test_via_script('./$(MAP_TARGET)', 'test.pl')) if -f "test.pl";
  1429. !     push(@m, "\n");
  1430. ! 
  1431.       join("", @m);
  1432.   }
  1433.   
  1434. + sub test_via_harness {
  1435. +     my($self, $perl, $tests) = @_;
  1436. +     "\t$perl".q! -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) -e 'use Test::Harness qw(&runtests $$verbose); $$verbose=$(TEST_VERBOSE); runtests @ARGV;' !."$tests\n";
  1437. + }
  1438. + 
  1439. + sub test_via_script {
  1440. +     my($self, $perl, $script) = @_;
  1441. +     "\t$perl".' -I$(INST_ARCHLIB) -I$(INST_LIB) -I$(PERL_ARCHLIB) -I$(PERL_LIB) test.pl
  1442. + ';
  1443. + }
  1444. + 
  1445.   
  1446.   sub install {
  1447.       my($self, %attribs) = @_;
  1448. ***************
  1449. *** 2129,2138 ****
  1450.   pure_inst_perl: \$(MAP_TARGET)
  1451.       $att{CP} \$(MAP_TARGET) \$(INSTALLBIN)/\$(MAP_TARGET)
  1452.   
  1453. ! realclean :: map_clean
  1454.   
  1455.   map_clean :
  1456. !     $att{RM_F} $tmp/perlmain.o $tmp/perlmain.c $makefilename extralibs.ld
  1457.   };
  1458.   
  1459.       join '', @m;
  1460. --- 2149,2158 ----
  1461.   pure_inst_perl: \$(MAP_TARGET)
  1462.       $att{CP} \$(MAP_TARGET) \$(INSTALLBIN)/\$(MAP_TARGET)
  1463.   
  1464. ! clean :: map_clean
  1465.   
  1466.   map_clean :
  1467. !     $att{RM_F} $tmp/perlmain.o $tmp/perlmain.c \$(MAP_TARGET) extralibs.ld
  1468.   };
  1469.   
  1470.       join '', @m;
  1471. ***************
  1472. *** 2760,2765 ****
  1473. --- 2780,2804 ----
  1474.   =head v4.15 June 6, 1995, by Andreas Koenig
  1475.   
  1476.   Add -I$(PERL_ARCHLIB) -I$(PERL_LIB) to calls to xsubpp.
  1477. + 
  1478. + =head v4.16 June 18, 1995, by Tim Bunce
  1479. + 
  1480. + Split test: target into test_static: and test_dynamic: with automatic
  1481. + selection based on LINKTYPE. The test_static: target automatically
  1482. + builds a local ./perl binary containing the extension and executes the
  1483. + tests using that binary. This fixes problems that users were having
  1484. + dealing with building and testing static extensions. It also simplifies
  1485. + the process down to the standard: make + make test.
  1486. + 
  1487. + MakeMaker no longer incorrectly considers a perlmain.c file to be part
  1488. + of an extensions source files. The map_clean target is now invoked by
  1489. + clean not realclean and now deletes MAP_TARGET but does not delete
  1490. + Makefile (since that's done properly elsewhere).
  1491. + 
  1492. + Since the staticmake section defines macros that the test target now
  1493. + needs the test section is written into the makefile after the
  1494. + staticmake section.  The postamble section has been made last again, as
  1495. + it should be.
  1496.   
  1497.   =head1 TODO
  1498.   
  1499. Index: lib/ExtUtils/xsubpp
  1500. *** perl5.001l/lib/ExtUtils/xsubpp    Tue Jun  6 15:06:22 1995
  1501. --- perl5.001m/lib/ExtUtils/xsubpp    Thu Jun 22 10:25:32 1995
  1502. ***************
  1503. *** 6,12 ****
  1504.   
  1505.   =head1 SYNOPSIS
  1506.   
  1507. ! B<xsubpp> [B<-C++>] [B<-except>] [B<-typemap typemap>] file.xs
  1508.   
  1509.   =head1 DESCRIPTION
  1510.   
  1511. --- 6,12 ----
  1512.   
  1513.   =head1 SYNOPSIS
  1514.   
  1515. ! B<xsubpp> [B<-C++>] [B<-except>] [B<-typemap typemap>]... file.xs
  1516.   
  1517.   =head1 DESCRIPTION
  1518.   
  1519. ***************
  1520. *** 156,176 ****
  1521.   to identify the exact line in the C<.xs> file where the fault occurs.
  1522.   This can be achieved in the majority of cases.
  1523.   
  1524.   =head1 SEE ALSO
  1525.   
  1526. ! perl(1)
  1527.   
  1528.   =cut
  1529.   
  1530. - use FileHandle ;
  1531. - 
  1532.   # Global Constants
  1533. ! $XSUBPP_version = "1.7" ;
  1534.   
  1535.   $usage = "Usage: xsubpp [-C++] [-except] [-typemap typemap] file.xs\n";
  1536.   
  1537. ! SWITCH: while ($ARGV[0] =~ s/^-//) {
  1538.       $flag = shift @ARGV;
  1539.       $spat = shift,    next SWITCH    if $flag eq 's';
  1540.       $cplusplus = 1,    next SWITCH    if $flag eq 'C++';
  1541.       $except = 1,    next SWITCH    if $flag eq 'except';
  1542. --- 156,215 ----
  1543.   to identify the exact line in the C<.xs> file where the fault occurs.
  1544.   This can be achieved in the majority of cases.
  1545.   
  1546. + =head2 1.8 
  1547. + 
  1548. + Changes by Hallvard B Furuseth <h.b.furuseth@usit.uio.no>, 6 June 1995.
  1549. + 
  1550. + Accept backslash-newline as in C.  Allow preprocessor directives
  1551. + anywhere.  Ignore whitespace in front of comments and on blank lines.
  1552. + 
  1553. + =head2 1.9 
  1554. + 
  1555. + Changes by Paul Marquess <pmarquess@bfsec.bt.co.uk>, 21 June 1995.
  1556. + 
  1557. + =over 5
  1558. + 
  1559. + =item 1.
  1560. + 
  1561. + Changed duplicate function error to a warning.
  1562. + 
  1563. + =item 2.
  1564. + 
  1565. + Changed the comment placed at the top of the C<.c> file to be more like
  1566. + the comment used by MakeMaker.
  1567. + 
  1568. + =item 3.
  1569. + 
  1570. + When parsing the type for an XSUB parameter I<xsubpp> can now accept
  1571. + definitions like this:
  1572. + 
  1573. +     char *fred
  1574. + 
  1575. + i.e. the '*' is recognised as part of the type, rather than the first
  1576. + character of the variable.
  1577. + 
  1578. + =item 4.
  1579. + 
  1580. + Fixed a problem with command line parsing - I<xsubpp> was not properly
  1581. + detecting the case where there was no filename present on the command
  1582. + line.
  1583. + 
  1584. + =back
  1585. + 
  1586.   =head1 SEE ALSO
  1587.   
  1588. ! perl(1), perlapi(1)
  1589.   
  1590.   =cut
  1591.   
  1592.   # Global Constants
  1593. ! $XSUBPP_version = "1.9" ;
  1594.   
  1595.   $usage = "Usage: xsubpp [-C++] [-except] [-typemap typemap] file.xs\n";
  1596.   
  1597. ! SWITCH: while ($ARGV[0] =~ /^-/) {
  1598.       $flag = shift @ARGV;
  1599. +     $flag =~ s/^-// ;
  1600.       $spat = shift,    next SWITCH    if $flag eq 's';
  1601.       $cplusplus = 1,    next SWITCH    if $flag eq 'C++';
  1602.       $except = 1,    next SWITCH    if $flag eq 'except';
  1603. ***************
  1604. *** 178,184 ****
  1605.       die $usage;
  1606.   }
  1607.   @ARGV == 1 or die $usage;
  1608. ! chop($pwd = `pwd`);
  1609.   # Check for error message from VMS
  1610.   if ($pwd =~ /unrecognized command verb/) { $Is_VMS = 1; $pwd = $ENV{DEFAULT} }
  1611.   ($dir, $filename) = $ARGV[0] =~ m#(.*)/(.*)#
  1612. --- 217,223 ----
  1613.       die $usage;
  1614.   }
  1615.   @ARGV == 1 or die $usage;
  1616. ! chomp($pwd = `pwd`);
  1617.   # Check for error message from VMS
  1618.   if ($pwd =~ /unrecognized command verb/) { $Is_VMS = 1; $pwd = $ENV{DEFAULT} }
  1619.   ($dir, $filename) = $ARGV[0] =~ m#(.*)/(.*)#
  1620. ***************
  1621. *** 197,202 ****
  1622. --- 236,242 ----
  1623.   
  1624.       # rationalise any '*' by joining them into bunches and removing whitespace
  1625.       s#\s*(\*+)\s*#$1#g;
  1626. +     s#(\*+)# $1 #g ;
  1627.   
  1628.       # change multiple whitespace into a single space
  1629.       s/\s+/ /g ;
  1630. ***************
  1631. *** 221,236 ****
  1632.       unless -T $typemap ;
  1633.       open(TYPEMAP, $typemap) 
  1634.       or warn ("Warning: could not open typemap file '$typemap': $!\n"), next;
  1635. !     $mode = Typemap;
  1636.       $junk = "" ;
  1637.       $current = \$junk;
  1638.       while (<TYPEMAP>) {
  1639. !     next if /^#/;
  1640. !     if (/^INPUT\s*$/) { $mode = Input, next }
  1641. !     if (/^OUTPUT\s*$/) { $mode = Output, next }
  1642. !     if (/^TYPEMAP\s*$/) { $mode = Typemap, next }
  1643. !     if ($mode eq Typemap) {
  1644. !         chop;
  1645.           my $line = $_ ;
  1646.               TrimWhitespace($_) ;
  1647.           # skip blank lines and comment lines
  1648. --- 261,276 ----
  1649.       unless -T $typemap ;
  1650.       open(TYPEMAP, $typemap) 
  1651.       or warn ("Warning: could not open typemap file '$typemap': $!\n"), next;
  1652. !     $mode = 'Typemap';
  1653.       $junk = "" ;
  1654.       $current = \$junk;
  1655.       while (<TYPEMAP>) {
  1656. !     next if /^\s*#/;
  1657. !     if (/^INPUT\s*$/)   { $mode = 'Input';   next; }
  1658. !     if (/^OUTPUT\s*$/)  { $mode = 'Output';  next; }
  1659. !     if (/^TYPEMAP\s*$/) { $mode = 'Typemap'; next; }
  1660. !     if ($mode eq 'Typemap') {
  1661. !         chomp;
  1662.           my $line = $_ ;
  1663.               TrimWhitespace($_) ;
  1664.           # skip blank lines and comment lines
  1665. ***************
  1666. *** 242,248 ****
  1667.               TrimWhitespace($kind) ;
  1668.           $type_kind{TidyType("@words")} = $kind ;
  1669.       }
  1670. !     elsif ($mode eq Input) {
  1671.           if (/^\s/) {
  1672.           $$current .= $_;
  1673.           }
  1674. --- 282,288 ----
  1675.               TrimWhitespace($kind) ;
  1676.           $type_kind{TidyType("@words")} = $kind ;
  1677.       }
  1678. !     elsif ($mode eq 'Input') {
  1679.           if (/^\s/) {
  1680.           $$current .= $_;
  1681.           }
  1682. ***************
  1683. *** 271,277 ****
  1684.   }
  1685.   
  1686.   sub Q {
  1687. !     local $text = shift;
  1688.       $text =~ tr/#//d;
  1689.       $text =~ s/\[\[/{/g;
  1690.       $text =~ s/\]\]/}/g;
  1691. --- 311,317 ----
  1692.   }
  1693.   
  1694.   sub Q {
  1695. !     my($text) = @_;
  1696.       $text =~ tr/#//d;
  1697.       $text =~ s/\[\[/{/g;
  1698.       $text =~ s/\]\]/}/g;
  1699. ***************
  1700. *** 281,357 ****
  1701.   open(F, $filename) or die "cannot open $filename: $!\n";
  1702.   
  1703.   # Identify the version of xsubpp used
  1704. - $TimeStamp = localtime ;
  1705.   print <<EOM ;
  1706. ! /* 
  1707. !  * This file was generated automatically by xsubpp version $XSUBPP_version
  1708. !  * from $filename on $TimeStamp
  1709.    *
  1710.    */
  1711. !  
  1712.   EOM
  1713.    
  1714.   
  1715.   while (<F>) {
  1716. !     last if ($Module, $foo, $Package, $foo1, $Prefix) =
  1717. !     /^MODULE\s*=\s*([\w:]+)(\s+PACKAGE\s*=\s*([\w:]+))?(\s+PREFIX\s*=\s*(\S+))?\s*$/;
  1718.       print $_;
  1719.   }
  1720. ! exit 0 if $_ eq "";
  1721. ! $lastline = $_;
  1722.   
  1723.   sub fetch_para {
  1724.       # parse paragraph
  1725.       @line = ();
  1726.       @line_no = () ;
  1727. !     if ($lastline ne "") {
  1728. !     if ($lastline =~
  1729. !     /^MODULE\s*=\s*([\w:]+)(\s+PACKAGE\s*=\s*([\w:]+))?(\s+PREFIX\s*=\s*(\S+))?\s*$/) {
  1730. !         $Module = $1;
  1731. !         $foo = $2;
  1732. !         $Package = $3;
  1733. !         $foo1 = $4;
  1734. !         $Prefix = $5;
  1735. !         ($Module_cname = $Module) =~ s/\W/_/g;
  1736. !         ($Packid = $Package) =~ s/:/_/g;
  1737. !         $Packprefix = $Package;
  1738. !         $Packprefix .= "::" if defined $Packprefix && $Packprefix ne "";
  1739. !         while (<F>) {
  1740. !         chop;
  1741. !         next if /^#/ &&
  1742. !             !/^#[ \t]*(if|ifdef|ifndef|else|elif|endif|define|undef)\b/;
  1743. !         last if /^\S/;
  1744. !         }
  1745. !         push(@line, $_), push(@line_no, input_line_number F) if $_ ne "";
  1746. !     }
  1747. !     else {
  1748. !         push(@line, $lastline);
  1749. !             push(@line_no, $lastline_no) ;
  1750. !     }
  1751.       $lastline = "";
  1752. -     while (<F>) {
  1753. -         next if /^#/ &&
  1754. -         !/^#[ \t]*(if|ifdef|ifndef|else|elif|endif|define|undef)\b/;
  1755. -         chop;
  1756. -         if (/^\S/ && @line && $line[-1] eq "") {
  1757. -         $lastline = $_;
  1758. -                 $lastline_no = input_line_number F ;
  1759. -         last;
  1760. -         }
  1761. -         else {
  1762. -         push(@line, $_);
  1763. -                 push(@line_no, input_line_number F) ;
  1764. -         }
  1765. -     }
  1766. -     pop(@line), pop(@line_no) while @line && $line[-1] =~ /^\s*$/;
  1767.       }
  1768. !     $PPCODE = grep(/PPCODE:/, @line);
  1769. !     scalar @line;
  1770.   }
  1771.   
  1772.   PARAGRAPH:
  1773.   while (&fetch_para) {
  1774.       # initialize info arrays
  1775.       undef(%args_match);
  1776.       undef(%var_types);
  1777.       undef(%var_addr);
  1778. --- 321,405 ----
  1779.   open(F, $filename) or die "cannot open $filename: $!\n";
  1780.   
  1781.   # Identify the version of xsubpp used
  1782.   print <<EOM ;
  1783. ! /*
  1784. !  * This file was generated automatically by xsubpp version $XSUBPP_version from the 
  1785. !  * contents of $filename. Don't edit this file, edit $filename instead.
  1786. !  *
  1787. !  *    ANY CHANGES MADE HERE WILL BE LOST! 
  1788.    *
  1789.    */
  1790. ! 
  1791.   EOM
  1792.    
  1793.   
  1794.   while (<F>) {
  1795. !     last if ($Module, $Package, $Prefix) =
  1796. !     /^MODULE\s*=\s*([\w:]+)(?:\s+PACKAGE\s*=\s*([\w:]+))?(?:\s+PREFIX\s*=\s*(\S+))?\s*$/;
  1797.       print $_;
  1798.   }
  1799. ! &Exit unless defined $_;
  1800. ! 
  1801. ! my $lastline    = $_;
  1802. ! my $lastline_no = $.;
  1803.   
  1804. + 
  1805. + # Read next xsub into @line from ($lastline, <F>).
  1806.   sub fetch_para {
  1807.       # parse paragraph
  1808.       @line = ();
  1809.       @line_no = () ;
  1810. !     return 0 unless defined $lastline;
  1811. ! 
  1812. !     if ($lastline =~
  1813. !     /^MODULE\s*=\s*([\w:]+)(?:\s+PACKAGE\s*=\s*([\w:]+))?(?:\s+PREFIX\s*=\s*(\S+))?\s*$/) {
  1814. !     $Module = $1;
  1815. !     $Package = $2;
  1816. !     $Prefix = $3;
  1817. !     ($Module_cname = $Module) =~ s/\W/_/g;
  1818. !     ($Packid = $Package) =~ s/:/_/g;
  1819. !     $Packprefix = $Package;
  1820. !     $Packprefix .= "::" if defined $Packprefix && $Packprefix ne "";
  1821.       $lastline = "";
  1822.       }
  1823. ! 
  1824. !     for(;;) {
  1825. !     if ($lastline !~ /^\s*#/ ||
  1826. !         $lastline =~ /^#[ \t]*((if|ifn?def|else|elif|endif|define|undef|pragma)\b|include\s*["<].*[>"])/) {
  1827. !         last if $lastline =~ /^\S/ && @line && $line[-1] eq "";
  1828. !         push(@line, $lastline);
  1829. !         push(@line_no, $lastline_no) ;
  1830. !     }
  1831. ! 
  1832. !     # Read next line and continuation lines
  1833. !     last unless defined($lastline = <F>);
  1834. !     $lastline_no = $.;
  1835. !     my $tmp_line;
  1836. !     $lastline .= $tmp_line
  1837. !         while ($lastline =~ /\\\n$/ && defined($tmp_line = <F>));
  1838. !         
  1839. !     # chomp $lastline;
  1840. !     $lastline =~ s/^\s+$//;
  1841. !     }
  1842. !     pop(@line), pop(@line_no) while @line && $line[-1] eq "";
  1843. !     $PPCODE = grep(/^\s*PPCODE\s*:/, @line);
  1844. !     1;
  1845.   }
  1846.   
  1847.   PARAGRAPH:
  1848.   while (&fetch_para) {
  1849. +     # Print initial preprocessor statements and blank lines
  1850. +     print shift(@line), "\n"
  1851. +     while @line && $line[0] !~ /^[^\#]/;
  1852. + 
  1853. +     next PARAGRAPH unless @line;
  1854. + 
  1855. +     death ("Code is not inside a function")
  1856. +     if $line[0] =~ /^\s/;
  1857. + 
  1858.       # initialize info arrays
  1859. +     # my(%args_match,%var_types,%var_addr);
  1860. +     # my($class,$static,$elipsis,$wantRETVAL,%arg_list);
  1861.       undef(%args_match);
  1862.       undef(%var_types);
  1863.       undef(%var_addr);
  1864. ***************
  1865. *** 363,371 ****
  1866.       undef(%arg_list) ;
  1867.   
  1868.       # extract return type, function name and arguments
  1869. !     $ret_type = TidyType(shift(@line));
  1870.   
  1871. !     if ($ret_type =~ /^BOOT:/) {
  1872.           push (@BootCode, @line, "", "") ;
  1873.           next PARAGRAPH ;
  1874.       }
  1875. --- 411,419 ----
  1876.       undef(%arg_list) ;
  1877.   
  1878.       # extract return type, function name and arguments
  1879. !     my($ret_type) = TidyType(shift(@line));
  1880.   
  1881. !     if ($ret_type =~ /^BOOT\s*:/) {
  1882.           push (@BootCode, @line, "", "") ;
  1883.           next PARAGRAPH ;
  1884.       }
  1885. ***************
  1886. *** 391,397 ****
  1887.       ($pname = $func_name) =~ s/^($Prefix)?/$Packprefix/;
  1888.   
  1889.       # Check for duplicate function definition
  1890. !     blurt("Error: ignoring duplicate function definition '$func_name'"), next PARAGRAPH
  1891.       if defined $Func_name{"${Packid}_$func_name"} ;
  1892.       $Func_name{"${Packid}_$func_name"} ++ ;
  1893.   
  1894. --- 439,445 ----
  1895.       ($pname = $func_name) =~ s/^($Prefix)?/$Packprefix/;
  1896.   
  1897.       # Check for duplicate function definition
  1898. !     Warn("Warning: duplicate function definition '$func_name' detected")
  1899.       if defined $Func_name{"${Packid}_$func_name"} ;
  1900.       $Func_name{"${Packid}_$func_name"} ++ ;
  1901.   
  1902. ***************
  1903. *** 534,539 ****
  1904. --- 582,596 ----
  1905.                   blurt("Error: invalid argument declaration '$line'"), next
  1906.                       unless @words >= 2 ;
  1907.                   my $var_name = pop @words ;
  1908. + 
  1909. +         # move any *'s from the variable name to the type
  1910. +         push(@words, $1)
  1911. +             if $var_name =~ s/^(\*+)// ;
  1912. + 
  1913. +         # check that removing the *'s hasn't eaten the whole variable
  1914. +         blurt("Error: invalid argument declaration '$line'"), next
  1915. +             if $var_name eq '' ;
  1916. + 
  1917.           my $var_type = "@words" ;
  1918.   
  1919.           # catch many errors similar to: SV<tab>* name
  1920. ***************
  1921. *** 593,599 ****
  1922.               $args_match{"RETVAL"} = 0;
  1923.               $var_types{"RETVAL"} = $ret_type;
  1924.           }
  1925. !         if (/^\s*PPCODE:/) {
  1926.               print $deferred;
  1927.               while (@line) {
  1928.                   $_ = shift(@line);
  1929. --- 650,656 ----
  1930.               $args_match{"RETVAL"} = 0;
  1931.               $var_types{"RETVAL"} = $ret_type;
  1932.           }
  1933. !         if (/^\s*PPCODE\s*:/) {
  1934.               print $deferred;
  1935.               while (@line) {
  1936.                   $_ = shift(@line);
  1937. ***************
  1938. *** 602,608 ****
  1939.                   print "$_\n";
  1940.               }
  1941.               print "\tPUTBACK;\n\treturn;\n";
  1942. !         } elsif (/^\s*CODE:/) {
  1943.               print $deferred;
  1944.               while (@line) {
  1945.                   $_ = shift(@line);
  1946. --- 659,665 ----
  1947.                   print "$_\n";
  1948.               }
  1949.               print "\tPUTBACK;\n\treturn;\n";
  1950. !         } elsif (/^\s*CODE\s*:/) {
  1951.               print $deferred;
  1952.               while (@line) {
  1953.                   $_ = shift(@line);
  1954. ***************
  1955. *** 618,623 ****
  1956. --- 675,681 ----
  1957.               print "\n\t";
  1958.               if ($ret_type ne "void") {
  1959.                   print "RETVAL = ";
  1960. +                 $wantRETVAL = 1;
  1961.               }
  1962.               if (defined($static)) {
  1963.                   if ($func_name =~ /^new/) {
  1964. ***************
  1965. *** 629,639 ****
  1966.               } elsif (defined($class)) {
  1967.                   print "THIS->";
  1968.               }
  1969. !             if (defined($spat) && $func_name =~ /^($spat)(.*)$/) {
  1970. !                 $func_name = $2;
  1971. !             }
  1972.               print "$func_name($func_args);\n";
  1973. -                 $wantRETVAL = 1 unless $ret_type eq "void";
  1974.           }
  1975.       }
  1976.   
  1977. --- 687,695 ----
  1978.               } elsif (defined($class)) {
  1979.                   print "THIS->";
  1980.               }
  1981. !             $func_name =~ s/^($spat)//
  1982. !                 if defined($spat);
  1983.               print "$func_name($func_args);\n";
  1984.           }
  1985.       }
  1986.   
  1987. ***************
  1988. *** 644,650 ****
  1989.           my %outargs ;
  1990.           while (@line) {
  1991.               $_ = shift(@line);
  1992. !             last if /^\s*CLEANUP|CASE\s*:/;
  1993.               TrimWhitespace($_) ;
  1994.               next if /^$/ ;
  1995.               my ($outarg, $outcode) = /^(\S+)\s*(.*)/ ;
  1996. --- 700,706 ----
  1997.           my %outargs ;
  1998.           while (@line) {
  1999.               $_ = shift(@line);
  2000. !             last if /^\s*(CLEANUP|CASE)\s*:/;
  2001.               TrimWhitespace($_) ;
  2002.               next if /^$/ ;
  2003.               my ($outarg, $outcode) = /^(\S+)\s*(.*)/ ;
  2004. ***************
  2005. *** 746,754 ****
  2006.       print "    /* End of Initialisation Section */\n\n" ;
  2007.   }
  2008.   
  2009. ! print "    ST(0) = &sv_yes;\n";
  2010. ! print "    XSRETURN(1);\n";
  2011. ! print "}\n";
  2012.   
  2013.   sub output_init {
  2014.       local($type, $num, $init) = @_;
  2015. --- 802,815 ----
  2016.       print "    /* End of Initialisation Section */\n\n" ;
  2017.   }
  2018.   
  2019. ! print Q<<"EOF";;
  2020. ! #    ST(0) = &sv_yes;
  2021. ! #    XSRETURN(1);
  2022. ! #]]
  2023. ! EOF
  2024. ! 
  2025. ! &Exit;
  2026. ! 
  2027.   
  2028.   sub output_init {
  2029.       local($type, $num, $init) = @_;
  2030. ***************
  2031. *** 874,880 ****
  2032.   }
  2033.   
  2034.   sub map_type {
  2035. !     local($type) = @_;
  2036.   
  2037.       $type =~ s/:/_/g;
  2038.       if ($type =~ /^array\(([^,]*),(.*)\)/) {
  2039. --- 935,941 ----
  2040.   }
  2041.   
  2042.   sub map_type {
  2043. !     my($type) = @_;
  2044.   
  2045.       $type =~ s/:/_/g;
  2046.       if ($type =~ /^array\(([^,]*),(.*)\)/) {
  2047. ***************
  2048. *** 884,890 ****
  2049.       }
  2050.   }
  2051.   
  2052.   # If this is VMS, the exit status has meaning to the shell, so we
  2053.   # use a predictable value (SS$_Abort) rather than an arbitrary
  2054.   # number.
  2055. ! exit ($Is_VMS ? 44 : $errors) ;
  2056. --- 945,954 ----
  2057.       }
  2058.   }
  2059.   
  2060. + 
  2061. + sub Exit {
  2062.   # If this is VMS, the exit status has meaning to the shell, so we
  2063.   # use a predictable value (SS$_Abort) rather than an arbitrary
  2064.   # number.
  2065. !     exit ($Is_VMS ? 44 : $errors) ;
  2066. ! }
  2067. Index: lib/lib.pm
  2068. *** /dev/null    Thu Jun 22 13:39:36 1995
  2069. --- perl5.001m/lib/lib.pm    Wed Jun 21 12:13:12 1995
  2070. ***************
  2071. *** 0 ****
  2072. --- 1,103 ----
  2073. + package lib;
  2074. + 
  2075. + @ORIG_INC = ();        # (avoid typo warning)
  2076. + @ORIG_INC = @INC;    # take a handy copy of 'original' value
  2077. + 
  2078. + 
  2079. + sub import {
  2080. +     shift;
  2081. +     unshift(@INC, @_);
  2082. + }
  2083. + 
  2084. + 
  2085. + sub unimport {
  2086. +     shift;
  2087. +     my $mode = shift if $_[0] =~ m/^:[A-Z]+/;
  2088. + 
  2089. +     my %names;
  2090. +     foreach(@_) { ++$names{$_} };
  2091. + 
  2092. +     if ($mode and $mode eq ':ALL') {
  2093. +     # Remove ALL instances of each named directory.
  2094. +     @INC = grep { !exists $names{$_} } @INC;
  2095. +     } else {
  2096. +     # Remove INITIAL instance(s) of each named directory.
  2097. +     @INC = grep { --$names{$_} < 0   } @INC;
  2098. +     }
  2099. + }
  2100. + 
  2101. + __END__
  2102. + 
  2103. + =head1 NAME
  2104. + 
  2105. + lib - manipulate @INC at compile time
  2106. + 
  2107. + =head1 SYNOPSIS
  2108. + 
  2109. +     use lib LIST;
  2110. + 
  2111. +     no lib LIST;
  2112. + 
  2113. + =head1 DESCRIPTION
  2114. + 
  2115. + This is a small simple module which simplifies the manipulation of @INC
  2116. + at compile time.
  2117. + 
  2118. + It is typically used to add extra directories to perl's search path so
  2119. + that later C<use> or C<require> statements will find modules which are
  2120. + not located on perl's default search path.
  2121. + 
  2122. + 
  2123. + =head2 ADDING DIRECTORIES TO @INC
  2124. + 
  2125. + The parameters to C<use lib> are added to the start of the perl search
  2126. + path. Saying
  2127. + 
  2128. +     use lib LIST;
  2129. + 
  2130. + is the same as saying
  2131. + 
  2132. +     BEGIN { unshift(@INC, LIST) }
  2133. + 
  2134. + 
  2135. + =head2 DELETING DIRECTORIES FROM @INC
  2136. + 
  2137. + You should normally only add directories to @INC.  If you need to
  2138. + delete directories from @INC take care to only delete those which you
  2139. + added yourself or which you are certain are not needed by other modules
  2140. + in your script.  Other modules may have added directories which they
  2141. + need for correct operation.
  2142. + 
  2143. + By default the C<no lib> statement deletes the I<first> instance of
  2144. + each named directory from @INC.  To delete multiple instances of the
  2145. + same name from @INC you can specify the name multiple times.
  2146. + 
  2147. + To delete I<all> instances of I<all> the specified names from @INC you can
  2148. + specify ':ALL' as the first parameter of C<no lib>. For example:
  2149. + 
  2150. +     no lib qw(:ALL .);
  2151. + 
  2152. + 
  2153. + =head2 RESTORING ORIGINAL @INC
  2154. + 
  2155. + When the lib module is first loaded it records the current value of @INC
  2156. + in an array C<@lib::ORIG_INC>. To restore @INC to that value you
  2157. + can say either
  2158. + 
  2159. +     @INC = @lib::ORIG_INC;
  2160. + 
  2161. + or
  2162. + 
  2163. +     no  lib @INC;
  2164. +     use lib @lib::ORIG_INC;
  2165. + 
  2166. + =head1 SEE ALSO
  2167. + 
  2168. + AddINC - optional module which deals with paths relative to the source file.
  2169. + 
  2170. + =head1 AUTHOR
  2171. + 
  2172. + Tim Bunce, 2nd June 1995.
  2173. + 
  2174. + =cut
  2175. + 
  2176. Index: op.c
  2177. *** perl5.001l/op.c    Tue Jun  6 15:07:00 1995
  2178. --- perl5.001m/op.c    Thu Jun 22 10:28:08 1995
  2179. ***************
  2180. *** 18,23 ****
  2181. --- 18,35 ----
  2182.   #include "EXTERN.h"
  2183.   #include "perl.h"
  2184.   
  2185. + #ifdef USE_OP_MASK
  2186. + /*
  2187. +  * In the following definition, the ", (OP *) op" is just to make the compiler
  2188. +  * think the expression is of the right type: croak actually does a longjmp.
  2189. +  */
  2190. + #define CHECKOP(type,op) ((op_mask && op_mask[type]) ? \
  2191. +     (croak("%s trapped by operation mask", op_name[type]), (OP *) op) \
  2192. +     : (*check[type])((OP *) op))
  2193. + #else
  2194. + #define CHECKOP(type,op) (*check[type])(op)
  2195. + #endif /* USE_OP_MASK */
  2196. + 
  2197.   static I32 list_assignment _((OP *op));
  2198.   static OP *bad_type _((I32 n, char *t, OP *op, OP *kid));
  2199.   static OP *modkids _((OP *op, I32 type));
  2200. ***************
  2201. *** 410,416 ****
  2202.       /* FALL THROUGH */
  2203.       case OP_PUSHRE:
  2204.       case OP_MATCH:
  2205. !     regfree(cPMOP->op_pmregexp);
  2206.       SvREFCNT_dec(cPMOP->op_pmshort);
  2207.       break;
  2208.       default:
  2209. --- 422,428 ----
  2210.       /* FALL THROUGH */
  2211.       case OP_PUSHRE:
  2212.       case OP_MATCH:
  2213. !     pregfree(cPMOP->op_pmregexp);
  2214.       SvREFCNT_dec(cPMOP->op_pmshort);
  2215.       break;
  2216.       default:
  2217. ***************
  2218. *** 1441,1447 ****
  2219.       op->op_ppaddr = ppaddr[type];
  2220.       op->op_flags |= flags;
  2221.   
  2222. !     op = (*check[type])(op);
  2223.       if (op->op_type != type)
  2224.       return op;
  2225.   
  2226. --- 1453,1459 ----
  2227.       op->op_ppaddr = ppaddr[type];
  2228.       op->op_flags |= flags;
  2229.   
  2230. !     op = CHECKOP(type, op);
  2231.       if (op->op_type != type)
  2232.       return op;
  2233.   
  2234. ***************
  2235. *** 1617,1623 ****
  2236.       scalar(op);
  2237.       if (opargs[type] & OA_TARGET)
  2238.       op->op_targ = pad_alloc(type, SVs_PADTMP);
  2239. !     return (*check[type])(op);
  2240.   }
  2241.   
  2242.   OP *
  2243. --- 1629,1635 ----
  2244.       scalar(op);
  2245.       if (opargs[type] & OA_TARGET)
  2246.       op->op_targ = pad_alloc(type, SVs_PADTMP);
  2247. !     return CHECKOP(type, op);
  2248.   }
  2249.   
  2250.   OP *
  2251. ***************
  2252. *** 1640,1646 ****
  2253.       unop->op_flags = flags | OPf_KIDS;
  2254.       unop->op_private = 1;
  2255.   
  2256. !     unop = (UNOP*)(*check[type])((OP*)unop);
  2257.       if (unop->op_next)
  2258.       return (OP*)unop;
  2259.   
  2260. --- 1652,1658 ----
  2261.       unop->op_flags = flags | OPf_KIDS;
  2262.       unop->op_private = 1;
  2263.   
  2264. !     unop = (UNOP*) CHECKOP(type, unop);
  2265.       if (unop->op_next)
  2266.       return (OP*)unop;
  2267.   
  2268. ***************
  2269. *** 1673,1679 ****
  2270.       first->op_sibling = last;
  2271.       }
  2272.   
  2273. !     binop = (BINOP*)(*check[type])((OP*)binop);
  2274.       if (binop->op_next)
  2275.       return (OP*)binop;
  2276.   
  2277. --- 1685,1691 ----
  2278.       first->op_sibling = last;
  2279.       }
  2280.   
  2281. !     binop = (BINOP*)CHECKOP(type, binop);
  2282.       if (binop->op_next)
  2283.       return (OP*)binop;
  2284.   
  2285. ***************
  2286. *** 1794,1800 ****
  2287.           p = SvPV(pat, plen);
  2288.           pm->op_pmflags |= PMf_SKIPWHITE;
  2289.       }
  2290. !     pm->op_pmregexp = regcomp(p, p + plen, pm);
  2291.       if (strEQ("\\s+", pm->op_pmregexp->precomp)) 
  2292.           pm->op_pmflags |= PMf_WHITE;
  2293.       hoistmust(pm);
  2294. --- 1806,1812 ----
  2295.           p = SvPV(pat, plen);
  2296.           pm->op_pmflags |= PMf_SKIPWHITE;
  2297.       }
  2298. !     pm->op_pmregexp = pregcomp(p, p + plen, pm);
  2299.       if (strEQ("\\s+", pm->op_pmregexp->precomp)) 
  2300.           pm->op_pmflags |= PMf_WHITE;
  2301.       hoistmust(pm);
  2302. ***************
  2303. *** 1905,1911 ****
  2304.       scalar((OP*)svop);
  2305.       if (opargs[type] & OA_TARGET)
  2306.       svop->op_targ = pad_alloc(type, SVs_PADTMP);
  2307. !     return (*check[type])((OP*)svop);
  2308.   }
  2309.   
  2310.   OP *
  2311. --- 1917,1923 ----
  2312.       scalar((OP*)svop);
  2313.       if (opargs[type] & OA_TARGET)
  2314.       svop->op_targ = pad_alloc(type, SVs_PADTMP);
  2315. !     return CHECKOP(type, svop);
  2316.   }
  2317.   
  2318.   OP *
  2319. ***************
  2320. *** 1925,1931 ****
  2321.       scalar((OP*)gvop);
  2322.       if (opargs[type] & OA_TARGET)
  2323.       gvop->op_targ = pad_alloc(type, SVs_PADTMP);
  2324. !     return (*check[type])((OP*)gvop);
  2325.   }
  2326.   
  2327.   OP *
  2328. --- 1937,1943 ----
  2329.       scalar((OP*)gvop);
  2330.       if (opargs[type] & OA_TARGET)
  2331.       gvop->op_targ = pad_alloc(type, SVs_PADTMP);
  2332. !     return CHECKOP(type, gvop);
  2333.   }
  2334.   
  2335.   OP *
  2336. ***************
  2337. *** 1945,1951 ****
  2338.       scalar((OP*)pvop);
  2339.       if (opargs[type] & OA_TARGET)
  2340.       pvop->op_targ = pad_alloc(type, SVs_PADTMP);
  2341. !     return (*check[type])((OP*)pvop);
  2342.   }
  2343.   
  2344.   OP *
  2345. --- 1957,1963 ----
  2346.       scalar((OP*)pvop);
  2347.       if (opargs[type] & OA_TARGET)
  2348.       pvop->op_targ = pad_alloc(type, SVs_PADTMP);
  2349. !     return CHECKOP(type, pvop);
  2350.   }
  2351.   
  2352.   OP *
  2353. ***************
  2354. *** 1967,1973 ****
  2355.       scalar((OP*)cvop);
  2356.       if (opargs[type] & OA_TARGET)
  2357.       cvop->op_targ = pad_alloc(type, SVs_PADTMP);
  2358. !     return (*check[type])((OP*)cvop);
  2359.   }
  2360.   
  2361.   void
  2362. --- 1979,1985 ----
  2363.       scalar((OP*)cvop);
  2364.       if (opargs[type] & OA_TARGET)
  2365.       cvop->op_targ = pad_alloc(type, SVs_PADTMP);
  2366. !     return CHECKOP(type, cvop);
  2367.   }
  2368.   
  2369.   void
  2370. Index: op.h
  2371. *** perl5.001l/op.h    Sat Jan 14 01:52:56 1995
  2372. --- perl5.001m/op.h    Thu Jun 22 10:22:39 1995
  2373. ***************
  2374. *** 41,47 ****
  2375.       U8        op_flags;        \
  2376.       U8        op_private;
  2377.   
  2378. ! #define GIMME (op->op_flags & OPf_KNOW ? op->op_flags & OPf_LIST : cxstack[cxstack_ix].blk_gimme & G_ARRAY)
  2379.   
  2380.   /* Public flags */
  2381.   #define OPf_LIST    1    /* Do operator in list context. */
  2382. --- 41,47 ----
  2383.       U8        op_flags;        \
  2384.       U8        op_private;
  2385.   
  2386. ! #define GIMME (op->op_flags & OPf_KNOW ? op->op_flags & OPf_LIST : dowantarray())
  2387.   
  2388.   /* Public flags */
  2389.   #define OPf_LIST    1    /* Do operator in list context. */
  2390. Index: perl.c
  2391. *** perl5.001l/perl.c    Tue Jun  6 15:07:01 1995
  2392. --- perl5.001m/perl.c    Wed Jun  7 11:58:26 1995
  2393. ***************
  2394. *** 996,1002 ****
  2395.       return s;
  2396.       case 'v':
  2397.       printf("\nThis is perl, version %s\n\n",patchlevel);
  2398. !     fputs("\tUnofficial patchlevel 1l.\n",stdout);
  2399.       fputs("\nCopyright 1987-1994, Larry Wall\n",stdout);
  2400.   #ifdef MSDOS
  2401.       fputs("MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis\n",
  2402. --- 996,1002 ----
  2403.       return s;
  2404.       case 'v':
  2405.       printf("\nThis is perl, version %s\n\n",patchlevel);
  2406. !     fputs("\tUnofficial patchlevel 1m.\n",stdout);
  2407.       fputs("\nCopyright 1987-1994, Larry Wall\n",stdout);
  2408.   #ifdef MSDOS
  2409.       fputs("MS-DOS port Copyright (c) 1989, 1990, Diomidis Spinellis\n",
  2410. Index: perl.h
  2411. *** perl5.001l/perl.h    Tue Jun  6 15:05:40 1995
  2412. --- perl5.001m/perl.h    Tue Jun 20 10:09:03 1995
  2413. ***************
  2414. *** 1294,1299 ****
  2415. --- 1294,1300 ----
  2416.   IEXT U8        Ilocalizing;    /* are we processing a local() list? */
  2417.   IEXT bool    Itainted;    /* using variables controlled by $< */
  2418.   IEXT bool    Itainting;    /* doing taint checks */
  2419. + IEXT char *    Iop_mask IINIT(NULL);    /* masked operations for safe evals */
  2420.   
  2421.   /* trace state */
  2422.   IEXT I32    Idlevel;
  2423. Index: perldoc.SH
  2424. *** perl5.001l/perldoc.SH    Tue Jun  6 15:06:27 1995
  2425. --- perl5.001m/perldoc.SH    Tue Jun 20 14:44:21 1995
  2426. ***************
  2427. *** 97,103 ****
  2428.       die <<EOF;
  2429.   Usage: $0 [-h] PageName|ModuleName
  2430.   
  2431. ! We suggest you use C<perldoc perldoc> to get aquainted 
  2432.   with the system.
  2433.   EOF
  2434.   }
  2435. --- 97,103 ----
  2436.       die <<EOF;
  2437.   Usage: $0 [-h] PageName|ModuleName
  2438.   
  2439. ! We suggest you use "perldoc perldoc" to get aquainted 
  2440.   with the system.
  2441.   EOF
  2442.   }
  2443. Index: pod/perl.pod
  2444. *** perl5.001l/pod/perl.pod    Tue Jun  6 15:05:41 1995
  2445. --- perl5.001m/pod/perl.pod    Thu Jun 22 10:36:03 1995
  2446. ***************
  2447. *** 31,36 ****
  2448. --- 31,38 ----
  2449.       perlguts    Perl internal functions for those doing extensions 
  2450.       perlcall    Perl calling conventions from C
  2451.       perlovl    Perl overloading semantics
  2452. +     perlembed    Perl how to embed perl in your C or C++ app
  2453. +     perlpod    Perl plain old documentation
  2454.       perlbook    Perl book information
  2455.   
  2456.   (If you're intending to read these straight through for the first time,
  2457. Index: pod/pod2html.SH
  2458. *** perl5.001l/pod/pod2html.SH    Tue Jun  6 15:06:28 1995
  2459. --- perl5.001m/pod/pod2html.SH    Wed Jun 21 12:17:28 1995
  2460. ***************
  2461. *** 92,98 ****
  2462.           <!-- \$Log\$ -->
  2463.           <HTML>
  2464.   HTML__EOQ
  2465. !         <TITLE> \U$pod\E </TITLE>
  2466.   HTML__EOQQ
  2467.       }
  2468.   
  2469. --- 92,98 ----
  2470.           <!-- \$Log\$ -->
  2471.           <HTML>
  2472.   HTML__EOQ
  2473. !         <TITLE>\U$pod\E</TITLE>
  2474.   HTML__EOQQ
  2475.       }
  2476.   
  2477. ***************
  2478. *** 341,351 ****
  2479.       } 
  2480.       }
  2481.       if ($char =~ /[IF]/) {
  2482. !     return "<EM> $bigkey </EM>";
  2483.       } elsif($char =~ /C/) {
  2484. !     return "<CODE> $bigkey </CODE>";
  2485.       } else {
  2486. !     return "<STRONG> $bigkey </STRONG>";
  2487.       }
  2488.   } 
  2489.   
  2490. --- 341,351 ----
  2491.       } 
  2492.       }
  2493.       if ($char =~ /[IF]/) {
  2494. !     return "<EM>$bigkey</EM>";
  2495.       } elsif($char =~ /C/) {
  2496. !     return "<CODE>$bigkey</CODE>";
  2497.       } else {
  2498. !     return "<STRONG>$bigkey</STRONG>";
  2499.       }
  2500.   } 
  2501.   
  2502. ***************
  2503. *** 380,397 ****
  2504.       $item =~ s/\(\)$//;
  2505.       if (!$item) {
  2506.           if (!defined $section && defined $Podnames{$page}) {
  2507. !         return "\n$type$page.html\">\nthe <EM> $page </EM> manpage<\/A>\n";
  2508.       } else {
  2509.           (warn "Bizarre entry $page/$item") if $Debug;
  2510. !         return "the <EM> $_[0] </EM>  manpage\n";
  2511.       } 
  2512.       } 
  2513.   
  2514.       if ($item =~ s/"(.*)"/$1/ || ($item =~ /[^\w\/\-]/ && $item !~ /^\$.$/)) {
  2515. !     $text = "<EM> $item </EM>";
  2516.       $ref = "Headers";
  2517.       } else {
  2518. !     $text = "<EM> $item </EM>";
  2519.       $ref = "Items";
  2520.       } 
  2521.       for $podname ($pod, @inclusions){
  2522. --- 380,397 ----
  2523.       $item =~ s/\(\)$//;
  2524.       if (!$item) {
  2525.           if (!defined $section && defined $Podnames{$page}) {
  2526. !         return "\n$type$page.html\">\nthe <EM>$page</EM> manpage<\/A>\n";
  2527.       } else {
  2528.           (warn "Bizarre entry $page/$item") if $Debug;
  2529. !         return "the <EM>$_[0]</EM>  manpage\n";
  2530.       } 
  2531.       } 
  2532.   
  2533.       if ($item =~ s/"(.*)"/$1/ || ($item =~ /[^\w\/\-]/ && $item !~ /^\$.$/)) {
  2534. !     $text = "<EM>$item</EM>";
  2535.       $ref = "Headers";
  2536.       } else {
  2537. !     $text = "<EM>$item</EM>";
  2538.       $ref = "Items";
  2539.       } 
  2540.       for $podname ($pod, @inclusions){
  2541. ***************
  2542. *** 429,435 ****
  2543.       }
  2544.       }
  2545.       Debug( "vars", "bummer, $var not a var");
  2546. !     return "<STRONG> $var </STRONG>";
  2547.   } 
  2548.   
  2549.   sub gensym {
  2550. --- 429,435 ----
  2551.       }
  2552.       }
  2553.       Debug( "vars", "bummer, $var not a var");
  2554. !     return "<STRONG>$var</STRONG>";
  2555.   } 
  2556.   
  2557.   sub gensym {
  2558. Index: pp.c
  2559. *** perl5.001l/pp.c    Tue Jun  6 15:03:18 1995
  2560. --- perl5.001m/pp.c    Thu Jun 22 10:28:02 1995
  2561. ***************
  2562. *** 3391,3397 ****
  2563.       else {
  2564.       maxiters += (strend - s) * rx->nparens;
  2565.       while (s < strend && --limit &&
  2566. !         regexec(rx, s, strend, orig, 1, Nullsv, TRUE) ) {
  2567.           if (rx->subbase
  2568.             && rx->subbase != orig) {
  2569.           m = s;
  2570. --- 3391,3397 ----
  2571.       else {
  2572.       maxiters += (strend - s) * rx->nparens;
  2573.       while (s < strend && --limit &&
  2574. !         pregexec(rx, s, strend, orig, 1, Nullsv, TRUE) ) {
  2575.           if (rx->subbase
  2576.             && rx->subbase != orig) {
  2577.           m = s;
  2578. Index: pp_ctl.c
  2579. *** perl5.001l/pp_ctl.c    Tue Jun  6 15:07:02 1995
  2580. --- perl5.001m/pp_ctl.c    Thu Jun 22 10:28:07 1995
  2581. ***************
  2582. *** 68,78 ****
  2583.       t = SvPV(tmpstr, len);
  2584.   
  2585.       if (pm->op_pmregexp) {
  2586. !     regfree(pm->op_pmregexp);
  2587.       pm->op_pmregexp = Null(REGEXP*);    /* crucial if regcomp aborts */
  2588.       }
  2589.   
  2590. !     pm->op_pmregexp = regcomp(t, t + len, pm);
  2591.   
  2592.       if (!pm->op_pmregexp->prelen && curpm)
  2593.       pm = curpm;
  2594. --- 68,78 ----
  2595.       t = SvPV(tmpstr, len);
  2596.   
  2597.       if (pm->op_pmregexp) {
  2598. !     pregfree(pm->op_pmregexp);
  2599.       pm->op_pmregexp = Null(REGEXP*);    /* crucial if regcomp aborts */
  2600.       }
  2601.   
  2602. !     pm->op_pmregexp = pregcomp(t, t + len, pm);
  2603.   
  2604.       if (!pm->op_pmregexp->prelen && curpm)
  2605.       pm = curpm;
  2606. ***************
  2607. *** 108,114 ****
  2608.       rx->subbase = cx->sb_subbase;
  2609.   
  2610.       /* Are we done */
  2611. !     if (cx->sb_once || !regexec(rx, s, cx->sb_strend, orig,
  2612.                   s == m, Nullsv, cx->sb_safebase))
  2613.       {
  2614.           SV *targ = cx->sb_targ;
  2615. --- 108,114 ----
  2616.       rx->subbase = cx->sb_subbase;
  2617.   
  2618.       /* Are we done */
  2619. !     if (cx->sb_once || !pregexec(rx, s, cx->sb_strend, orig,
  2620.                   s == m, Nullsv, cx->sb_safebase))
  2621.       {
  2622.           SV *targ = cx->sb_targ;
  2623. ***************
  2624. *** 780,785 ****
  2625. --- 780,800 ----
  2626.       return i;
  2627.   }
  2628.   
  2629. + I32
  2630. + dowantarray()
  2631. + {
  2632. +     I32 cxix;
  2633. + 
  2634. +     cxix = dopoptosub(cxstack_ix);
  2635. +     if (cxix < 0)
  2636. +     return G_SCALAR;
  2637. + 
  2638. +     if (cxstack[cxix].blk_gimme == G_ARRAY)
  2639. +     return G_ARRAY;
  2640. +     else
  2641. +     return G_SCALAR;
  2642. + }
  2643. + 
  2644.   static I32
  2645.   dopoptosub(startingblock)
  2646.   I32 startingblock;
  2647. ***************
  2648. *** 2045,2050 ****
  2649. --- 2060,2070 ----
  2650.       ENTER;
  2651.       SAVETMPS;
  2652.       lex_start(sv_2mortal(newSVpv("",0)));
  2653. +     if (rsfp_filters){
  2654. +      save_aptr(&rsfp_filters);
  2655. +     rsfp_filters = NULL;
  2656. +     }
  2657. + 
  2658.       rsfp = tryrsfp;
  2659.       name = savepv(name);
  2660.       SAVEFREEPV(name);
  2661. Index: pp_hot.c
  2662. *** perl5.001l/pp_hot.c    Tue Jun  6 15:07:03 1995
  2663. --- perl5.001m/pp_hot.c    Thu Jun 22 10:28:06 1995
  2664. ***************
  2665. *** 752,758 ****
  2666.           pm->op_pmshort = Nullsv;    /* opt is being useless */
  2667.       }
  2668.       }
  2669. !     if (regexec(rx, s, strend, truebase, minmatch,
  2670.         SvSCREAM(TARG) ? TARG : Nullsv,
  2671.         safebase)) {
  2672.       curpm = pm;
  2673. --- 752,758 ----
  2674.           pm->op_pmshort = Nullsv;    /* opt is being useless */
  2675.       }
  2676.       }
  2677. !     if (pregexec(rx, s, strend, truebase, minmatch,
  2678.         SvSCREAM(TARG) ? TARG : Nullsv,
  2679.         safebase)) {
  2680.       curpm = pm;
  2681. ***************
  2682. *** 1311,1317 ****
  2683.       c = SvPV(dstr, clen);
  2684.       if (clen <= rx->minlen) {
  2685.                       /* can do inplace substitution */
  2686. !         if (regexec(rx, s, strend, orig, 0,
  2687.             SvSCREAM(TARG) ? TARG : Nullsv, safebase)) {
  2688.           if (force_on_match) {
  2689.               force_on_match = 0;
  2690. --- 1311,1317 ----
  2691.       c = SvPV(dstr, clen);
  2692.       if (clen <= rx->minlen) {
  2693.                       /* can do inplace substitution */
  2694. !         if (pregexec(rx, s, strend, orig, 0,
  2695.             SvSCREAM(TARG) ? TARG : Nullsv, safebase)) {
  2696.           if (force_on_match) {
  2697.               force_on_match = 0;
  2698. ***************
  2699. *** 1392,1398 ****
  2700.               d += clen;
  2701.               }
  2702.               s = rx->endp[0];
  2703. !         } while (regexec(rx, s, strend, orig, s == m,
  2704.               Nullsv, TRUE));    /* (don't match same null twice) */
  2705.           if (s != d) {
  2706.               i = strend - s;
  2707. --- 1392,1398 ----
  2708.               d += clen;
  2709.               }
  2710.               s = rx->endp[0];
  2711. !         } while (pregexec(rx, s, strend, orig, s == m,
  2712.               Nullsv, TRUE));    /* (don't match same null twice) */
  2713.           if (s != d) {
  2714.               i = strend - s;
  2715. ***************
  2716. *** 1410,1416 ****
  2717.       }
  2718.       else
  2719.       c = Nullch;
  2720. !     if (regexec(rx, s, strend, orig, 0,
  2721.         SvSCREAM(TARG) ? TARG : Nullsv, safebase)) {
  2722.       long_way:
  2723.       if (force_on_match) {
  2724. --- 1410,1416 ----
  2725.       }
  2726.       else
  2727.       c = Nullch;
  2728. !     if (pregexec(rx, s, strend, orig, 0,
  2729.         SvSCREAM(TARG) ? TARG : Nullsv, safebase)) {
  2730.       long_way:
  2731.       if (force_on_match) {
  2732. ***************
  2733. *** 1443,1449 ****
  2734.           sv_catpvn(dstr, c, clen);
  2735.           if (once)
  2736.           break;
  2737. !     } while (regexec(rx, s, strend, orig, s == m, Nullsv,
  2738.           safebase));
  2739.       sv_catpvn(dstr, s, strend - s);
  2740.   
  2741. --- 1443,1449 ----
  2742.           sv_catpvn(dstr, c, clen);
  2743.           if (once)
  2744.           break;
  2745. !     } while (pregexec(rx, s, strend, orig, s == m, Nullsv,
  2746.           safebase));
  2747.       sv_catpvn(dstr, s, strend - s);
  2748.   
  2749. Index: proto.h
  2750. *** perl5.001l/proto.h    Tue Jun  6 15:05:47 1995
  2751. --- perl5.001m/proto.h    Thu Jun 22 10:28:05 1995
  2752. ***************
  2753. *** 95,100 ****
  2754. --- 95,101 ----
  2755.   I32    do_trans _((SV* sv, OP* arg));
  2756.   void    do_vecset _((SV* sv));
  2757.   void    do_vop _((I32 optype, SV* sv, SV* left, SV* right));
  2758. + I32    dowantarray _((void));
  2759.   void    dump_all _((void));
  2760.   void    dump_eval _((void));
  2761.   #ifdef DUMP_FDS  /* See util.c */
  2762. ***************
  2763. *** 323,334 ****
  2764.   OP*    prepend_elem _((I32 optype, OP* head, OP* tail));
  2765.   void    push_return _((OP* op));
  2766.   void    push_scope _((void));
  2767. ! regexp*    regcomp _((char* exp, char* xend, PMOP* pm));
  2768.   OP*    ref _((OP* op, I32 type));
  2769.   OP*    refkids _((OP* op, I32 type));
  2770.   void    regdump _((regexp* r));
  2771. ! I32    regexec _((regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, I32 safebase));
  2772. ! void    regfree _((struct regexp* r));
  2773.   char*    regnext _((char* p));
  2774.   char*    regprop _((char* op));
  2775.   void    repeatcpy _((char* to, char* from, I32 len, I32 count));
  2776. --- 324,335 ----
  2777.   OP*    prepend_elem _((I32 optype, OP* head, OP* tail));
  2778.   void    push_return _((OP* op));
  2779.   void    push_scope _((void));
  2780. ! regexp*    pregcomp _((char* exp, char* xend, PMOP* pm));
  2781.   OP*    ref _((OP* op, I32 type));
  2782.   OP*    refkids _((OP* op, I32 type));
  2783.   void    regdump _((regexp* r));
  2784. ! I32    pregexec _((regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, I32 safebase));
  2785. ! void    pregfree _((struct regexp* r));
  2786.   char*    regnext _((char* p));
  2787.   char*    regprop _((char* op));
  2788.   void    repeatcpy _((char* to, char* from, I32 len, I32 count));
  2789. Index: regcomp.c
  2790. *** perl5.001l/regcomp.c    Wed Jan 25 20:08:43 1995
  2791. --- perl5.001m/regcomp.c    Thu Jun 22 10:31:19 1995
  2792. ***************
  2793. *** 14,22 ****
  2794.    * blame Henry for some of the lack of readability.
  2795.    */
  2796.   
  2797.   /*SUPPRESS 112*/
  2798.   /*
  2799. !  * regcomp and regexec -- regsub and regerror are not used in perl
  2800.    *
  2801.    *    Copyright (c) 1986 by University of Toronto.
  2802.    *    Written by Henry Spencer.  Not derived from licensed software.
  2803. --- 14,27 ----
  2804.    * blame Henry for some of the lack of readability.
  2805.    */
  2806.   
  2807. + /* The names of the functions have been changed from regcomp and
  2808. +  * regexec to  pregcomp and pregexec in order to avoid conflicts
  2809. +  * with the POSIX routines of the same names.
  2810. + */
  2811. + 
  2812.   /*SUPPRESS 112*/
  2813.   /*
  2814. !  * pregcomp and pregexec -- regsub and regerror are not used in perl
  2815.    *
  2816.    *    Copyright (c) 1986 by University of Toronto.
  2817.    *    Written by Henry Spencer.  Not derived from licensed software.
  2818. ***************
  2819. *** 88,94 ****
  2820.   #define TRYAGAIN    0x8    /* Weeded out a declaration. */
  2821.   
  2822.   /*
  2823. !  * Forward declarations for regcomp()'s friends.
  2824.    */
  2825.   
  2826.   static char *reg _((I32, I32 *));
  2827. --- 93,99 ----
  2828.   #define TRYAGAIN    0x8    /* Weeded out a declaration. */
  2829.   
  2830.   /*
  2831. !  * Forward declarations for pregcomp()'s friends.
  2832.    */
  2833.   
  2834.   static char *reg _((I32, I32 *));
  2835. ***************
  2836. *** 107,113 ****
  2837.   static char* nextchar _((void));
  2838.   
  2839.   /*
  2840. !  - regcomp - compile a regular expression into internal code
  2841.    *
  2842.    * We can't allocate space until we know how big the compiled form will be,
  2843.    * but we can't compile it (and thus know how big it is) until we've got a
  2844. --- 112,118 ----
  2845.   static char* nextchar _((void));
  2846.   
  2847.   /*
  2848. !  - pregcomp - compile a regular expression into internal code
  2849.    *
  2850.    * We can't allocate space until we know how big the compiled form will be,
  2851.    * but we can't compile it (and thus know how big it is) until we've got a
  2852. ***************
  2853. *** 122,128 ****
  2854.    * of the structure of the compiled regexp.  [I'll say.]
  2855.    */
  2856.   regexp *
  2857. ! regcomp(exp,xend,pm)
  2858.   char* exp;
  2859.   char* xend;
  2860.   PMOP* pm;
  2861. --- 127,133 ----
  2862.    * of the structure of the compiled regexp.  [I'll say.]
  2863.    */
  2864.   regexp *
  2865. ! pregcomp(exp,xend,pm)
  2866.   char* exp;
  2867.   char* xend;
  2868.   PMOP* pm;
  2869. ***************
  2870. *** 1608,1614 ****
  2871.   #endif /* DEBUGGING */
  2872.   
  2873.   void
  2874. ! regfree(r)
  2875.   struct regexp *r;
  2876.   {
  2877.       if (!r)
  2878. --- 1613,1619 ----
  2879.   #endif /* DEBUGGING */
  2880.   
  2881.   void
  2882. ! pregfree(r)
  2883.   struct regexp *r;
  2884.   {
  2885.       if (!r)
  2886. Index: regcomp.h
  2887. *** perl5.001l/regcomp.h    Tue Oct 18 12:22:47 1994
  2888. --- perl5.001m/regcomp.h    Thu Jun 22 10:28:03 1995
  2889. ***************
  2890. *** 16,25 ****
  2891.    * Regstart and reganch permit very fast decisions on suitable starting points
  2892.    * for a match, cutting down the work a lot.  Regmust permits fast rejection
  2893.    * of lines that cannot possibly match.  The regmust tests are costly enough
  2894. !  * that regcomp() supplies a regmust only if the r.e. contains something
  2895.    * potentially expensive (at present, the only such thing detected is * or +
  2896.    * at the start of the r.e., which can involve a lot of backup).  Regmlen is
  2897. !  * supplied because the test in regexec() needs it and regcomp() is computing
  2898.    * it anyway.
  2899.    * [regmust is now supplied always.  The tests that use regmust have a
  2900.    * heuristic that disables the test if it usually matches.]
  2901. --- 16,25 ----
  2902.    * Regstart and reganch permit very fast decisions on suitable starting points
  2903.    * for a match, cutting down the work a lot.  Regmust permits fast rejection
  2904.    * of lines that cannot possibly match.  The regmust tests are costly enough
  2905. !  * that pregcomp() supplies a regmust only if the r.e. contains something
  2906.    * potentially expensive (at present, the only such thing detected is * or +
  2907.    * at the start of the r.e., which can involve a lot of backup).  Regmlen is
  2908. !  * supplied because the test in pregexec() needs it and pregcomp() is computing
  2909.    * it anyway.
  2910.    * [regmust is now supplied always.  The tests that use regmust have a
  2911.    * heuristic that disables the test if it usually matches.]
  2912. Index: regexec.c
  2913. *** perl5.001l/regexec.c    Sat Feb 11 19:19:56 1995
  2914. --- perl5.001m/regexec.c    Thu Jun 22 10:31:16 1995
  2915. ***************
  2916. *** 14,22 ****
  2917.    * blame Henry for some of the lack of readability.
  2918.    */
  2919.   
  2920.   /*SUPPRESS 112*/
  2921.   /*
  2922. !  * regcomp and regexec -- regsub and regerror are not used in perl
  2923.    *
  2924.    *    Copyright (c) 1986 by University of Toronto.
  2925.    *    Written by Henry Spencer.  Not derived from licensed software.
  2926. --- 14,27 ----
  2927.    * blame Henry for some of the lack of readability.
  2928.    */
  2929.   
  2930. + /* The names of the functions have been changed from regcomp and
  2931. +  * regexec to  pregcomp and pregexec in order to avoid conflicts
  2932. +  * with the POSIX routines of the same names.
  2933. + */
  2934. + 
  2935.   /*SUPPRESS 112*/
  2936.   /*
  2937. !  * pregcomp and pregexec -- regsub and regerror are not used in perl
  2938.    *
  2939.    *    Copyright (c) 1986 by University of Toronto.
  2940.    *    Written by Henry Spencer.  Not derived from licensed software.
  2941. ***************
  2942. *** 132,138 ****
  2943.   #define regcpblow(cp) leave_scope(cp)
  2944.   
  2945.   /*
  2946. !  * regexec and friends
  2947.    */
  2948.   
  2949.   /*
  2950. --- 137,143 ----
  2951.   #define regcpblow(cp) leave_scope(cp)
  2952.   
  2953.   /*
  2954. !  * pregexec and friends
  2955.    */
  2956.   
  2957.   /*
  2958. ***************
  2959. *** 144,153 ****
  2960.   static I32 regtry _((regexp *prog, char *startpos));
  2961.   
  2962.   /*
  2963. !  - regexec - match a regexp against a string
  2964.    */
  2965.   I32
  2966. ! regexec(prog, stringarg, strend, strbeg, minend, screamer, safebase)
  2967.   register regexp *prog;
  2968.   char *stringarg;
  2969.   register char *strend;    /* pointer to null at end of string */
  2970. --- 149,158 ----
  2971.   static I32 regtry _((regexp *prog, char *startpos));
  2972.   
  2973.   /*
  2974. !  - pregexec - match a regexp against a string
  2975.    */
  2976.   I32
  2977. ! pregexec(prog, stringarg, strend, strbeg, minend, screamer, safebase)
  2978.   register regexp *prog;
  2979.   char *stringarg;
  2980.   register char *strend;    /* pointer to null at end of string */
  2981. Index: toke.c
  2982. *** perl5.001l/toke.c    Tue Jun  6 15:06:31 1995
  2983. --- perl5.001m/toke.c    Wed Jun 21 12:10:18 1995
  2984. ***************
  2985. *** 1018,1024 ****
  2986.       IoDIRP(datasv) = (DIR*)funcp; /* stash funcp into spare field */
  2987.       if (filter_debug)
  2988.       warn("filter_add func %lx (%s)", funcp, SvPV(datasv,na));
  2989. !     av_push(rsfp_filters, datasv);
  2990.       return(datasv);
  2991.   }
  2992.    
  2993. --- 1018,1025 ----
  2994.       IoDIRP(datasv) = (DIR*)funcp; /* stash funcp into spare field */
  2995.       if (filter_debug)
  2996.       warn("filter_add func %lx (%s)", funcp, SvPV(datasv,na));
  2997. !     av_unshift(rsfp_filters, 1);
  2998. !     av_store(rsfp_filters, 0, datasv) ;
  2999.       return(datasv);
  3000.   }
  3001.    
  3002. ***************
  3003. *** 1033,1040 ****
  3004.       if (!rsfp_filters || AvFILL(rsfp_filters)<0)
  3005.       return;
  3006.       /* if filter is on top of stack (usual case) just pop it off */
  3007. !     if (IoDIRP(FILTER_DATA(AvFILL(rsfp_filters))) == (void*)funcp){
  3008. !     sv_free(av_pop(rsfp_filters));
  3009.           return;
  3010.       }
  3011.       /* we need to search for the correct entry and clear it    */
  3012. --- 1034,1043 ----
  3013.       if (!rsfp_filters || AvFILL(rsfp_filters)<0)
  3014.       return;
  3015.       /* if filter is on top of stack (usual case) just pop it off */
  3016. !     if (IoDIRP(FILTER_DATA(0)) == (void*)funcp){
  3017. !     /* sv_free(av_pop(rsfp_filters)); */
  3018. !     sv_free(av_shift(rsfp_filters));
  3019. ! 
  3020.           return;
  3021.       }
  3022.       /* we need to search for the correct entry and clear it    */
  3023. ***************
  3024. *** 1051,1062 ****
  3025.   {
  3026.       filter_t funcp;
  3027.       SV *datasv = NULL;
  3028.       if (!rsfp_filters)
  3029.       return -1;
  3030.       if (idx > AvFILL(rsfp_filters)){       /* Any more filters?    */
  3031.       /* Provide a default input filter to make life easy.    */
  3032.       /* Note that we append to the line. This is handy.    */
  3033. -     /* We ignore maxlen here                */
  3034.       if (filter_debug)
  3035.           warn("filter_read %d: from rsfp\n", idx);
  3036.       if (maxlen) { 
  3037. --- 1054,1065 ----
  3038.   {
  3039.       filter_t funcp;
  3040.       SV *datasv = NULL;
  3041. + 
  3042.       if (!rsfp_filters)
  3043.       return -1;
  3044.       if (idx > AvFILL(rsfp_filters)){       /* Any more filters?    */
  3045.       /* Provide a default input filter to make life easy.    */
  3046.       /* Note that we append to the line. This is handy.    */
  3047.       if (filter_debug)
  3048.           warn("filter_read %d: from rsfp\n", idx);
  3049.       if (maxlen) { 
  3050. ***************
  3051. *** 2417,2428 ****
  3052.           TERM(THING);
  3053.       }
  3054.   
  3055.       case KEY___END__: {
  3056.           GV *gv;
  3057.   
  3058.           /*SUPPRESS 560*/
  3059. !         if (!in_eval) {
  3060. !         gv = gv_fetchpv("main::DATA",TRUE, SVt_PVIO);
  3061.           SvMULTI_on(gv);
  3062.           if (!GvIO(gv))
  3063.               GvIOp(gv) = newIO();
  3064. --- 2420,2437 ----
  3065.           TERM(THING);
  3066.       }
  3067.   
  3068. +     case KEY___DATA__:
  3069.       case KEY___END__: {
  3070.           GV *gv;
  3071.   
  3072.           /*SUPPRESS 560*/
  3073. !         if (!in_eval || tokenbuf[2] == 'D') {
  3074. !         char dname[256];
  3075. !         char *pname = "main";
  3076. !         if (tokenbuf[2] == 'D')
  3077. !             pname = HvNAME(curstash ? curstash : defstash);
  3078. !         sprintf(dname,"%s::DATA", pname);
  3079. !         gv = gv_fetchpv(dname,TRUE, SVt_PVIO);
  3080.           SvMULTI_on(gv);
  3081.           if (!GvIO(gv))
  3082.               GvIOp(gv) = newIO();
  3083. ***************
  3084. *** 3308,3313 ****
  3085. --- 3317,3323 ----
  3086.       if (d[1] == '_') {
  3087.           if (strEQ(d,"__LINE__"))        return -KEY___LINE__;
  3088.           if (strEQ(d,"__FILE__"))        return -KEY___FILE__;
  3089. +         if (strEQ(d,"__DATA__"))        return KEY___DATA__;
  3090.           if (strEQ(d,"__END__"))        return KEY___END__;
  3091.       }
  3092.       break;
  3093. Index: x2p/util.c
  3094. *** perl5.001l/x2p/util.c    Wed Feb 22 14:37:22 1995
  3095. --- perl5.001m/x2p/util.c    Wed Jun 21 12:16:17 1995
  3096. ***************
  3097. *** 190,196 ****
  3098.   }
  3099.   
  3100.   /*VARARGS1*/
  3101. ! int
  3102.   croak(pat,a1,a2,a3,a4)
  3103.   char *pat;
  3104.   int a1,a2,a3,a4;
  3105. --- 190,196 ----
  3106.   }
  3107.   
  3108.   /*VARARGS1*/
  3109. ! void
  3110.   croak(pat,a1,a2,a3,a4)
  3111.   char *pat;
  3112.   int a1,a2,a3,a4;
  3113. ***************
  3114. *** 200,206 ****
  3115.   }
  3116.   
  3117.   /*VARARGS1*/
  3118. ! int
  3119.   fatal(pat,a1,a2,a3,a4)
  3120.   char *pat;
  3121.   int a1,a2,a3,a4;
  3122. --- 200,206 ----
  3123.   }
  3124.   
  3125.   /*VARARGS1*/
  3126. ! void
  3127.   fatal(pat,a1,a2,a3,a4)
  3128.   char *pat;
  3129.   int a1,a2,a3,a4;
  3130. Index: x2p/util.h
  3131. *** perl5.001l/x2p/util.h    Wed Feb 22 14:37:24 1995
  3132. --- perl5.001m/x2p/util.h    Wed Jun 21 12:16:16 1995
  3133. ***************
  3134. *** 24,33 ****
  3135.   
  3136.   char * cpy2 _(( char *to, char *from, int delim ));
  3137.   char * cpytill _(( char *to, char *from, int delim ));
  3138. ! int croak _(( char *pat, int a1, int a2, int a3, int a4 ));
  3139.   void growstr _(( char **strptr, int *curlen, int newlen ));
  3140.   char * instr _(( char *big, char *little ));
  3141. ! int Myfatal ();
  3142.   char * safecpy _(( char *to, char *from, int len ));
  3143.   char * savestr _(( char *str ));
  3144.   void warn ();
  3145. --- 24,33 ----
  3146.   
  3147.   char * cpy2 _(( char *to, char *from, int delim ));
  3148.   char * cpytill _(( char *to, char *from, int delim ));
  3149. ! void croak _(( char *pat, int a1, int a2, int a3, int a4 ));
  3150.   void growstr _(( char **strptr, int *curlen, int newlen ));
  3151.   char * instr _(( char *big, char *little ));
  3152. ! void Myfatal ();
  3153.   char * safecpy _(( char *to, char *from, int len ));
  3154.   char * savestr _(( char *str ));
  3155.   void warn ();
  3156.  
  3157.  
  3158. End of patch.
  3159.  
  3160.