summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--Changes2986
-rwxr-xr-xConfigure2
-rw-r--r--MAINTAIN5
-rw-r--r--MANIFEST5
-rw-r--r--Makefile.SH4
-rw-r--r--Makefile.micro125
-rw-r--r--README.micro9
-rw-r--r--Todo.micro9
-rw-r--r--config_h.SH28
-rw-r--r--doop.c4
-rw-r--r--emacs/cperl-mode.el1017
-rwxr-xr-xembed.pl3
-rw-r--r--ext/POSIX/POSIX.xs4
-rw-r--r--mg.c2
-rw-r--r--op.c7
-rw-r--r--perl.c4
-rw-r--r--perl.h21
-rw-r--r--perlapi.c3
-rw-r--r--perlio.c6
-rw-r--r--pod/perlapi.pod10
-rw-r--r--pod/perldiag.pod6
-rw-r--r--pod/perlsyn.pod4
-rw-r--r--pp_hot.c2
-rw-r--r--pp_sys.c6
-rw-r--r--toke.c2
-rw-r--r--uconfig.h3129
-rwxr-xr-xuconfig.sh550
-rw-r--r--unixish.h4
-rw-r--r--utf8.c2
-rw-r--r--util.c26
-rw-r--r--vms/descrip_mms.template8
-rw-r--r--vms/vms.c94
-rw-r--r--vms/vmsish.h118
33 files changed, 7779 insertions, 426 deletions
diff --git a/Changes b/Changes
index 39325fe2ff..5269456dcf 100644
--- a/Changes
+++ b/Changes
@@ -91,3 +91,2989 @@ indicator:
--------------
Version v5.7.0 Development release working toward v5.8
--------------
+
+____________________________________________________________________________
+[ 6342] By: jhi on 2000/07/11 16:05:48
+ Log: Subject: [ID 20000710.002] fatal error or memory loss when deleting symbols in evaled code with syntax errors
+ To: perl5-porters@perl.org
+ From: Karsten Sperling <spiff@phreax.net>
+ Date: Mon, 10 Jul 2000 15:12:52 +0200
+ Message-Id: <200007101315.e6ADFrg21041@chthon.perl.com>
+ Branch: cfgperl
+ ! lib/Symbol.pm
+____________________________________________________________________________
+[ 6341] By: jhi on 2000/07/11 15:59:23
+ Log: Subject: Re: [ID 20000704.002] [PATCH] memory leak with debug / anon subs
+ From: "M.J.T. Guy" <mjtg@cus.cam.ac.uk>
+ Message-Id: <E13AbRE-00009T-00@libra.cus.cam.ac.uk>
+ Date: Fri, 07 Jul 2000 17:57:16 +0100
+ Branch: cfgperl
+ ! pp_hot.c
+____________________________________________________________________________
+[ 6340] By: jhi on 2000/07/11 15:55:47
+ Log: Subject: Re: format bug report [Patch]
+ From: "H.Merijn Brand" <h.m.brand@hccnet.nl>
+ Date: Wed, 05 Jul 2000 13:12:52 +0200
+ Message-Id: <20000705130745.67BF.H.M.BRAND@hccnet.nl>
+
+ Subject: Re: format bug report [Patch]
+ From: "H.Merijn Brand" <h.m.brand@hccnet.nl>
+ Date: Wed, 05 Jul 2000 14:10:01 +0200
+ Message-Id: <20000705140837.73C2.H.M.BRAND@hccnet.nl>
+ Branch: cfgperl
+ ! t/op/write.t toke.c
+____________________________________________________________________________
+[ 6339] By: jhi on 2000/07/11 13:54:09
+ Log: Be less forgiving about ambiguous and illegal tr ranges.
+ Subject: Re: [ID 20000703.001] tr/// operator understands multiple hyphens in a bizarre way
+ From: Mark-Jason Dominus <mjd@plover.com>
+ Date: Tue, 04 Jul 2000 10:00:12 -0400
+ Message-ID: <20000704140012.17772.qmail@plover.com>
+
+ Subject: Re: [ID 20000703.001] tr/// operator understands multiple hyphens in a bizarre way
+ From: Mark-Jason Dominus <mjd@plover.com>
+ Date: Wed, 05 Jul 2000 09:37:36 -0400
+ Message-ID: <20000705133736.27293.qmail@plover.com>
+ Branch: cfgperl
+ ! pod/perldelta.pod pod/perldiag.pod t/op/tr.t toke.c
+____________________________________________________________________________
+[ 6338] By: jhi on 2000/07/11 13:31:24
+ Log: Subject: [PATCH] Re: "%#p" format specifier: document and test or not?
+ From: "M.J.T. Guy" <mjtg@cus.cam.ac.uk>
+ Date: Tue, 11 Jul 2000 13:50:51 +0100
+ Message-Id: <E13BzUx-00033c-00@libra.cus.cam.ac.uk>
+ Branch: cfgperl
+ ! sv.c
+____________________________________________________________________________
+[ 6337] By: jhi on 2000/07/11 13:29:14
+ Log: Subject: [PATCH] [ID 20000701.002] Regular Expressions Not Unsetting $1 Vars When Backtracking
+ From: Hugo <hv@crypt.compulink.co.uk>
+ Date: Tue, 11 Jul 2000 12:44:50 +0100
+ Message-Id: <200007111144.MAA04446@crypt.compulink.co.uk>
+ Branch: cfgperl
+ ! regexec.c t/op/re_tests
+____________________________________________________________________________
+[ 6336] By: jhi on 2000/07/11 13:26:47
+ Log: Subject: [PATCH cfgperl] $& segfaults if you trick it
+ From: simon@brecon.co.uk (Simon Cozens)
+ Date: 7 Jul 2000 11:26:09 GMT
+ Message-ID: <slrn8mbfif.ead.simon@justanother.perlhacker.org>
+ Branch: cfgperl
+ ! mg.c
+____________________________________________________________________________
+[ 6335] By: jhi on 2000/07/11 13:23:37
+ Log: Subject: [ID 20000705.002] problem with perl 5.6.0 on NetBSD/sparc
+ From: Hubert Feyrer <feyrer@rfhs8012.fh-regensburg.de>
+ Date: Wed, 5 Jul 2000 14:56:43 +0200 (MET DST)
+ Message-Id: <Pine.GSO.4.10.10007051452330.29215-100000@rfhpc8320.fh-regensburg.de>
+ Branch: cfgperl
+ + ext/DynaLoader/hints/netbsd.pl
+ ! MANIFEST ext/DynaLoader/hints/openbsd.pl
+____________________________________________________________________________
+[ 6334] By: jhi on 2000/07/11 13:20:38
+ Log: Subject: PATCH perlguts.pod: Document D and d magic types
+ From: mjd@plover.com
+ Date: 5 Jul 2000 18:01:51 -0000
+ Message-ID: <20000705180151.29413.qmail@plover.com>
+ Branch: cfgperl
+ ! pod/perlguts.pod
+____________________________________________________________________________
+[ 6333] By: jhi on 2000/07/11 13:15:51
+ Log: Precedence goof, fix based on
+ Subject: [PATCH 5.6.0] op/taint.t continues on failed shmget()
+ From: Hugo <hv@crypt.compulink.co.uk>
+ Date: Tue, 11 Jul 2000 12:52:38 +0100
+ Message-Id: <200007111152.MAA05488@crypt.compulink.co.uk>
+ Branch: cfgperl
+ ! t/op/taint.t
+____________________________________________________________________________
+[ 6332] By: jhi on 2000/07/11 12:40:17
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> win32/win32sck.c
+____________________________________________________________________________
+[ 6331] By: jhi on 2000/07/10 20:14:16
+ Log: Sprinkle ldlibpath.
+ Branch: cfgperl
+ ! pod/Makefile.SH
+____________________________________________________________________________
+[ 6330] By: jhi on 2000/07/10 17:54:49
+ Log: More POSIX.pod tweaks.
+ Branch: cfgperl
+ ! ext/POSIX/POSIX.pod
+____________________________________________________________________________
+[ 6329] By: jhi on 2000/07/10 14:02:12
+ Log: Reorder perl.pod once more.
+ Branch: cfgperl
+ ! pod/buildtoc.PL pod/perl.pod pod/perltoc.pod
+____________________________________________________________________________
+[ 6328] By: gsar on 2000/07/10 07:06:00
+ Log: accept() leaks memory on windows due to incorrect ordering of
+ closesocket() and fclose() calls
+ Branch: perl
+ ! win32/win32sck.c
+____________________________________________________________________________
+[ 6327] By: gsar on 2000/07/10 06:49:17
+ Log: winsock options weren't being set in all threads under ithreads
+ (caused send()s from second and subsequent threads to fail)
+ Branch: perl
+ ! win32/win32sck.c
+____________________________________________________________________________
+[ 6326] By: jhi on 2000/07/08 02:45:40
+ Log: Fix a nit spotted by 64bit IRIX compilation: a (64-bit) pointer
+ was cast to an unsigned (32-bit) integer with wild abandon.
+ Branch: cfgperl
+ ! ext/Devel/DProf/DProf.xs
+____________________________________________________________________________
+[ 6325] By: jhi on 2000/07/07 18:50:33
+ Log: Remove perlbook, update perlfaq book listing,
+ rearrange perl.pod, regenerate perltoc.
+ Branch: cfgperl
+ - pod/perlbook.pod
+ ! MANIFEST pod/buildtoc.PL pod/perl.pod pod/perldiag.pod
+ ! pod/perlfaq2.pod pod/perltoc.pod
+____________________________________________________________________________
+[ 6324] By: jhi on 2000/07/07 14:03:40
+ Log: Fix the alignment problem in Crays ([ID 20000612.002]).
+ Branch: cfgperl
+ ! sv.h toke.c
+____________________________________________________________________________
+[ 6323] By: jhi on 2000/07/06 16:03:55
+ Log: Fix complaints of buildtoc.
+ Branch: cfgperl
+ + lib/Win32.pod
+ - pod/Win32.pod
+ ! MANIFEST pod/buildtoc.PL pod/perl.pod pod/perltoc.pod
+____________________________________________________________________________
+[ 6322] By: jhi on 2000/07/06 15:15:52
+ Log: Add =head1 NAMEs so that buildtoc is happy.
+ (The CGI::Util nit reported to Lincoln.)
+ Branch: cfgperl
+ ! ext/B/B/Stash.pm lib/CGI/Util.pm lib/warnings/register.pm
+ ! pod/perltoc.pod
+____________________________________________________________________________
+[ 6321] By: jhi on 2000/07/06 03:16:04
+ Log: Config is being used.
+ Branch: cfgperl
+ ! t/op/method.t
+____________________________________________________________________________
+[ 6320] By: jhi on 2000/07/06 03:13:13
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> lib/perl5db.pl win32/perllib.c win32/vdir.h win32/win32sck.c
+____________________________________________________________________________
+[ 6319] By: jhi on 2000/07/06 03:11:46
+ Log: Autogenerate pod/Makefile and pod/buildtoc.
+ buildtoc also checks whether the existin pods are
+ mentioned in MANIFEST and perl.pod, and vice versa.
+ (None of the thusly found discrepancies fixed yet.)
+ roffitall also needs to be autogenerated similarly but it
+ seems so badly out of date that I didn't touch it yet.
+ Branch: cfgperl
+ + pod/Makefile.SH pod/buildtoc.PL
+ - pod/Makefile pod/buildtoc
+ ! MANIFEST Makefile.SH pod/perl.pod pod/perltoc.pod
+____________________________________________________________________________
+[ 6318] By: gsar on 2000/07/05 22:10:54
+ Log: fix UNC path handling on Windows under ithreads, and chdir()
+ return value when given a non-existent directory
+ Branch: perl
+ ! win32/vdir.h
+____________________________________________________________________________
+[ 6317] By: gsar on 2000/07/05 22:08:19
+ Log: winsock cleanup never done on Windows (leads to handle leaks)
+ Branch: perl
+ ! win32/perllib.c win32/win32sck.c
+____________________________________________________________________________
+[ 6316] By: gsar on 2000/07/05 22:06:19
+ Log: some debugger output does not go to the socket when RemotePort is set
+ Branch: perl
+ ! lib/perl5db.pl
+____________________________________________________________________________
+[ 6315] By: jhi on 2000/07/05 00:25:21
+ Log: Integrate with Sarathy, preliminary fix for unicos
+ alignment problems in [ID 20000612.002] Perl problem on Cray system.
+ Branch: cfgperl
+ ! sv.h
+ !> pp_hot.c
+____________________________________________________________________________
+[ 6314] By: gsar on 2000/07/04 23:34:02
+ Log: tyop in change#6306
+ Branch: perl
+ ! pp_hot.c
+____________________________________________________________________________
+[ 6313] By: jhi on 2000/07/04 22:14:38
+ Log: Multiline string literals ENONPORTABLE.
+ Branch: cfgperl
+ ! pp_hot.c
+____________________________________________________________________________
+[ 6312] By: jhi on 2000/07/04 20:34:44
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> pod/perldelta.pod pod/perldiag.pod pp_hot.c t/lib/b.t
+ !> t/op/method.t
+____________________________________________________________________________
+[ 6311] By: jhi on 2000/07/04 20:30:56
+ Log: More POSIX.pod embellishment.
+ Branch: cfgperl
+ ! ext/POSIX/POSIX.pod
+____________________________________________________________________________
+[ 6310] By: gsar on 2000/07/04 17:28:48
+ Log: b.t fails under OS/2 (from Yitzchak Scott-Thoennes)
+ Branch: perl
+ ! t/lib/b.t
+____________________________________________________________________________
+[ 6309] By: jhi on 2000/07/04 17:22:18
+ Log: The #6308 required a little bit more.
+ Branch: cfgperl
+ ! Makefile.SH win32/Makefile
+____________________________________________________________________________
+[ 6308] By: jhi on 2000/07/04 16:35:24
+ Log: Rename lib.pm.PL to lib_pm.PL to keep the 8.3 people happy.
+ Branch: cfgperl
+ + lib/lib_pm.PL
+ - lib/lib.pm.PL
+ ! MANIFEST Makefile.SH
+____________________________________________________________________________
+[ 6307] By: jhi on 2000/07/04 16:28:58
+ Log: Win32 patches for cfgperl from Sarathy.
+ Branch: cfgperl
+ ! doio.c doop.c embed.h embed.pl global.sym gv.c makedef.pl
+ ! objXSUB.h op.c perlapi.c pp.c pp_ctl.c pp_hot.c proto.h
+ ! thread.h toke.c util.c win32/Makefile win32/win32.c
+____________________________________________________________________________
+[ 6306] By: gsar on 2000/07/04 16:28:40
+ Log: better diagnostic on Frob->stuff() when Frob:: doesn't exist
+ (from Richard Soderberg <rs@oregonnet.com>)
+ Branch: perl
+ ! pod/perldelta.pod pod/perldiag.pod pp_hot.c t/op/method.t
+____________________________________________________________________________
+[ 6305] By: jhi on 2000/07/04 16:24:24
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> embed.h embed.pl global.sym lib/File/Spec/Mac.pm
+ !> lib/File/Spec/Unix.pm lib/File/Spec/VMS.pm
+ !> lib/File/Spec/Win32.pm objXSUB.h perlapi.c pod/perldiag.pod
+ !> proto.h win32/win32.c
+____________________________________________________________________________
+[ 6304] By: gsar on 2000/07/04 16:17:24
+ Log: missing perldiag entry for unpack("w",...) diagnostic (from
+ Andreas Koenig)
+ Branch: perl
+ ! pod/perldiag.pod
+____________________________________________________________________________
+[ 6303] By: gsar on 2000/07/04 16:14:44
+ Log: remove rel2abs prototypes (from Barrie Slaymaker)
+ Branch: perl
+ ! lib/File/Spec/Mac.pm lib/File/Spec/Unix.pm
+ ! lib/File/Spec/VMS.pm lib/File/Spec/Win32.pm
+____________________________________________________________________________
+[ 6302] By: gsar on 2000/07/04 04:59:35
+ Log: adjust change#6299
+ Branch: perl
+ ! embed.h embed.pl global.sym objXSUB.h perlapi.c proto.h
+ ! win32/win32.c
+____________________________________________________________________________
+[ 6301] By: jhi on 2000/07/04 04:50:07
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> embed.h embed.pl embedvar.h global.sym hv.c intrpvar.h
+ !> makedef.pl objXSUB.h perl.c perl.h perlapi.c perlapi.h
+ !> pp_hot.c proto.h sv.c t/io/argv.t win32/win32.c
+____________________________________________________________________________
+[ 6300] By: gsar on 2000/07/04 04:42:09
+ Log: PERL_OBJECT build tweak
+ Branch: perl
+ ! perl.h
+____________________________________________________________________________
+[ 6299] By: gsar on 2000/07/04 04:37:00
+ Log: fix memory leak on Windows (PL_sys_intern contents were never
+ freed)
+ Branch: perl
+ ! embed.h embed.pl global.sym makedef.pl objXSUB.h perl.c
+ ! perlapi.c proto.h win32/win32.c
+____________________________________________________________________________
+[ 6298] By: gsar on 2000/07/04 04:15:59
+ Log: fix large memory leak that has been around for ever, masked by
+ -DPURIFY (most of the arenas were never freed!)
+ Branch: perl
+ ! embedvar.h global.sym hv.c intrpvar.h perl.c perlapi.h sv.c
+____________________________________________________________________________
+[ 6297] By: gsar on 2000/07/04 04:07:46
+ Log: fix ~320 byte memory leak (psig_{ptr,name} tables were never freed)
+ Branch: perl
+ ! perl.c
+____________________________________________________________________________
+[ 6296] By: jhi on 2000/06/30 18:28:37
+ Log: Elaborate POSIX.pod. Still needs work.
+ Branch: cfgperl
+ ! ext/POSIX/POSIX.pod
+____________________________________________________________________________
+[ 6295] By: jhi on 2000/06/30 14:58:18
+ Log: Point to perlipc for more SysV IPC examples.
+ Branch: cfgperl
+ ! pod/perlfunc.pod
+____________________________________________________________________________
+[ 6294] By: gsar on 2000/06/30 14:47:45
+ Log: slurp mode fix in change#4736 still not quite right
+ Branch: perl
+ ! pp_hot.c t/io/argv.t
+____________________________________________________________________________
+[ 6293] By: jhi on 2000/06/30 12:02:55
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> cop.h pp_ctl.c pp_hot.c t/op/args.t
+____________________________________________________________________________
+[ 6292] By: jhi on 2000/06/30 12:01:11
+ Log: From: simon@brecon.co.uk (Simon Cozens)
+ Subject: UTF8 concat
+ Date: 30 Jun 2000 06:13:25 GMT
+ Message-ID: <slrn8loek5.9ai.simon@justanother.perlhacker.org>
+ Branch: cfgperl
+ ! pp_hot.c
+____________________________________________________________________________
+[ 6291] By: gsar on 2000/06/30 04:37:33
+ Log: dounwind() may cause POPSUB() to diddle the wrong PL_curpad
+ when @_ is modified, causing coredumps
+ Branch: perl
+ ! cop.h pp_ctl.c pp_hot.c t/op/args.t
+____________________________________________________________________________
+[ 6290] By: jhi on 2000/06/30 02:21:44
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> vms/vms.c vms/vmsish.h
+____________________________________________________________________________
+[ 6289] By: jhi on 2000/06/30 02:21:02
+ Log: Check VERSIONs.
+ Branch: cfgperl
+ ! lib/File/Spec/Functions.pm lib/File/Spec/Mac.pm
+ ! lib/File/Spec/OS2.pm lib/File/Spec/Unix.pm
+ ! lib/File/Spec/VMS.pm lib/File/Spec/Win32.pm
+____________________________________________________________________________
+[ 6288] By: jhi on 2000/06/30 02:18:52
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> ext/Opcode/Opcode.xs lib/File/Spec.pm
+ !> lib/File/Spec/Functions.pm lib/File/Spec/Mac.pm
+ !> lib/File/Spec/OS2.pm lib/File/Spec/Unix.pm
+ !> lib/File/Spec/VMS.pm lib/File/Spec/Win32.pm pod/perlembed.pod
+____________________________________________________________________________
+[ 6287] By: gsar on 2000/06/30 02:17:08
+ Log: integrate vmsperl changes into mainline
+ Branch: perl
+ !> vms/vms.c vms/vmsish.h
+____________________________________________________________________________
+[ 6285] By: gsar on 2000/06/30 02:05:28
+ Log: localize %INC in a Safe compartment so that use/require work
+ (many other magic globals probably need similar treatment)
+ Branch: perl
+ ! ext/Opcode/Opcode.xs
+____________________________________________________________________________
+[ 6284] By: gsar on 2000/06/30 01:54:54
+ Log: tweak perlembed for multiplicity/usethreads sanity; correct notes
+ about Windows
+ Branch: perl
+ ! pod/perlembed.pod
+____________________________________________________________________________
+[ 6283] By: jhi on 2000/06/30 01:50:10
+ Log: Subject: [PATCH bleedperl] File::Spec 0.82 beta
+ From: Barrie Slaymaker <barries@jester.slaysys.com>
+ Date: Wed, 28 Jun 2000 11:35:29 -0400
+ Message-Id: <200006281535.LAA21095@jester.slaysys.com>
+ Branch: perl
+ ! lib/File/Spec.pm lib/File/Spec/Functions.pm
+ ! lib/File/Spec/Mac.pm lib/File/Spec/OS2.pm
+ ! lib/File/Spec/Unix.pm lib/File/Spec/VMS.pm
+ ! lib/File/Spec/Win32.pm
+____________________________________________________________________________
+[ 6282] By: jhi on 2000/06/29 22:57:22
+ Log: Subject: [PATCH 5.6.0]ITHREADs for VMS
+ From: Dan Sugalski <dan@sidhe.org>
+ Date: Tue, 06 Jun 2000 11:59:50 -0400
+ Message-Id: <4.3.2.7.0.20000606115752.01c82220@24.8.96.48>
+ Branch: cfgperl
+ ! vms/vms.c
+____________________________________________________________________________
+[ 6281] By: jhi on 2000/06/29 22:52:50
+ Log: Subject: [PATCH 5.6.0] utils/h2xs.PL
+ From: "Daniel S. Lewart" <d-lewart@uiuc.edu>
+ Date: Wed, 7 Jun 2000 04:02:04 -0500
+ Message-ID: <20000607040201.A22568@staff1.cso.uiuc.edu>
+ Branch: cfgperl
+ ! utils/h2xs.PL
+____________________________________________________________________________
+[ 6280] By: jhi on 2000/06/29 22:45:47
+ Log: Subject: Re: backwards compatibility in h2xs and makemaker [PATCH]
+ From: rspier@pobox.com (Robert Spier)
+ Date: Wed, 7 Jun 2000 12:47:37 -0400 (EDT)
+ Message-ID: <14654.31913.845602.610277@rls.cx>
+ Branch: cfgperl
+ ! utils/h2xs.PL
+____________________________________________________________________________
+[ 6279] By: jhi on 2000/06/29 22:38:16
+ Log: Subject: [ID 20000602.002] [PATCH] perlsub.pod: ambiguous usage of "closure"
+ From: Tim Ayers <tayers@bridge.com>
+ Date: Thu, 08 Jun 2000 08:11:06 +0200
+ Message-id: <393F38FA.9B5F4C7D@m.dasa.de>
+ [resent by Richard Foley, Message-Id probably wrong]
+ Branch: cfgperl
+ ! pod/perlsub.pod
+____________________________________________________________________________
+[ 6278] By: jhi on 2000/06/29 22:21:45
+ Log: Subject: [ID 20000609.002] Text::Wrap::wrap does not handle multiline strings properly
+ From: "Milton L. Hankins" <mlh@swl.msd.ray.com>
+ Date: Fri, 09 Jun 2000 12:39:27 -0400
+ Message-Id: <39411DBF.A04BB1A@swl.msd.ray.com>
+ (plus update the version "number" of Text::Wrap)
+ Branch: cfgperl
+ ! lib/Text/Wrap.pm
+____________________________________________________________________________
+[ 6277] By: jhi on 2000/06/29 22:13:10
+ Log: Subject: [PATCH] Re: [ID 20000612.001] map {chop; $_} (Literals problem)
+ From: "M.J.T. Guy" <mjtg@cus.cam.ac.uk>
+ Date: Mon, 12 Jun 2000 14:55:59 +0100
+ Message-Id: <E131Uh5-0002cj-00@ursa.cus.cam.ac.uk>
+ Branch: cfgperl
+ ! pod/perlfunc.pod
+____________________________________________________________________________
+[ 6276] By: jhi on 2000/06/29 22:11:06
+ Log: Subject: [PATCH] Re: eval documentation: context
+ From: "M.J.T. Guy" <mjtg@cus.cam.ac.uk>
+ Date: Mon, 12 Jun 2000 15:07:29 +0100
+ Message-Id: <E131UsD-0002ke-00@ursa.cus.cam.ac.uk>
+ Branch: cfgperl
+ ! pod/perlfunc.pod
+____________________________________________________________________________
+[ 6275] By: jhi on 2000/06/29 21:59:46
+ Log: Subject: [PATCH] 5.6.0 lib/Pod/{Html,Man,Text}.pm
+ From: "Daniel S. Lewart" <d-lewart@uiuc.edu>
+ Date: Tue, 13 Jun 2000 02:43:48 -0500
+ Message-ID: <20000613024347.A28388@staff2.cso.uiuc.edu>
+ Branch: cfgperl
+ ! lib/Pod/Html.pm lib/Pod/Man.pm lib/Pod/Text.pm
+____________________________________________________________________________
+[ 6274] By: jhi on 2000/06/29 21:56:14
+ Log: Subject: [ID 20000614.003] 5.6.0 File/Glob.pm incompatibility
+ From: Andy Dougherty <doughera@lafayette.edu>
+ Date: Wed, 14 Jun 2000 13:33:32 -0400 (EDT)
+ Message-Id: <Pine.SOL.4.10.10006141332220.3643-100000@maxwell.phys.lafayette.edu>
+ Branch: cfgperl
+ ! ext/File/Glob/Glob.pm
+____________________________________________________________________________
+[ 6273] By: jhi on 2000/06/29 21:49:09
+ Log: Subject: [PATCH] xsub attributes
+ From: Doug MacEachern <dougm@covalent.net>
+ Date: Wed, 14 Jun 2000 15:09:22 -0700 (PDT)
+ Message-ID: <Pine.LNX.4.10.10006141456050.340-100000@mojo.covalent.net>
+ Branch: cfgperl
+ ! embed.h embed.pl embedvar.h global.sym lib/ExtUtils/xsubpp
+ ! objXSUB.h op.c perlapi.c perlapi.h proto.h
+____________________________________________________________________________
+[ 6272] By: jhi on 2000/06/29 21:41:28
+ Log: Subject: [ID 20000614.005] [patch] Tweak to Net::Ping docs
+ From: Tom Phoenix <rootbeer@redcat.com>
+ Received: (qmail 6398 invoked by uid 508); 15 Jun 2000 00:30:54 -0000
+ Date: Wed, 14 Jun 2000 17:30:37 -0700 (PDT)
+ Branch: cfgperl
+ ! lib/Net/Ping.pm
+____________________________________________________________________________
+[ 6271] By: jhi on 2000/06/29 21:36:55
+ Log: Subject: PATCH pod/perltie.pod
+ From: Ian Phillipps <Ian.Phillipps@iname.com>
+ Date: Fri, 16 Jun 2000 00:17:19 +0100
+ Message-ID: <20000616001719.A17108@homer.diplex.co.uk>
+ (only the first hunk, the second hunk had already been done
+ by some other patch)
+ Branch: cfgperl
+ ! pod/perltie.pod
+____________________________________________________________________________
+[ 6270] By: jhi on 2000/06/29 21:24:51
+ Log: Subject: PATCH (Re: [ID 20000612.004] Should regression tests fail if user doesn't build XS extensions?)
+ From: Nicholas Clark <nick@talking.bollo.cx>
+ Date: Fri, 23 Jun 2000 16:21:15 +0100
+ Message-ID: <20000623162115.A19894@Bagpuss.unfortu.net>
+ Branch: cfgperl
+ ! t/lib/anydbm.t t/lib/dprof.t t/lib/dumper-ovl.t t/lib/dumper.t
+ ! t/lib/hostname.t t/lib/ipc_sysv.t t/op/taint.t
+____________________________________________________________________________
+[ 6269] By: jhi on 2000/06/29 19:38:15
+ Log: Regen headers for #6261 (and update embed.pl for this) and #6267,
+ silence few compiler warnings.
+ Branch: cfgperl
+ ! doop.c embed.pl global.sym objXSUB.h op.c proto.h toke.c
+____________________________________________________________________________
+[ 6268] By: jhi on 2000/06/29 18:21:50
+ Log: Subject: [PATCH perl-current] Make op/sprintf.t more comprehensive
+ From: Dominic Dunlop <domo@computer.org>
+ Date: Thu, 29 Jun 2000 12:32:39 +0200
+ Message-Id: <p04320403b580cc1338db@[192.168.1.4]>
+ Branch: cfgperl
+ ! t/op/sprintf.t
+____________________________________________________________________________
+[ 6267] By: jhi on 2000/06/29 18:16:07
+ Log: Subject: Re: [PATCH] Re: Speeding up method lookups
+ From: Doug MacEachern <dougm@covalent.net>
+ Date: Sun, 18 Jun 2000 13:24:55 -0700 (PDT)
+ Message-ID: <Pine.LNX.4.10.10006181306031.397-100000@mojo.covalent.net>
+ Branch: cfgperl
+ + t/op/method2entersub.t
+ ! MANIFEST embed.pl lib/ExtUtils/Install.pm lib/File/Spec/Mac.pm
+ ! lib/File/Spec/Unix.pm lib/File/Spec/VMS.pm
+ ! lib/File/Spec/Win32.pm lib/base.pm op.c perl.h t/op/sprintf.t
+ ! xsutils.c
+____________________________________________________________________________
+[ 6266] By: jhi on 2000/06/29 15:11:15
+ Log: Subject: [PATCH 5.6.0] cygwin port
+ Message-ID: <779F20BCCE5AD31186A50008C75D997917173C@silldn_mail1.sanwaint.com>
+ From: "Fifer, Eric" <EFifer@sanwaint.com>
+ Date: Thu, 29 Jun 2000 12:58:29 +0100
+ Branch: cfgperl
+ ! cygwin/Makefile.SHs
+____________________________________________________________________________
+[ 6265] By: jhi on 2000/06/29 15:04:05
+ Log: Subject: Re: [ID 20000628.006] POSIX::STRERR_FILENO typo
+ From: sthoenna@efn.org (Yitzchak Scott-Thoennes)
+ Date: Wed, 28 Jun 2000 17:50:12 -0700
+ Message-ID: <E1pW5gzkg2kV092yn@efn.org>
+ Branch: cfgperl
+ ! ext/POSIX/POSIX.pm ext/POSIX/POSIX.pod ext/POSIX/POSIX.xs
+____________________________________________________________________________
+[ 6264] By: jhi on 2000/06/29 15:00:57
+ Log: Subject: [ID 20000628.004] Re: Problem compiling perl? [BSDI-Support-Request #71232]
+ From: Marty Lucich <marty@netcom.com>
+ Date: Wed, 28 Jun 2000 14:16:05 -0700 (PDT)
+ Message-Id: <200006282116.OAA11148@netcom.com>
+ ccdlflags update (the BSD/OS 4.1 part had already been taken
+ care of by #6141).
+ Branch: cfgperl
+ ! hints/bsdos.sh
+____________________________________________________________________________
+[ 6263] By: jhi on 2000/06/29 13:47:44
+ Log: tr fixes from Simon Cozens
+ Branch: cfgperl
+ ! doop.c
+____________________________________________________________________________
+[ 6262] By: jhi on 2000/06/28 18:46:01
+ Log: Subject: 5.6.0 Patch for EPOC
+ From: Olaf Flebbe <o.flebbe@gmx.de>
+ Date: Tue, 13 Jun 2000 22:59:29 +0200 (MEST)
+ Message-ID: <23449.960929969@www11.gmx.net>
+ Branch: cfgperl
+ ! README.epoc epoc/config.sh epoc/createpkg.pl epoc/epocish.c
+ ! epoc/epocish.h
+____________________________________________________________________________
+[ 6261] By: jhi on 2000/06/28 18:29:07
+ Log: Subject: Re: [PATCH cfgperl] BOMs away!
+ From: simon@brecon.co.uk (Simon Cozens)
+ Date: 17 Jun 2000 11:49:57 GMT
+ Message-ID: <slrn8kmpf5.8pl.simon@justanother.perlhacker.org>
+ Branch: cfgperl
+ ! pod/perldiag.pod t/comp/require.t toke.c
+____________________________________________________________________________
+[ 6260] By: jhi on 2000/06/28 17:47:16
+ Log: Subject: Re: [PATCH] pack('U',$foo) doesn't UTF8
+ From: simon@brecon.co.uk (Simon Cozens)
+ Date: 17 Jun 2000 11:56:44 GMT
+ Message-ID: <slrn8kmprs.8pl.simon@justanother.perlhacker.org>
+ pack U0, pack C0
+ Branch: cfgperl
+ ! pod/perlfunc.pod pp.c t/op/pack.t
+____________________________________________________________________________
+[ 6259] By: jhi on 2000/06/28 16:43:17
+ Log: perlnewmod was missing from MANIFEST.
+ Branch: cfgperl
+ ! MANIFEST
+____________________________________________________________________________
+[ 6258] By: jhi on 2000/06/28 15:54:30
+ Log: linenumber tweak
+ Branch: cfgperl
+ ! t/pragma/warn/regcomp
+____________________________________________________________________________
+[ 6257] By: jhi on 2000/06/28 15:50:44
+ Log: Subject: Re: [PATCH] "Constant subroutine redefined" mandatory warning
+ From: Doug MacEachern <dougm@covalent.net>
+ Date: Sun, 25 Jun 2000 12:11:28 -0700 (PDT)
+ Message-ID: <Pine.LNX.4.10.10006251209191.461-100000@mojo.covalent.net>
+ (one part of the patch had been applied earlier)
+ Branch: cfgperl
+ ! op.c sv.c t/pragma/constant.t t/pragma/warn/op
+____________________________________________________________________________
+[ 6256] By: jhi on 2000/06/28 15:40:22
+ Log: tweaks from Simon Conzes to further fix tr/// under utf8
+ Branch: cfgperl
+ ! doop.c
+____________________________________________________________________________
+[ 6255] By: jhi on 2000/06/28 15:33:45
+ Log: small thinko tweaks
+ Branch: cfgperl
+ ! lib/IPC/Open3.pm t/op/my_stash.t
+____________________________________________________________________________
+[ 6254] By: jhi on 2000/06/28 15:33:25
+ Log: Subject: tr///, help wanted.
+ From: simon@brecon.co.uk (Simon Cozens)
+ Date: 28 Jun 2000 11:29:04 GMT
+ Message-ID: <slrn8ljoc0.fbd.simon@justanother.perlhacker.org>
+ Branch: cfgperl
+ ! doop.c embed.h embed.pl embedvar.h global.sym objXSUB.h
+ ! pp_proto.h proto.h t/op/tr.t
+____________________________________________________________________________
+[ 6253] By: jhi on 2000/06/28 15:09:17
+ Log: Paranoia tweak on #6249.
+ Subject: Re: [PATCH 5.6.0 IPC/Open3.pm] Allow the use of numeric fd's
+ From: Ronald J Kimball <rjk@linguist.dartmouth.edu>
+ Date: Sun, 25 Jun 2000 23:43:12 -0400
+ Message-ID: <20000625234312.B74147@linguist.dartmouth.edu>
+ Branch: cfgperl
+ ! lib/IPC/Open3.pm
+____________________________________________________________________________
+[ 6252] By: jhi on 2000/06/28 15:01:38
+ Log: Document #6249 and #6251.
+ Branch: cfgperl
+ ! lib/Exporter.pm lib/IPC/Open3.pm
+____________________________________________________________________________
+[ 6251] By: jhi on 2000/06/28 14:50:43
+ Log: Subject: [PATCH] inline AUTOLOADed constants via Exporter.pm
+ From: Doug MacEachern <dougm@covalent.net>
+ Date: Fri, 23 Jun 2000 00:16:39 -0700 (PDT)
+ Message-ID: <Pine.LNX.4.10.10006230009400.322-100000@mojo.covalent.net>
+ Branch: cfgperl
+ ! lib/Exporter.pm
+____________________________________________________________________________
+[ 6250] By: jhi on 2000/06/28 14:45:23
+ Log: Subject: Re: [PATCH] support 'my __PACKAGE__ $obj = ...'
+ From: Doug MacEachern <dougm@covalent.net>
+ Date: Tue, 27 Jun 2000 14:17:28 -0700 (PDT)
+ Message-ID: <Pine.LNX.4.10.10006271412340.7587-100000@mojo.covalent.net>
+ Branch: cfgperl
+ + t/op/my_stash.t
+ ! MANIFEST embed.pl global.sym proto.h toke.c
+____________________________________________________________________________
+[ 6249] By: jhi on 2000/06/28 14:36:34
+ Log: Subject: Re: [PATCH 5.6.0 IPC/Open3.pm] Allow the use of numeric fd's
+ From: Frank Tobin <ftobin@uiuc.edu>
+ Date: Sun, 25 Jun 2000 19:00:58 -0500 (CDT)
+ Message-ID: <Pine.BSF.4.21.0006251855340.20487-100000@srh0902.urh.uiuc.edu>
+ Branch: cfgperl
+ ! lib/IPC/Open3.pm
+____________________________________________________________________________
+[ 6248] By: jhi on 2000/06/28 14:11:25
+ Log: Subject: DOC PATCH 5.6.0: perlfunc/sprintf does not contain an example
+ From: Mark-Jason Dominus <mjd@plover.com>
+ Date: Tue, 27 Jun 2000 22:36:42 -0400
+ Message-ID: <20000628023642.12166.qmail@plover.com>
+ Branch: cfgperl
+ ! pod/perlfunc.pod
+____________________________________________________________________________
+[ 6247] By: jhi on 2000/06/27 12:46:37
+ Log: Tweak $VERSION, patch from Doug MacEachern.
+ Branch: cfgperl
+ ! lib/File/Spec.pm
+____________________________________________________________________________
+[ 6246] By: jhi on 2000/06/27 03:34:46
+ Log: Allow for standalone testing.
+ Branch: cfgperl
+ ! t/lib/filefunc.t t/lib/filespec.t
+____________________________________________________________________________
+[ 6245] By: jhi on 2000/06/27 02:50:02
+ Log: Subject: [ID 20000624.001] PERL_DL_DEBUG=1 DynaLoader message appears to be wrong
+ From: Nicholas Clark <nick@Bagpuss.unfortu.net>
+ Date: Sat, 24 Jun 2000 13:06:20 +0100
+ Message-Id: <200006241206.NAA03771@Bagpuss.unfortu.net>
+ Branch: cfgperl
+ ! ext/DynaLoader/DynaLoader_pm.PL
+____________________________________________________________________________
+[ 6244] By: jhi on 2000/06/27 02:46:10
+ Log: Subject: [PATCH] avoid mg_ptr in '*' magic
+ From: Doug MacEachern <dougm@covalent.net>
+ Date: Sun, 25 Jun 2000 11:16:08 -0700 (PDT)
+ Message-ID: <Pine.LNX.4.10.10006251045190.461-100000@mojo.covalent.net>
+ Branch: cfgperl
+ ! gv.c sv.c t/lib/peek.t
+____________________________________________________________________________
+[ 6243] By: jhi on 2000/06/27 02:38:07
+ Log: Subject: [PATCH] is_utf8_string
+ From: simon@brecon.co.uk (Simon Cozens)
+ Date: 26 Jun 2000 02:25:59 GMT
+ Message-ID: <slrn8ldfpn.h5k.simon@justanother.perlhacker.org>
+ Branch: cfgperl
+ ! embed.h embed.pl embedvar.h global.sym objXSUB.h perlapi.c
+ ! perlapi.h pod/perlapi.pod pod/perlintern.pod pp_proto.h
+ ! proto.h utf8.c
+____________________________________________________________________________
+[ 6242] By: jhi on 2000/06/27 02:24:00
+ Log: Subject: [PATCH] bytes<->utf8 fixes
+ From: simon@brecon.co.uk (Simon Cozens)
+ Date: 26 Jun 2000 04:55:45 GMT
+ Message-ID: <slrn8ldoih.fbd.simon@justanother.perlhacker.org>
+ Branch: cfgperl
+ ! embed.pl perlapi.c pod/perlapi.pod proto.h utf8.c
+____________________________________________________________________________
+[ 6241] By: jhi on 2000/06/27 02:12:42
+ Log: Do no -warn on \_, only on \alpha.
+ Subject: New Unrecognized escape warning for /\_/ from activestate perl-current5.6.0
+ From: David Dyck <dcd@tc.fluke.com>
+ Date: Mon, 26 Jun 2000 09:32:02 -0700 (PDT)
+ Message-ID: <Pine.LNX.4.05.10006260830280.3054-100000@dd.tc.fluke.com>
+ Branch: cfgperl
+ ! regcomp.c t/pragma/warn/regcomp t/pragma/warn/toke toke.c
+____________________________________________________________________________
+[ 6240] By: jhi on 2000/06/27 02:00:01
+ Log: Subject: [ID 20000626.007] h2xs man page contains trailing garbage
+ From: Nicholas Clark <nick@Bagpuss.unfortu.net>
+ Date: Mon, 26 Jun 2000 18:40:14 +0100
+ Message-Id: <200006261740.SAA02740@Bagpuss.unfortu.net>
+ Branch: cfgperl
+ ! utils/h2xs.PL
+____________________________________________________________________________
+[ 6239] By: jhi on 2000/06/27 01:53:40
+ Log: Configure maintenance. Sever some dependency cycles,
+ separate gccversion from the cc unit,
+ address [ID 20000623.006] Configure script patch for using gcc on AIX
+ (but solve it a little bit differently),
+ unduplex some accidentally duplicated units,
+ suggest using gcc if no cc available
+ (p5p thread: "Solaris configure: counterproposal", 1999-09)
+ Branch: cfgperl
+ ! Configure Todo-5.6 config_h.SH
+ Branch: metaconfig
+ ! U/modified/Config_h.U U/modified/cc.U U/modified/cpp_stuff.U
+ ! U/modified/libs.U U/modified/models.U U/modified/usrinc.U
+ Branch: metaconfig/U/perl
+ + gccvers.U
+ ! d_getespwnam.U d_getprpwnam.U i_prot.U
+____________________________________________________________________________
+[ 6238] By: jhi on 2000/06/25 18:04:56
+ Log: Subject: [PATCH 5.6.0] XS module loading fixup for VMS
+ From: Dan Sugalski <dan@sidhe.org>
+ Date: Fri, 23 Jun 2000 17:00:00 -0400
+ Message-Id: <4.3.2.7.0.20000623165934.00c93d10@24.8.96.48>
+ Branch: cfgperl
+ ! lib/ExtUtils/MM_VMS.pm vms/vms.c
+____________________________________________________________________________
+[ 6237] By: jhi on 2000/06/25 16:36:45
+ Log: Tweak embed.pl, regen headers.
+ Branch: cfgperl
+ ! embed.h embed.pl embedvar.h ext/B/B/Asmdata.pm
+ ! ext/ByteLoader/byterun.c ext/ByteLoader/byterun.h global.sym
+ ! keywords.h lib/warnings.pm objXSUB.h opcode.h opnames.h
+ ! perlapi.c perlapi.h pod/perlapi.pod pod/perlintern.pod pp.sym
+ ! pp_proto.h proto.h regnodes.h utf8.c warnings.h
+____________________________________________________________________________
+[ 6236] By: jhi on 2000/06/25 15:26:42
+ Log: Regen headers.
+ Branch: cfgperl
+ ! embed.h embedvar.h ext/B/B/Asmdata.pm ext/ByteLoader/byterun.c
+ ! ext/ByteLoader/byterun.h global.sym keywords.h lib/warnings.pm
+ ! objXSUB.h opcode.h opnames.h perlapi.c perlapi.h
+ ! pod/perlapi.pod pod/perlintern.pod pp.sym pp_proto.h proto.h
+ ! regnodes.h warnings.h
+____________________________________________________________________________
+[ 6235] By: jhi on 2000/06/23 19:39:35
+ Log: The thread begun by
+ Subject: [ID 20000616.001] Typo on line 390 of .../hints/solaris_2.sh
+ From: Kevin.Ruscoe@ubsw.com
+ Date: Fri, 16 Jun 2000 16:38:51 +0100
+ Message-Id: <H000019b03c300d6@MHS>
+ Branch: cfgperl
+ ! hints/solaris_2.sh
+____________________________________________________________________________
+[ 6234] By: jhi on 2000/06/23 19:23:36
+ Log: Prefer C:/temp in Win32 as File::Spec->tmpdir to /tmp
+ because when run as services (Win32ese for daemons)
+ no environment variables are set and tmpdir ends up as /tmp,
+ which is ambiguous.
+
+ Subject:[ID 20000616.002] File::Spec->tmpdir broken when running as service
+ From: matt@sergeant.org
+ Date: 16 Jun 2000 16:30:43 -0000
+ Message-Id: <20000616163043.26398.qmail@mail.sergeant.org>
+ Branch: cfgperl
+ ! lib/File/Spec/Win32.pm
+____________________________________________________________________________
+[ 6233] By: jhi on 2000/06/23 19:18:58
+ Log: Subject: PATCH 5.6.0: Document OPf_SPECIAL flag in regcomp op nodes
+ From: Mark-Jason Dominus <mjd@plover.com>
+ Date: Fri, 16 Jun 2000 20:53:04 -0400
+ Message-ID: <20000617005304.8008.qmail@plover.com>
+ Branch: cfgperl
+ ! op.h
+____________________________________________________________________________
+[ 6232] By: jhi on 2000/06/23 16:10:02
+ Log: Subject: PATCH: pod/perlutil.pod - utilities packaged with the Perl distribution
+ From: simon@brecon.co.uk (Simon Cozens)
+ Date: 19 Jun 2000 15:18:27 GMT
+ Message-ID: <slrn8ksee3.cp9.simon@justanother.perlhacker.org>
+
+ plus update pod/Makefile and regenerate perltoc
+ Branch: cfgperl
+ + pod/perlutil.pod
+ ! MANIFEST Todo-5.6 pod/Makefile pod/perltoc.pod pod/roffitall
+____________________________________________________________________________
+[ 6231] By: jhi on 2000/06/23 15:19:18
+ Log: Subject: [PATCH 5.6.0] cygwin port
+ From: "Fifer, Eric" <EFifer@sanwaint.com>
+ Date: Tue, 20 Jun 2000 14:30:58 +0100
+ Message-ID: <779F20BCCE5AD31186A50008C75D9979171734@silldn_mail1.sanwaint.com>
+ Branch: cfgperl
+ ! README.cygwin lib/File/Find.pm
+____________________________________________________________________________
+[ 6230] By: jhi on 2000/06/23 14:25:21
+ Log: Upgrade to File::Spec 0.810_01 from CPAN by Barrie Slaymaker.
+ Branch: cfgperl
+ ! lib/File/Spec.pm lib/File/Spec/Functions.pm
+ ! lib/File/Spec/Mac.pm lib/File/Spec/OS2.pm
+ ! lib/File/Spec/Unix.pm lib/File/Spec/VMS.pm
+ ! lib/File/Spec/Win32.pm t/lib/filefunc.t t/lib/filespec.t
+____________________________________________________________________________
+[ 6229] By: jhi on 2000/06/23 14:13:34
+ Log: Subject: README.hpux version 0.6.1
+ Date: Tue, 20 Jun 2000 15:25:51 -0700 (PDT)
+ From: Jeff Okamoto <okamoto@xfiles.intercon.hp.com>
+ Message-Id: <200006202225.PAA26205@xfiles.intercon.hp.com>
+ Branch: cfgperl
+ ! README.hpux
+____________________________________________________________________________
+[ 6228] By: jhi on 2000/06/23 14:07:20
+ Log: Subject: [PATCH] "Constant subroutine redefined" mandatory warning
+ From: Doug MacEachern <dougm@covalent.net>
+ Date: Tue, 20 Jun 2000 21:23:56 -0700 (PDT)
+ Message-ID: <Pine.LNX.4.10.10006202116340.321-100000@mojo.covalent.net>
+ Branch: cfgperl
+ ! op.c
+____________________________________________________________________________
+[ 6227] By: jhi on 2000/06/23 14:01:06
+ Log: Subject: [PATCH] lib.pm -> lib.pm.PL
+ From: Doug MacEachern <dougm@covalent.net>
+ Date: Tue, 20 Jun 2000 22:14:41 -0700 (PDT)
+ Message-ID: <Pine.LNX.4.10.10006202208210.321-100000@mojo.covalent.net>
+ Branch: cfgperl
+ + lib/lib.pm.PL
+ - lib/lib.pm
+ ! MANIFEST Makefile.SH
+____________________________________________________________________________
+[ 6226] By: jhi on 2000/06/23 13:53:07
+ Log: Subject: [PATCH] remove forward declarations in Socket.pm
+ From: Doug MacEachern <dougm@covalent.net>
+ Date: Tue, 20 Jun 2000 21:54:12 -0700 (PDT)
+ Message-ID: <Pine.LNX.4.10.10006202149190.321-100000@mojo.covalent.net>
+
+ From: Doug MacEachern <dougm@covalent.net>
+ Subject: Re: [PATCH] remove forward declarations in Socket.pm
+ Date: Fri, 23 Jun 2000 00:09:29 -0700 (PDT)
+ Message-ID: <Pine.LNX.4.10.10006222349440.322-100000@mojo.covalent.net>
+ Branch: cfgperl
+ ! ext/Socket/Socket.pm op.c
+____________________________________________________________________________
+[ 6225] By: jhi on 2000/06/23 13:41:52
+ Log: Add source code filenames to apidoc.
+ From: simon@brecon.co.uk (Simon Cozens)
+ Subject: [PATCH embed.pl] Source X-ref
+ Date: 22 Jun 2000 02:18:49 GMT
+ Message-ID: <slrn8l2ts8.h5k.simon@justanother.perlhacker.org>
+ Branch: cfgperl
+ ! embed.pl
+____________________________________________________________________________
+[ 6224] By: jhi on 2000/06/23 13:32:33
+ Log: A way to avoid English.pm performance hit.
+ From: root <root@jester.slaysys.com>
+ Subject: [YAPATCH English.pm] My turn to putt again
+ Date: Thu, 22 Jun 2000 20:33:58 -0400
+ Message-Id: <200006230033.UAA05960@jester.slaysys.com>
+ Branch: cfgperl
+ ! lib/English.pm t/lib/english.t
+____________________________________________________________________________
+[ 6223] By: jhi on 2000/06/23 13:27:06
+ Log: Avoid double close().
+ Subject: [PATCH] avoid double close()
+ From: Doug MacEachern <dougm@covalent.net>
+ Date: Thu, 22 Jun 2000 23:08:06 -0700 (PDT)
+ Message-ID: <Pine.LNX.4.10.10006222251260.322-100000@mojo.covalent.net>
+ Branch: cfgperl
+ ! doio.c
+____________________________________________________________________________
+[ 6222] By: jhi on 2000/06/23 13:25:54
+ Log: doc typo fix
+ Subject: [PATCH] documentation typo in lib/Pod/Usage.pm
+ From: Ian Phillipps <Ian.Phillipps@iname.com>
+ Date: Fri, 23 Jun 2000 10:40:58 +0100
+ Message-ID: <20000623104058.A22791@homer.diplex.co.uk>
+ Branch: cfgperl
+ ! lib/Pod/Usage.pm
+____________________________________________________________________________
+[ 6221] By: jhi on 2000/06/23 13:24:15
+ Log: Remove tr///CU (the feature is to be obsoleted by better interfaces).
+ From: simon@brecon.co.uk (Simon Cozens)
+ Subject: [PATCH] Eliminate tr///[CU][CU]
+ Date: 23 Jun 2000 11:05:40 GMT
+ Message-ID: <slrn8l6h44.h5k.simon@justanother.perlhacker.org>
+ Branch: cfgperl
+ ! doop.c embed.pl pod/perlop.pod toke.c utf8.c
+____________________________________________________________________________
+[ 6220] By: jhi on 2000/06/22 16:07:51
+ Log: Win32 patches from Benjamin Stuhl.
+ Branch: cfgperl
+ ! makedef.pl win32/win32.h
+____________________________________________________________________________
+[ 6219] By: jhi on 2000/06/22 16:06:34
+ Log: Bytecode patches from Benjamin Stuhl.
+ Branch: cfgperl
+ ! bytecode.pl ext/B/B/Assembler.pm ext/B/B/Bytecode.pm
+ ! ext/B/O.pm ext/B/defsubs_h.PL ext/ByteLoader/ByteLoader.pm
+ ! ext/ByteLoader/ByteLoader.xs ext/ByteLoader/bytecode.h
+____________________________________________________________________________
+[ 6218] By: jhi on 2000/06/15 23:54:16
+ Log: Bytecode patches from Benjamin Stuhl.
+ Branch: cfgperl
+ ! ext/B/B/Assembler.pm ext/B/B/Bytecode.pm
+____________________________________________________________________________
+[ 6217] By: jhi on 2000/06/09 13:38:29
+ Log: Rename the fdpid locking and integrate with Sarathy.
+ Branch: cfgperl
+ ! Configure config_h.SH doio.c embed.h embed.pl embedvar.h
+ ! global.sym gv.c intrpvar.h objXSUB.h perl.c perlapi.h pp.c
+ ! pp_ctl.c proto.h sv.h util.c util.h vmesa/vmesa.c
+ ! win32/win32.c
+ !> av.h cop.h hints/solaris_2.sh t/op/runlevel.t
+____________________________________________________________________________
+[ 6216] By: gsar on 2000/06/08 14:54:21
+ Log: be more optimal about clearing @_
+ Branch: perl
+ ! cop.h
+____________________________________________________________________________
+[ 6215] By: gsar on 2000/06/08 14:33:04
+ Log: tweak comment about @DB::args
+ Branch: perl
+ ! av.h pp_ctl.c
+____________________________________________________________________________
+[ 6214] By: gsar on 2000/06/08 13:57:54
+ Log: @_ can't have junk in it even in the non-USE_ITHREADS case because
+ caller() wants to populate @DB::args with it (causes a coredump
+ in Carp::confess())
+ Branch: perl
+ ! cop.h t/op/runlevel.t
+____________________________________________________________________________
+[ 6213] By: gsar on 2000/06/08 07:06:35
+ Log: back out change#6106 (seems problematic)
+ Branch: perl
+ ! hints/solaris_2.sh
+____________________________________________________________________________
+[ 6212] By: jhi on 2000/06/07 03:10:36
+ Log: Continuing mopup for #6204.
+ Branch: cfgperl
+ ! ext/B/defsubs_h.PL
+____________________________________________________________________________
+[ 6211] By: jhi on 2000/06/07 02:41:50
+ Log: Mopup for #6204.
+ Under the 5005 threads the t/lib/b.t for B::Deparse fails:
+ Can't locate object method "PV" via package "B::RV" at ../lib/B/Deparse.pm line 2360.
+ This is comes from const() where POK isn't on when expected.
+ Branch: cfgperl
+ ! embedvar.h ext/B/B.xs ext/B/B/Asmdata.pm
+ ! ext/ByteLoader/ByteLoader.xs ext/ByteLoader/bytecode.h
+ ! ext/ByteLoader/byterun.c ext/ByteLoader/byterun.h perlapi.c
+ ! perlapi.h pod/perlapi.pod
+____________________________________________________________________________
+[ 6210] By: jhi on 2000/06/07 01:56:29
+ Log: Mopup for #6207 and #6209.
+ Branch: cfgperl
+ ! doio.c gv.c sv.h util.c vmesa/vmesa.c win32/win32.c
+____________________________________________________________________________
+[ 6209] By: jhi on 2000/06/07 01:33:12
+ Log: Lock PL_fdpid against race conditions, based on:
+ Subject: [PATCH 5.6.0]subprocess fixup for threads
+ From: Dan Sugalski <dan@sidhe.org>
+ To: perl5-porters@perl.org
+ Date: Tue, 11 Apr 2000 17:02:32 -0400
+ Message-Id: <4.3.0.20000411170218.01d2f580@24.8.96.48>
+ Branch: cfgperl
+ ! doio.c intrpvar.h perl.c sv.h util.c vmesa/vmesa.c
+ ! win32/win32.c
+____________________________________________________________________________
+[ 6208] By: jhi on 2000/06/07 01:05:23
+ Log: Regen headers for #6207.
+ Branch: cfgperl
+ ! embed.h global.sym objXSUB.h proto.h
+____________________________________________________________________________
+[ 6207] By: jhi on 2000/06/06 23:43:13
+ Log: Subject: [PATCH 5.6.0] Threadsafe patches
+ From: Dan Sugalski <dan@sidhe.org>
+ To: perl5-porters@perl.org
+ Date: Mon, 08 May 2000 18:08:13 -0400
+ Message-Id: <4.3.1.0.20000508180729.02182de0@24.8.96.48>
+ Branch: cfgperl
+ ! embed.pl global.sym gv.c intrpvar.h perl.c pp.c pp_ctl.c
+ ! proto.h sv.h util.c
+____________________________________________________________________________
+[ 6206] By: jhi on 2000/06/06 23:21:23
+ Log: Subject: [PATCH] Eliminate $a/$b in pod
+ From: David Glasser <me@davidglasser.net>
+ To: perl5-porters@perl.org
+ Date: Mon, 29 May 2000 21:15:59 -0400
+ Message-Id: <l03130302b558bb2640ce@[209.195.241.121]>
+ Branch: cfgperl
+ ! pod/perl5004delta.pod pod/perl56delta.pod pod/perlboot.pod
+ ! pod/perlbot.pod pod/perlcall.pod pod/perldata.pod
+ ! pod/perldbmfilter.pod pod/perldiag.pod pod/perldsc.pod
+ ! pod/perlembed.pod pod/perlfaq4.pod pod/perlfaq6.pod
+ ! pod/perlfaq7.pod pod/perlfilter.pod pod/perlfunc.pod
+ ! pod/perlguts.pod pod/perllexwarn.pod pod/perllocale.pod
+ ! pod/perlobj.pod pod/perlop.pod pod/perlref.pod pod/perlsub.pod
+ ! pod/perlsyn.pod pod/perltie.pod pod/perltrap.pod
+ ! pod/perlvar.pod pod/perlxs.pod
+____________________________________________________________________________
+[ 6205] By: jhi on 2000/06/06 23:12:14
+ Log: Subject: [PATCH] Win32 improvements
+ From: "Benjamin Stuhl" <sho_pi@hotmail.com>
+ To: gsar@activestate.com, perl5-porters@perl.org
+ Date: Mon, 29 May 2000 17:22:24 PDT
+ Message-ID: <20000530002224.91142.qmail@hotmail.com>
+ (MUA had mangled many lines by wordwrapping)
+ Branch: cfgperl
+ ! utils/c2ph.PL win32/makefile.mk win32/win32.c win32/win32sck.c
+____________________________________________________________________________
+[ 6204] By: jhi on 2000/06/06 23:01:50
+ Log: Subject: [PATCH] B::Bytecode patches
+ From: "Benjamin Stuhl" <sho_pi@hotmail.com>
+ To: gsar@activestate.com, jhi@iki.fi
+ Cc: perl5-porters@perl.org
+ Message-ID: <20000602202526.48694.qmail@hotmail.com>
+ (MUA had mangled many lines by wordwrapping)
+ Branch: cfgperl
+ ! bytecode.pl ext/B/B.pm ext/B/B.xs ext/B/B/Assembler.pm
+ ! ext/B/B/Bytecode.pm ext/B/O.pm ext/B/defsubs_h.PL
+ ! ext/ByteLoader/ByteLoader.xs ext/ByteLoader/bytecode.h
+ ! intrpvar.h perl.c
+____________________________________________________________________________
+[ 6203] By: jhi on 2000/06/06 22:32:43
+ Log: Subject: [PATCH] perldiag should refer to perlos2.pod not README.os2
+ From: sthoenna@efn.org (Yitzchak Scott-Thoennes)
+ Date: Tue, 06 Jun 2000 13:07:45 -0700
+ Message-ID: <RoVP5gzkgmTL092yn@efn.org>
+ Branch: cfgperl
+ ! pod/perldiag.pod
+____________________________________________________________________________
+[ 6202] By: jhi on 2000/06/06 19:38:35
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> perl.c
+____________________________________________________________________________
+[ 6201] By: gsar on 2000/06/06 00:42:59
+ Log: Perl_eval_pv() leaks 4 bytes every time it is called because it
+ does a PUSHMARK that's never ever POPMARKed; in general, only
+ Perl_call_[sp]v() need a PUSHMARK for incoming arguments;
+ Perl_eval_[sp]v() don't because they don't take any incoming
+ arguments (this leak has been around since the original version
+ of perl_eval_pv() in 5.003_97e)
+ Branch: perl
+ ! perl.c
+____________________________________________________________________________
+[ 6200] By: jhi on 2000/06/04 03:44:52
+ Log: Update to cperl-mode.el 4.31 from
+ ftp://ftp.math.ohio-state.edu/pub/users/ilya/cperl-mode.el
+ Subject: A couple of notes
+ From: Ilya Zakharevich <ilya@math.ohio-state.edu>
+ To: Mailing list Perl5 <perl5-porters@perl.org>
+ Date: Sat, 3 Jun 2000 23:33:32 -0400
+ Message-ID: <20000603233332.A6790@monk.mps.ohio-state.edu>
+ Branch: cfgperl
+ ! emacs/cperl-mode.el
+____________________________________________________________________________
+[ 6199] By: jhi on 2000/06/03 15:11:05
+ Log: Subject: [PATCH 5.6.0]Make perl's malloc work on VMS
+ From: Dan Sugalski <dan@sidhe.org>
+ To: perl5-porters@perl.org, vmsperl@perl.org
+ Date: Fri, 02 Jun 2000 17:30:51 -0400
+ Message-Id: <4.3.2.7.0.20000602173021.01f03570@24.8.96.48>
+ Branch: cfgperl
+ ! vms/descrip_mms.template vms/gen_shrfls.pl
+____________________________________________________________________________
+[ 6198] By: jhi on 2000/06/03 14:59:15
+ Log: Subject: [PATCH 5.6.0]VMS fixups so we can build with MULTIPLICITY
+ From: Dan Sugalski <dan@sidhe.org>
+ To: vmsperl@perl.org, perl5-porters@perl.org
+ Date: Fri, 02 Jun 2000 16:00:41 -0400
+ Message-Id: <4.3.2.7.0.20000602155951.01f02b20@24.8.96.48>
+ Message-Id: <4.3.2.7.0.20000602164011.01ec8c30@24.8.96.48>
+ Branch: cfgperl
+ ! embed.h embed.pl embedvar.h ext/POSIX/POSIX.xs global.sym
+ ! objXSUB.h perlapi.c perlapi.h pod/perlapi.pod
+ ! pod/perlintern.pod proto.h vms/vms.c vms/vmsish.h
+____________________________________________________________________________
+[ 6197] By: jhi on 2000/06/03 14:41:30
+ Log: Subject: [ID 20000602.005] [PATCH]5.6.0 (DOC) tiny change to perlsyn.pod
+ From: John Borwick <jhborwic@unity.ncsu.edu>
+ Date: Fri, 2 Jun 2000 14:35:03 -0400 (EDT)
+ Message-Id: <Pine.GSO.4.21.0006021420290.11432-100000@eos00du.eos.ncsu.edu>
+ Branch: cfgperl
+ ! pod/perlsyn.pod
+____________________________________________________________________________
+[ 6196] By: jhi on 2000/06/03 14:38:09
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> cop.h embed.h embed.pl objXSUB.h op.c perl.c perlapi.c perly.c
+ !> perly_c.diff pp_ctl.c proto.h scope.c scope.h sv.c toke.c
+ !> vms/perly_c.vms
+____________________________________________________________________________
+[ 6195] By: gsar on 2000/06/02 22:43:13
+ Log: fix yet another eval"" leak under USE_ITHREADS
+ Branch: perl
+ ! op.c
+____________________________________________________________________________
+[ 6194] By: gsar on 2000/06/02 18:22:06
+ Log: fix small eval"" memory leaks under USE_ITHREADS
+ Branch: perl
+ ! cop.h embed.h embed.pl objXSUB.h op.c perl.c perlapi.c perly.c
+ ! perly_c.diff pp_ctl.c proto.h scope.c scope.h sv.c toke.c
+ ! vms/perly_c.vms
+____________________________________________________________________________
+[ 6193] By: jhi on 2000/06/01 13:03:56
+ Log: Signals-be-gone for microperl.
+ Branch: cfgperl
+ ! Todo.micro doop.c mg.c perl.c perl.h pp_sys.c util.c
+____________________________________________________________________________
+[ 6192] By: jhi on 2000/06/01 12:52:02
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ +> lib/Pod/LaTeX.pm t/lib/selfloader.t
+ !> AUTHORS MAINTAIN MANIFEST doop.c embed.pl
+ !> ext/Devel/Peek/Peek.pm handy.h lib/SelfLoader.pm perl.c
+ !> pod/perlapi.pod pod/perldata.pod pod/perlfaq6.pod
+ !> pod/perlfaq9.pod pod/perlfunc.pod pod/perllocale.pod
+ !> pod/perlre.pod pod/perltrap.pod pod/pod2latex.PL t/op/tr.t
+ !> t/op/vec.t utils/h2xs.PL
+____________________________________________________________________________
+[ 6191] By: gsar on 2000/06/01 09:38:21
+ Log: vec() loses numericalness (modified version of patch suggested
+ by Robin Barker)
+ Branch: perl
+ ! doop.c t/op/vec.t
+____________________________________________________________________________
+[ 6190] By: gsar on 2000/06/01 09:26:15
+ Log: submit missing embed.pl change
+ Branch: perl
+ ! embed.pl
+____________________________________________________________________________
+[ 6189] By: gsar on 2000/06/01 09:05:34
+ Log: counting tr/// corrupts later operation (from M.J.T Guy)
+ Branch: perl
+ ! doop.c t/op/tr.t
+____________________________________________________________________________
+[ 6188] By: gsar on 2000/06/01 08:58:39
+ Log: h2xs tweaks
+ Branch: perl
+ ! utils/h2xs.PL
+____________________________________________________________________________
+[ 6187] By: gsar on 2000/06/01 08:50:07
+ Log: replace pod2latex with the one in Pod-LaTeX v0.52 from CPAN
+ (from Tim Jenness <t.jenness@jach.hawaii.edu>)
+ Branch: perl
+ + lib/Pod/LaTeX.pm
+ ! AUTHORS MAINTAIN MANIFEST ext/Devel/Peek/Peek.pm
+ ! pod/pod2latex.PL
+____________________________________________________________________________
+[ 6186] By: gsar on 2000/06/01 08:24:40
+ Log: further qualify references to "alphanumeric" (from Wolfgang Laun
+ <wolfgang.laun@alcatel.at>)
+ Branch: perl
+ ! handy.h pod/perlapi.pod pod/perldata.pod pod/perlfaq6.pod
+ ! pod/perlfaq9.pod pod/perllocale.pod pod/perlre.pod
+____________________________________________________________________________
+[ 6185] By: gsar on 2000/06/01 08:12:00
+ Log: remove incorrect documentation about implicit split to @_ in
+ list context, which never really worked in perl 5 (from
+ M.J.T. Guy)
+ Branch: perl
+ ! pod/perlfunc.pod pod/perltrap.pod
+____________________________________________________________________________
+[ 6184] By: gsar on 2000/06/01 07:52:27
+ Log: tweak for change#6127
+ Branch: perl
+ ! perl.c
+____________________________________________________________________________
+[ 6183] By: gsar on 2000/06/01 07:41:02
+ Log: SelfLoader can lose $@ in AUTOLOAD() (from Nicholas Clark
+ <nick@ccl4.org>)
+ Branch: perl
+ + t/lib/selfloader.t
+ ! MANIFEST lib/SelfLoader.pm
+____________________________________________________________________________
+[ 6182] By: jhi on 2000/06/01 00:34:42
+ Log: Be Cleaner Part Deux.
+ Branch: cfgperl
+ ! Makefile.SH
+____________________________________________________________________________
+[ 6181] By: jhi on 2000/06/01 00:32:09
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> pp.c t/op/arith.t
+____________________________________________________________________________
+[ 6180] By: jhi on 2000/06/01 00:31:13
+ Log: microperl nits from Simon Cozens.
+ Branch: cfgperl
+ + uconfig.h
+ ! MAINTAIN MANIFEST Makefile.SH Todo.micro perl.h uconfig.sh
+ ! unixish.h
+____________________________________________________________________________
+[ 6179] By: gsar on 2000/05/31 22:37:51
+ Log: buggy modulus on UVs introduced by change#3378 (resulted in
+ 4063328477 % 65535 amounting to 27406, instead of 27407)
+ Branch: perl
+ ! pp.c t/op/arith.t
+____________________________________________________________________________
+[ 6178] By: jhi on 2000/05/31 21:52:41
+ Log: Be cleaner.
+ Branch: cfgperl
+ ! Makefile.SH
+____________________________________________________________________________
+[ 6177] By: jhi on 2000/05/31 21:47:33
+ Log: Substitution utf8 patch from Simon Cozens.
+ Branch: cfgperl
+ ! pp_hot.c
+____________________________________________________________________________
+[ 6176] By: jhi on 2000/05/31 21:45:34
+ Log: Single-quoted utf8 patch from Simon Cozens.
+ Branch: cfgperl
+ ! toke.c
+____________________________________________________________________________
+[ 6175] By: jhi on 2000/05/31 21:40:18
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> op.c regexec.c t/lib/filefind.t t/op/re_tests t/op/wantarray.t
+____________________________________________________________________________
+[ 6174] By: jhi on 2000/05/31 21:37:31
+ Log: microperl changes from Simon Cozens; Makefile for microperl
+ written from scratch; few casts added as microperl compilation
+ doesn't have all prototypes available.
+ Branch: cfgperl
+ + Makefile.micro README.micro Todo.micro uconfig.sh
+ ! Configure MAINTAIN MANIFEST config_h.SH doop.c mg.c op.c
+ ! perl.c perl.h perlio.c unixish.h utf8.c util.c
+ Branch: metaconfig
+ + U/modified/Config_h.U
+____________________________________________________________________________
+[ 6173] By: jhi on 2000/05/31 20:00:24
+ Log: metaconfig maintenance.
+ Branch: metaconfig
+ + U/modified/Inhdr.U U/typedefs/inotype.U
+ Branch: metaconfig/U/perl
+ + d_finitel.U d_getcwd.U d_llseek.U i_fp_class.U i_iconv.U
+ + i_ieeefp.U i_syslog.U i_sysrusage.U i_ulimit.U
+____________________________________________________________________________
+[ 6172] By: gsar on 2000/05/31 05:05:42
+ Log: fix buggy multiline matching of C<"a\nxb\n" =~ /(?!\A)x/m>
+ (from Ilya Zakharevich)
+ Branch: perl
+ ! regexec.c t/op/re_tests
+____________________________________________________________________________
+[ 6171] By: gsar on 2000/05/31 05:01:47
+ Log: scalar() doesn't force scalar context when used in void context
+ (from Simon Cozens)
+ Branch: perl
+ ! op.c t/op/wantarray.t
+____________________________________________________________________________
+[ 6170] By: gsar on 2000/05/31 04:41:33
+ Log: change#6142 needs tweaks to tests to work where there's no symlink()
+ (from Helmut Jarausch <jarausch@igpm.rwth-aachen.de>)
+ Branch: perl
+ ! t/lib/filefind.t
+____________________________________________________________________________
+[ 6169] By: gsar on 2000/05/31 04:29:49
+ Log: integrate cfgperl contents into mainline
+ Branch: perl
+ +> pod/perlmodlib.PL pod/perlnewmod.pod
+ !> (integrate 42 files)
+____________________________________________________________________________
+[ 6168] By: jhi on 2000/05/30 22:53:37
+ Log: Tweak NV_PRESERVES_UV*, vms/subconfigure.com left untouched.
+ Branch: cfgperl
+ ! Configure Porting/Glossary Porting/config.sh Porting/config_H
+ ! config_h.SH epoc/config.sh perl.h toke.c vms/subconfigure.com
+ ! vos/config.def vos/config.h vos/config.pl vos/config_h.SH_orig
+ ! win32/config.bc win32/config.gc win32/config.vc
+ ! win32/config_H.bc win32/config_H.gc win32/config_H.vc
+ ! win32/config_h.PL win32/config_sh.PL
+ Branch: metaconfig/U/perl
+ ! perlxv.U
+____________________________________________________________________________
+[ 6167] By: jhi on 2000/05/30 22:20:21
+ Log: tweak todo
+ Branch: cfgperl
+ ! Todo-5.6
+____________________________________________________________________________
+[ 6166] By: jhi on 2000/05/30 22:11:51
+ Log: Introduce HAS_GETESPWNAM, HAS_GETPRPWNAM, and I_PROT
+ in case somebody wants to write an extension for more
+ shadow database interfaces.
+ Branch: cfgperl
+ ! Configure Porting/Glossary Porting/config.sh Porting/config_H
+ ! config_h.SH epoc/config.sh pp_sys.c vms/subconfigure.com
+ ! vos/config.def vos/config.h vos/config_h.SH_orig
+ ! win32/config.bc win32/config.gc win32/config.vc
+ ! win32/config_H.bc win32/config_H.gc win32/config_H.vc
+ Branch: metaconfig
+ ! U/modified/Myinit.U
+ Branch: metaconfig/U/perl
+ + d_getespwnam.U d_getprpwnam.U i_prot.U
+____________________________________________________________________________
+[ 6165] By: jhi on 2000/05/30 18:35:34
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> op.c
+____________________________________________________________________________
+[ 6164] By: jhi on 2000/05/30 18:30:16
+ Log: detypo
+ Branch: cfgperl
+ ! Configure config_h.SH
+ Branch: metaconfig/U/perl
+ ! perlxv.U
+____________________________________________________________________________
+[ 6163] By: gsar on 2000/05/30 03:24:03
+ Log: fix memory leak in C<eval "BEGIN {}"> (bug in change#4579)
+ Branch: perl
+ ! op.c
+____________________________________________________________________________
+[ 6162] By: gsar on 2000/05/30 03:09:38
+ Log: fix memory leak in method call optimization (change#3768);
+ made C<eval "$x->foo()"> leak
+ Branch: perl
+ ! op.c
+____________________________________________________________________________
+[ 6161] By: jhi on 2000/05/29 17:56:26
+ Log: Add autogeneration of perlmodlib.pod and the new perlnewmod.pod,
+ both from Simon Cozens.
+ Branch: cfgperl
+ + pod/perlmodlib.PL pod/perlnewmod.pod
+ ! AUTHORS MAINTAIN MANIFEST pod/Makefile pod/perl.pod
+ ! pod/perlmodlib.pod pod/perltoc.pod
+____________________________________________________________________________
+[ 6160] By: jhi on 2000/05/29 17:23:55
+ Log: Changes for the File::Temp 0.08 (change #6159) test suite
+ to fit better into the Perl distribution test framework.
+ Branch: cfgperl
+ ! t/lib/ftmp-mktemp.t t/lib/ftmp-posix.t t/lib/ftmp-security.t
+ ! t/lib/ftmp-tempfile.t
+____________________________________________________________________________
+[ 6159] By: jhi on 2000/05/29 16:55:36
+ Log: Upgrade to File::Temp 0.08 from Tim Jenness via CPAN.
+ Branch: cfgperl
+ ! lib/File/Temp.pm t/lib/ftmp-mktemp.t t/lib/ftmp-posix.t
+ ! t/lib/ftmp-security.t t/lib/ftmp-tempfile.t
+____________________________________________________________________________
+[ 6158] By: bailey on 2000/05/29 16:22:08
+ Log: Add fallback to tmpfile for use in cases where user's relying on
+ ACLs on SYS$SCRATCH to permit file creation. (based on Charles
+ Lane's patch)
+ Branch: vmsperl
+ ! vms/vms.c vms/vmsish.h
+____________________________________________________________________________
+[ 6157] By: jhi on 2000/05/29 03:10:36
+ Log: Regen Configure to jive with #6149.
+ Branch: cfgperl
+ ! Configure
+ Branch: metaconfig
+ ! U/modified/Getfile.U
+____________________________________________________________________________
+[ 6156] By: jhi on 2000/05/29 03:01:38
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ +> ext/DynaLoader/dl_mac.xs
+ !> (integrate 38 files)
+____________________________________________________________________________
+[ 6155] By: gsar on 2000/05/28 21:15:58
+ Log: small bug in change#6144; remove random \xA0 character that snuck
+ in via change#6145
+ Branch: perl
+ ! lib/AutoSplit.pm lib/ExtUtils/xsubpp
+____________________________________________________________________________
+[ 6154] By: gsar on 2000/05/28 21:04:19
+ Log: avoid type mismatch warning
+ Branch: perl
+ ! perl.c
+____________________________________________________________________________
+[ 6153] By: gsar on 2000/05/28 20:58:31
+ Log: prettier Test::Harness output on failed tests (from Nicholas Clark
+ <nick@Bagpuss.uk.boo.com>)
+ Branch: perl
+ ! lib/Test/Harness.pm
+____________________________________________________________________________
+[ 6152] By: gsar on 2000/05/28 20:53:42
+ Log: cosmetic fixups of RE debug output (from Ilya Zakharevich)
+ Branch: perl
+ ! regexec.c
+____________________________________________________________________________
+[ 6151] By: gsar on 2000/05/28 20:50:28
+ Log: fix accidental pessimization in RE optimizer (from Ilya Zakharevich)
+ Branch: perl
+ ! regexec.c
+____________________________________________________________________________
+[ 6150] By: gsar on 2000/05/28 20:39:58
+ Log: perlrequick.pod updates (from Mark Kvale <kvale@phy.ucsf.edu>)
+ Branch: perl
+ ! pod/perlrequick.pod
+____________________________________________________________________________
+[ 6149] By: gsar on 2000/05/28 20:35:16
+ Log: OS/2 tweaks for usethreads build (from Rocco Caputo
+ <troc@netrus.net>)
+ Branch: perl
+ ! Configure hints/os2.sh makedef.pl os2/Makefile.SHs
+ ! os2/OS2/REXX/t/rx_dllld.t os2/OS2/REXX/t/rx_objcall.t
+ ! os2/OS2/REXX/t/rx_tievar.t os2/OS2/REXX/t/rx_tieydb.t
+ ! os2/os2.c os2/os2ish.h perl.c util.c x2p/a2p.h
+____________________________________________________________________________
+[ 6148] By: gsar on 2000/05/28 20:21:07
+ Log: close open file before chmod() (from Rocco Caputo <troc@netrus.net>)
+ Branch: perl
+ ! lib/ExtUtils/MM_Unix.pm
+____________________________________________________________________________
+[ 6147] By: gsar on 2000/05/28 20:12:41
+ Log: add a make entry to Config.pm so "perl -V:make" works on VMS
+ (from Peter Prymmer)
+ Branch: perl
+ ! vms/subconfigure.com
+____________________________________________________________________________
+[ 6146] By: gsar on 2000/05/28 20:06:15
+ Log: doc typo
+ Branch: perl
+ ! lib/warnings.pm warnings.h warnings.pl
+____________________________________________________________________________
+[ 6145] By: gsar on 2000/05/28 18:44:33
+ Log: make xsubpp skip embedded pod (from Matthias Neeracher
+ <neeri@iis.ee.ethz.ch>)
+ Branch: perl
+ ! lib/ExtUtils/xsubpp
+____________________________________________________________________________
+[ 6144] By: gsar on 2000/05/28 18:42:49
+ Log: MacOS support, part 2: make AutoSplit use File::Spec instead
+ of assuming Unixisms; *UNTESTED on Unix* (from Matthias Neeracher
+ <neeri@iis.ee.ethz.ch>)
+ Branch: perl
+ ! lib/AutoSplit.pm
+____________________________________________________________________________
+[ 6143] By: gsar on 2000/05/28 18:41:12
+ Log: MacOS support, part 1 (from Matthias Neeracher
+ <neeri@iis.ee.ethz.ch>)
+ Branch: perl
+ + ext/DynaLoader/dl_mac.xs
+ ! MANIFEST ext/DB_File/Makefile.PL ext/NDBM_File/Makefile.PL
+ ! ext/POSIX/POSIX.xs lib/ExtUtils/MakeMaker.pm mg.c perl.c
+ ! perlsfio.h pod/perlfaq4.pod pp_ctl.c proto.h toke.c util.c
+ ! util.h
+____________________________________________________________________________
+[ 6142] By: gsar on 2000/05/28 18:21:51
+ Log: File::Find fails to chdir when chasing symlinks (from
+ Helmut Jarausch <jarausch@igpm.rwth-aachen.de>)
+ Branch: perl
+ ! lib/File/Find.pm t/lib/filefind.t
+____________________________________________________________________________
+[ 6141] By: jhi on 2000/05/28 14:25:15
+ Log: BSD/OS (bsdi) hints update by Timur I. Bakeyev and Todd C. Miller,
+ forwarded by Peter Seebach from the bsdi-users mailing list.
+ p5p Message-Id: <200005280543.AAA24519@guild.plethora.net>
+ Branch: perl
+ ! hints/bsdos.sh
+____________________________________________________________________________
+[ 6140] By: jhi on 2000/05/28 14:11:57
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ +> (branch 30 files)
+ !> (integrate 93 files)
+____________________________________________________________________________
+[ 6139] By: gsar on 2000/05/28 10:01:48
+ Log: revise mktables.PL for bugs and newness in Unicode 3.0
+ (from James Bence <jbence@amgen.com>)
+ Branch: perl
+ + lib/unicode/Is/BidiAL.pl lib/unicode/Is/BidiBN.pl
+ + lib/unicode/Is/BidiLRE.pl lib/unicode/Is/BidiLRO.pl
+ + lib/unicode/Is/BidiNSM.pl lib/unicode/Is/BidiPDF.pl
+ + lib/unicode/Is/BidiRLE.pl lib/unicode/Is/BidiRLO.pl
+ + lib/unicode/Is/Cf.pl lib/unicode/Is/Cs.pl
+ + lib/unicode/Is/DCfraction.pl lib/unicode/Is/Me.pl
+ + lib/unicode/Is/Nl.pl lib/unicode/Is/Pc.pl lib/unicode/Is/Pf.pl
+ + lib/unicode/Is/Pi.pl lib/unicode/Is/Sk.pl
+ + lib/unicode/Is/SylAA.pl lib/unicode/Is/SylAAI.pl
+ + lib/unicode/Is/SylAI.pl lib/unicode/Is/SylEE.pl
+ + lib/unicode/Is/SylII.pl lib/unicode/Is/SylN.pl
+ + lib/unicode/Is/SylOO.pl lib/unicode/Is/SylWAA.pl
+ + lib/unicode/Is/SylWEE.pl lib/unicode/Is/SylWII.pl
+ + lib/unicode/Is/SylWO.pl lib/unicode/Is/SylWOO.pl
+ + lib/unicode/Is/SylWU.pl
+ ! MANIFEST lib/unicode/Is/Cn.pl lib/unicode/Is/Graph.pl
+ ! lib/unicode/Is/LbrkAI.pl lib/unicode/Is/LbrkAL.pl
+ ! lib/unicode/Is/LbrkB2.pl lib/unicode/Is/LbrkBA.pl
+ ! lib/unicode/Is/LbrkBB.pl lib/unicode/Is/LbrkBK.pl
+ ! lib/unicode/Is/LbrkCB.pl lib/unicode/Is/LbrkCL.pl
+ ! lib/unicode/Is/LbrkCM.pl lib/unicode/Is/LbrkCR.pl
+ ! lib/unicode/Is/LbrkEX.pl lib/unicode/Is/LbrkGL.pl
+ ! lib/unicode/Is/LbrkHY.pl lib/unicode/Is/LbrkID.pl
+ ! lib/unicode/Is/LbrkIN.pl lib/unicode/Is/LbrkIS.pl
+ ! lib/unicode/Is/LbrkLF.pl lib/unicode/Is/LbrkNS.pl
+ ! lib/unicode/Is/LbrkNU.pl lib/unicode/Is/LbrkOP.pl
+ ! lib/unicode/Is/LbrkPO.pl lib/unicode/Is/LbrkPR.pl
+ ! lib/unicode/Is/LbrkQU.pl lib/unicode/Is/LbrkSA.pl
+ ! lib/unicode/Is/LbrkSG.pl lib/unicode/Is/LbrkSP.pl
+ ! lib/unicode/Is/LbrkSY.pl lib/unicode/Is/LbrkXX.pl
+ ! lib/unicode/Is/LbrkZW.pl lib/unicode/Is/Punct.pl
+ ! lib/unicode/Is/Space.pl lib/unicode/Is/SylA.pl
+ ! lib/unicode/Is/SylC.pl lib/unicode/Is/SylE.pl
+ ! lib/unicode/Is/SylI.pl lib/unicode/Is/SylO.pl
+ ! lib/unicode/Is/SylU.pl lib/unicode/Is/SylV.pl
+ ! lib/unicode/Is/SylWA.pl lib/unicode/Is/SylWC.pl
+ ! lib/unicode/Is/SylWE.pl lib/unicode/Is/SylWI.pl
+ ! lib/unicode/Is/SylWV.pl lib/unicode/Is/Upper.pl
+ ! lib/unicode/Makefile lib/unicode/mktables.PL
+____________________________________________________________________________
+[ 6138] By: gsar on 2000/05/28 08:50:32
+ Log: add note about the handling of negative indices to tied arrays
+ (from Michael G Schwern <schwern@pobox.com>)
+ Branch: perl
+ ! pod/perltie.pod
+____________________________________________________________________________
+[ 6137] By: gsar on 2000/05/28 08:46:10
+ Log: fix bogus redeclaration warning for "our" variables in different
+ scopes
+ Branch: perl
+ ! op.c t/pragma/strict-vars
+____________________________________________________________________________
+[ 6136] By: gsar on 2000/05/28 08:31:20
+ Log: random pod typos (from Peter Scott <Peter@PSDT.com>)
+ Branch: perl
+ ! ext/Devel/Peek/Peek.pm pod/perldebguts.pod
+____________________________________________________________________________
+[ 6135] By: gsar on 2000/05/28 08:17:50
+ Log: enable Test::Harness to dynamically determine column width etc.
+ (from Rob Napier <rnapier@employees.org>)
+ Branch: perl
+ ! lib/Test/Harness.pm
+____________________________________________________________________________
+[ 6134] By: gsar on 2000/05/28 08:13:39
+ Log: make Test::Harness use wait.h/WCOREDUMP if available
+ (from Ben Tilly <ben_tilly@hotmail.com>)
+ Branch: perl
+ ! lib/Test/Harness.pm
+____________________________________________________________________________
+[ 6133] By: gsar on 2000/05/28 08:08:05
+ Log: elide bogus test in change#6132
+ Branch: perl
+ ! t/pragma/warn/9enabled
+____________________________________________________________________________
+[ 6132] By: gsar on 2000/05/28 08:03:14
+ Log: warnings::enabled() doesn't fall back to looking at $^W if
+ caller isn't using lexical warnings (from Paul Marquess)
+ Branch: perl
+ ! pp_ctl.c t/pragma/warn/9enabled
+____________________________________________________________________________
+[ 6131] By: gsar on 2000/05/28 07:57:47
+ Log: avoid warnings in POSIX.pm (from Barrie Slaymaker)
+ Branch: perl
+ ! ext/POSIX/POSIX.pm
+____________________________________________________________________________
+[ 6130] By: gsar on 2000/05/28 07:29:12
+ Log: fix places that mean C<"word" character> but say C<alphanumeric
+ character>
+ Branch: perl
+ ! pod/perlfunc.pod pod/perlre.pod pod/perlretut.pod
+____________________________________________________________________________
+[ 6129] By: gsar on 2000/05/28 07:18:41
+ Log: VMS test harness tweak (from Jesper Naur <jesper.naur@post.tele.dk>)
+ Branch: perl
+ ! vms/test.com
+____________________________________________________________________________
+[ 6128] By: gsar on 2000/05/28 07:12:55
+ Log: new perlxstut example for passing/returning refs to arrays
+ (from David Lowe <dlowe@pootpoot.com>)
+ Branch: perl
+ ! pod/perlxstut.pod
+____________________________________________________________________________
+[ 6127] By: gsar on 2000/05/28 07:02:50
+ Log: call_method(...,G_EVAL) can longjmp() out if the method probing
+ failed (from Gisle Aas)
+ Branch: perl
+ ! cop.h perl.c
+____________________________________________________________________________
+[ 6126] By: gsar on 2000/05/28 06:39:53
+ Log: change#2879 broke rvalue autovivification of magicals such as ${$num}
+ (reworked variant of patch suggested by Simon Cozens)
+ Branch: perl
+ ! embed.h embed.pl gv.c pod/perlapi.pod pod/perlintern.pod pp.c
+ ! pp_hot.c proto.h t/op/gv.t
+____________________________________________________________________________
+[ 6125] By: gsar on 2000/05/28 05:14:55
+ Log: enable propagating exception objects via Perl_croak() in XS code
+ (from Gisle Aas)
+ Branch: perl
+ ! util.c
+____________________________________________________________________________
+[ 6124] By: gsar on 2000/05/28 05:07:28
+ Log: integrate vmsperl contents into mainline
+ Branch: perl
+ !> lib/ExtUtils/MM_VMS.pm lib/File/Spec/VMS.pm t/op/lex_assign.t
+ !> vms/ext/vmsish.pm vms/ext/vmsish.t vms/test.com vms/vms.c
+ !> vms/vmsish.h
+____________________________________________________________________________
+[ 6123] By: gsar on 2000/05/28 05:03:53
+ Log: clarify gotcha with #line directives (from Rocco Caputo
+ <troc@netrus.net>)
+ Branch: perl
+ ! pod/perldebug.pod pod/perlsyn.pod
+____________________________________________________________________________
+[ 6122] By: gsar on 2000/05/28 04:58:29
+ Log: downgrade fatal error on C<"foo@nosucharray.com"> to optional warning
+ (from Mark-Jason Dominus)
+ Branch: perl
+ ! lib/ExtUtils/typemap pod/perl56delta.pod pod/perlsub.pod
+ ! pod/perltrap.pod t/base/lex.t t/pragma/strict-vars
+ ! t/pragma/strict.t t/pragma/warn/toke t/pragma/warnings.t
+ ! toke.c
+____________________________________________________________________________
+[ 6121] By: bailey on 2000/05/25 04:46:54
+ Log: Allow eliminate_macros() and fixpath() to handle space-delimited
+ lists (based on fixes by Craig Berry)
+ Branch: vmsperl
+ ! lib/File/Spec/VMS.pm
+____________________________________________________________________________
+[ 6120] By: bailey on 2000/05/25 04:25:38
+ Log: Add missing escape (Charles Lane)
+ Branch: vmsperl
+ ! t/op/lex_assign.t
+____________________________________________________________________________
+[ 6119] By: bailey on 2000/05/25 04:21:25
+ Log: Quiet error messages in vmsish.t (Charles Lane)
+ Branch: vmsperl
+ ! vms/ext/vmsish.t
+____________________________________________________________________________
+[ 6118] By: bailey on 2000/05/25 04:17:57
+ Log: Regularize distinction between RMS$_DNF and RMS$_DIR (Craig Berry)
+ Flatten case labels in switch statements uniformly (Charles Bailey)
+ Branch: vmsperl
+ ! vms/vms.c
+____________________________________________________________________________
+[ 6117] By: bailey on 2000/05/25 03:58:09
+ Log: Treat sockets as special in sys(read|write) (Charles Lane et al.)
+ Branch: vmsperl
+ ! vms/vmsish.h
+____________________________________________________________________________
+[ 6116] By: bailey on 2000/05/25 03:11:15
+ Log: Miscellaneous cosmetic fixes (Charles Lane)
+ Branch: vmsperl
+ ! lib/ExtUtils/MM_VMS.pm
+____________________________________________________________________________
+[ 6115] By: bailey on 2000/05/25 03:10:36
+ Log: Add bounds checking for several strings (Charles Lane)
+ Branch: vmsperl
+ ! vms/vms.c
+____________________________________________________________________________
+[ 6114] By: bailey on 2000/05/25 02:25:34
+ Log: Urk -- undo previous removal of vmsish 'exit' change
+ Branch: vmsperl
+ ! vms/ext/vmsish.pm vms/vmsish.h
+____________________________________________________________________________
+[ 6113] By: bailey on 2000/05/24 02:24:40
+ Log: Ugly workaround for version-specific RTL error
+ Branch: vmsperl
+ ! vms/vms.c
+____________________________________________________________________________
+[ 6112] By: bailey on 2000/05/24 02:19:55
+ Log: Check for existence of file before trying to delete
+ Branch: vmsperl
+ ! vms/test.com
+____________________________________________________________________________
+[ 6111] By: bailey on 2000/05/23 23:35:13
+ Log: Resync with mainline prior to post-5.6.0 updates
+ Branch: vmsperl
+ +> (branch 49 files)
+ - t/lib/thread.t t/op/64bit.t t/op/nothread.t
+ ! vms/ext/vmsish.pm
+ !> (integrate 334 files)
+____________________________________________________________________________
+[ 6110] By: jhi on 2000/05/23 19:28:32
+ Log: todo tweak
+ Branch: cfgperl
+ ! Todo-5.6
+____________________________________________________________________________
+[ 6109] By: jhi on 2000/05/18 17:38:54
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> mg.c perl.h win32/perlhost.h
+____________________________________________________________________________
+[ 6108] By: gsar on 2000/05/17 02:24:56
+ Log: reenable fake signal handling on Windows, bugs and all
+ Branch: perl
+ ! mg.c perl.h win32/perlhost.h
+____________________________________________________________________________
+[ 6107] By: jhi on 2000/05/15 18:01:41
+ Log: Tweak the todo list.
+ Branch: cfgperl
+ ! Todo-5.6
+____________________________________________________________________________
+[ 6106] By: jhi on 2000/05/15 13:41:48
+ Log: The (Configure) script refuses to go on, after asking for
+ 'You may also choose to try maximal 64-bitness....'.
+ If answer is yes the script can't find the 'workshoplibpth.cbu' file.
+ -- Patrick Zima
+ p5p Message-Id: <200005151108.NAA19733@pc026991.otn.lm.dasa.de>
+ Branch: cfgperl
+ ! hints/solaris_2.sh
+____________________________________________________________________________
+[ 6105] By: jhi on 2000/05/11 14:37:43
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> embed.h embed.pl global.sym makedef.pl objXSUB.h perl.c
+ !> perlapi.c pod/perlapi.pod proto.h win32/win32.c
+____________________________________________________________________________
+[ 6104] By: gsar on 2000/05/11 03:39:07
+ Log: PL_sys_intern was being initialized too late on windows
+ Branch: perl
+ ! embed.h embed.pl global.sym makedef.pl objXSUB.h perl.c
+ ! perlapi.c pod/perlapi.pod proto.h win32/win32.c
+____________________________________________________________________________
+[ 6103] By: jhi on 2000/05/09 19:42:20
+ Log: Test tweaking for Unicos continues.
+ Branch: cfgperl
+ ! t/op/64bitint.t
+____________________________________________________________________________
+[ 6102] By: jhi on 2000/05/09 16:47:27
+ Log: The test suite tweak in #6101 wasn't quite right.
+ Branch: cfgperl
+ ! t/lib/complex.t
+____________________________________________________________________________
+[ 6101] By: jhi on 2000/05/09 15:35:34
+ Log: Hints and test tweaks for Unicos.
+ Branch: cfgperl
+ ! hints/unicos.sh t/lib/b.t t/lib/complex.t t/op/64bitint.t
+____________________________________________________________________________
+[ 6100] By: jhi on 2000/05/08 21:15:06
+ Log: More compilation tweakery from Allen Smith.
+ Branch: cfgperl
+ ! hints/irix_6.sh
+____________________________________________________________________________
+[ 6099] By: jhi on 2000/05/08 19:21:18
+ Log: Tweaks for the cc bugs from Allen Smith.
+ Branch: cfgperl
+ ! hints/irix_6.sh
+____________________________________________________________________________
+[ 6098] By: jhi on 2000/05/08 19:13:37
+ Log: Add a note about other, yet unsupported, shadow password APIs.
+ Branch: cfgperl
+ ! pp_sys.c
+____________________________________________________________________________
+[ 6097] By: jhi on 2000/05/08 18:46:34
+ Log: Add a note about possible compilation problems from Allen Smith.
+ Branch: cfgperl
+ ! hints/irix_6.sh
+____________________________________________________________________________
+[ 6096] By: jhi on 2000/05/08 17:33:10
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> README.cygwin cygwin/Makefile.SHs cygwin/cygwin.c
+ !> hints/cygwin.sh pp_sys.c sv.c win32/perlhost.h
+____________________________________________________________________________
+[ 6095] By: jhi on 2000/05/08 16:21:33
+ Log: Introduce NV_PRESERVED_BITS. Not yet used anywhere but
+ might be useful in future.
+ Branch: cfgperl
+ ! Configure Porting/Glossary Porting/config.sh Porting/config_H
+ ! config_h.SH
+ Branch: metaconfig
+ ! U/installdirs/inc_version_list.U
+ Branch: metaconfig/U/perl
+ ! perlxv.U
+____________________________________________________________________________
+[ 6094] By: gsar on 2000/05/08 14:22:22
+ Log: cygwin update (from Eric Fifer <efifer@sanwaint.com>)
+ Branch: perl
+ ! README.cygwin cygwin/Makefile.SHs cygwin/cygwin.c
+ ! hints/cygwin.sh pp_sys.c
+____________________________________________________________________________
+[ 6093] By: gsar on 2000/05/08 12:52:28
+ Log: fork() failure to create pseudo process sets errno=EAGAIN and returns
+ undef on windows (from Clinton Pierce <clintp@geeksalad.org>)
+ Branch: perl
+ ! pp_sys.c sv.c win32/perlhost.h
+____________________________________________________________________________
+[ 6092] By: jhi on 2000/05/07 22:40:34
+ Log: Regen perltoc with the fixed buildtoc.
+ Branch: cfgperl
+ ! pod/perltoc.pod
+____________________________________________________________________________
+[ 6091] By: jhi on 2000/05/07 22:24:16
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> perl.c pod/buildtoc pp.c pp_hot.c sv.c t/op/quotemeta.t
+ !> t/op/substr.t toke.c
+____________________________________________________________________________
+[ 6090] By: gsar on 2000/05/07 19:47:07
+ Log: concat doesn't preserve utf8-ness, and doesn't invalidate
+ [NI]OK; added tests for both
+ Branch: perl
+ ! perl.c pp_hot.c sv.c t/op/substr.t
+____________________________________________________________________________
+[ 6089] By: gsar on 2000/05/07 18:18:38
+ Log: buildtoc tweak to fix newline lossage
+ Branch: perl
+ ! pod/buildtoc
+____________________________________________________________________________
+[ 6088] By: jhi on 2000/05/07 16:35:36
+ Log: Remove HAS_SETSPENT, HAS_GETSPENT, HAS_ENDSPENT,
+ because we do not use those. The HAS_GETSPNAM remains,
+ though, because we still do use that.
+ Branch: cfgperl
+ ! Configure Porting/Glossary Porting/config.sh Porting/config_H
+ ! config_h.SH epoc/config.sh hints/machten.sh pod/perltoc.pod
+ ! pp_sys.c vms/subconfigure.com vos/config.def vos/config.h
+ ! vos/config_h.SH_orig win32/config.bc win32/config.gc
+ ! win32/config.vc win32/config_H.bc win32/config_H.gc
+ ! win32/config_H.vc win32/config_h.PL win32/config_sh.PL
+____________________________________________________________________________
+[ 6087] By: gsar on 2000/05/07 16:05:16
+ Log: reverse() and quotemeta() weren't preserving utf8-ness; add tests
+ Branch: perl
+ ! pp.c sv.c t/op/quotemeta.t t/op/substr.t toke.c
+____________________________________________________________________________
+[ 6086] By: jhi on 2000/05/07 15:27:07
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ +> lib/File/Temp.pm t/lib/ftmp-mktemp.t t/lib/ftmp-posix.t
+ +> t/lib/ftmp-security.t t/lib/ftmp-tempfile.t
+ !> AUTHORS MAINTAIN MANIFEST iperlsys.h lib/Carp/Heavy.pm
+ !> lib/diagnostics.pm pod/perlfunc.pod pod/perlrun.pod
+ !> pod/perltie.pod pp.c t/lib/peek.t t/op/substr.t
+ !> utils/perlbug.PL vms/vms.c vms/vmsish.h
+____________________________________________________________________________
+[ 6085] By: gsar on 2000/05/07 05:52:02
+ Log: repeat operator (x) doesn't preserve utf8-ness
+ Branch: perl
+ ! pp.c t/op/substr.t
+____________________________________________________________________________
+[ 6084] By: gsar on 2000/05/07 05:39:55
+ Log: substr() does not preserve utf8-ness (from Stefan Eissing
+ <Eissing@medicaldataservice.de>); added tests
+ Branch: perl
+ ! pp.c t/op/substr.t
+____________________________________________________________________________
+[ 6083] By: gsar on 2000/05/07 05:24:46
+ Log: note about undocumented caller() return value (from M.J.T. Guy);
+ yet another peek.t tweak
+ Branch: perl
+ ! pod/perlfunc.pod t/lib/peek.t
+____________________________________________________________________________
+[ 6082] By: gsar on 2000/05/07 05:08:40
+ Log: peek.t non-portable to ithreads
+ Branch: perl
+ ! t/lib/peek.t
+____________________________________________________________________________
+[ 6081] By: gsar on 2000/05/07 04:17:04
+ Log: better default perlbug categories for ok reports (from Richard Foley)
+ Branch: perl
+ ! utils/perlbug.PL
+____________________________________________________________________________
+[ 6080] By: gsar on 2000/05/07 04:08:07
+ Log: add File::Temp v0.08 from CPAN, with small tweaks to testsuite
+ (from Tim Jenness <t.jenness@jach.hawaii.edu>)
+ Branch: perl
+ + lib/File/Temp.pm t/lib/ftmp-mktemp.t t/lib/ftmp-posix.t
+ + t/lib/ftmp-security.t t/lib/ftmp-tempfile.t
+ ! AUTHORS MAINTAIN MANIFEST
+____________________________________________________________________________
+[ 6079] By: gsar on 2000/05/07 04:01:38
+ Log: remove outdated kludge in Carp (NULLs are permitted in diagnostics now)
+ Branch: perl
+ ! lib/Carp/Heavy.pm
+____________________________________________________________________________
+[ 6078] By: gsar on 2000/05/07 01:24:19
+ Log: workaround for CRT bug in chdir() (from Charles Lane, via
+ Peter Prymmer)
+ Branch: perl
+ ! iperlsys.h vms/vms.c vms/vmsish.h
+____________________________________________________________________________
+[ 6077] By: gsar on 2000/05/07 01:22:23
+ Log: avoid warnings in diagnostics.pm; pod tweaks (from Peter Prymmer
+ and Tom Phoenix)
+ Branch: perl
+ ! lib/diagnostics.pm pod/perlrun.pod pod/perltie.pod
+____________________________________________________________________________
+[ 6076] By: gsar on 2000/05/06 17:36:29
+ Log: integrate cfgperl contents into mainline
+ Branch: perl
+ +> t/lib/peek.t
+ !> Configure MANIFEST Porting/Glossary Porting/config.sh
+ !> Porting/config_H config_h.SH ext/POSIX/POSIX.xs
+ !> hints/unicos.sh lib/Math/Complex.pm pp_sys.c sv.c
+ !> t/lib/complex.t t/op/grent.t t/op/pwent.t toke.c util.c
+____________________________________________________________________________
+[ 6075] By: jhi on 2000/05/05 18:56:10
+ Log: Make the test more portable.
+ Branch: cfgperl
+ ! t/lib/peek.t
+____________________________________________________________________________
+[ 6074] By: jhi on 2000/05/05 18:49:20
+ Log: Introduce t/lib/peek.t.
+ Branch: cfgperl
+ + t/lib/peek.t
+ ! MANIFEST
+____________________________________________________________________________
+[ 6073] By: jhi on 2000/05/05 14:30:45
+ Log: Complex tweaks.
+ Branch: cfgperl
+ ! lib/Math/Complex.pm t/lib/complex.t
+____________________________________________________________________________
+[ 6072] By: jhi on 2000/05/05 12:27:13
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> lib/ExtUtils/MM_Unix.pm lib/ExtUtils/MM_Win32.pm
+ !> lib/File/Spec.pm lib/File/Spec/Mac.pm lib/File/Spec/Unix.pm
+ !> lib/File/Spec/VMS.pm lib/File/Spec/Win32.pm perl.c
+ !> pod/perlfunc.pod t/lib/anydbm.t win32/win32.c
+____________________________________________________________________________
+[ 6071] By: gsar on 2000/05/05 02:24:46
+ Log: misformatted perllocal.pod (from Tim Jenness
+ <t.jenness@jach.hawaii.edu>)
+ Branch: perl
+ ! lib/ExtUtils/MM_Unix.pm lib/ExtUtils/MM_Win32.pm
+____________________________________________________________________________
+[ 6070] By: gsar on 2000/05/05 02:16:52
+ Log: remove misleading comment (from M.J.T. Guy)
+ Branch: perl
+ ! t/lib/anydbm.t
+____________________________________________________________________________
+[ 6069] By: gsar on 2000/05/05 02:15:13
+ Log: File::Spec compatibility update (from Barrie Slaymaker
+ <barries@slaysys.com>)
+ Branch: perl
+ ! lib/File/Spec.pm lib/File/Spec/Mac.pm lib/File/Spec/Unix.pm
+ ! lib/File/Spec/VMS.pm lib/File/Spec/Win32.pm
+____________________________________________________________________________
+[ 6068] By: gsar on 2000/05/05 02:01:50
+ Log: note about values()
+ Branch: perl
+ ! pod/perlfunc.pod
+____________________________________________________________________________
+[ 6067] By: gsar on 2000/05/05 01:33:09
+ Log: replace direct call to sighandler() with (*PL_sighandlerp)()
+ Branch: perl
+ ! win32/win32.c
+____________________________________________________________________________
+[ 6066] By: gsar on 2000/05/05 01:23:43
+ Log: s/END/CHECK/
+ Branch: perl
+ ! perl.c
+____________________________________________________________________________
+[ 6065] By: jhi on 2000/05/04 17:30:22
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> pp_sys.c sv.c t/pragma/utf8.t toke.c
+____________________________________________________________________________
+[ 6064] By: gsar on 2000/05/04 17:26:14
+ Log: change#5905 wasn't quite right--it's intent only applies when arguments
+ to sv_vcatpvfn() are SVs instead of C types; back out change#5907 as well
+ Branch: perl
+ ! pp_sys.c sv.c
+____________________________________________________________________________
+[ 6063] By: gsar on 2000/05/04 16:52:29
+ Log: tokeq() could read unallocated field in argument
+ Branch: perl
+ ! toke.c
+____________________________________________________________________________
+[ 6062] By: gsar on 2000/05/04 16:34:51
+ Log: additional tests for utf8.t
+ Branch: perl
+ ! t/pragma/utf8.t
+____________________________________________________________________________
+[ 6061] By: gsar on 2000/05/04 16:09:28
+ Log: change#5921 neglected to make eq honor "use bytes"
+ Branch: perl
+ ! sv.c
+____________________________________________________________________________
+[ 6060] By: jhi on 2000/05/04 15:30:16
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> perl.c regcomp.c t/pragma/utf8.t
+____________________________________________________________________________
+[ 6059] By: jhi on 2000/05/04 15:26:37
+ Log: The logic of choosing strtol/strtoul/strtoll/strtoull was wrong
+ in natively 64-bit platforms where a long is a quad (no need
+ for long longs). Also added bias for IVs.
+ Branch: cfgperl
+ ! toke.c
+____________________________________________________________________________
+[ 6058] By: gsar on 2000/05/04 00:19:14
+ Log: printf(...) should be PerlIO_printf(PerlIO_stdout(), ...)
+ (spotted by Donald Kinzer <dkinzer@premia.com>)
+ Branch: perl
+ ! perl.c
+____________________________________________________________________________
+[ 6057] By: gsar on 2000/05/03 18:34:01
+ Log: fix broken parsing of /\x{ab}/
+ Branch: perl
+ ! regcomp.c t/pragma/utf8.t
+____________________________________________________________________________
+[ 6056] By: jhi on 2000/05/03 17:57:16
+ Log: The search of infinity continues, this time simplified.
+ Branch: cfgperl
+ ! lib/Math/Complex.pm
+____________________________________________________________________________
+[ 6055] By: jhi on 2000/05/03 17:45:30
+ Log: Detypo.
+ Branch: cfgperl
+ ! hints/unicos.sh
+____________________________________________________________________________
+[ 6054] By: jhi on 2000/05/02 22:28:27
+ Log: Be more forgiving in POSIX about HUGE_VALL.
+ Branch: cfgperl
+ ! ext/POSIX/POSIX.xs
+____________________________________________________________________________
+[ 6053] By: jhi on 2000/05/02 22:25:05
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> hints/irix_6.sh pod/perlop.pod
+____________________________________________________________________________
+[ 6052] By: jhi on 2000/05/02 22:24:31
+ Log: Unicos hint tweak.
+ Branch: cfgperl
+ ! hints/unicos.sh
+____________________________________________________________________________
+[ 6051] By: jhi on 2000/05/02 22:21:26
+ Log: Complex tweakery.
+ Branch: cfgperl
+ ! lib/Math/Complex.pm t/lib/complex.t
+____________________________________________________________________________
+[ 6050] By: jhi on 2000/05/02 19:26:22
+ Log: Use setxxent()/endxxent().
+ Branch: cfgperl
+ ! t/op/grent.t t/op/pwent.t
+____________________________________________________________________________
+[ 6049] By: jhi on 2000/05/02 19:06:02
+ Log: Test both the scalar and array contexts.
+ Branch: cfgperl
+ ! t/op/grent.t t/op/pwent.t
+____________________________________________________________________________
+[ 6048] By: gsar on 2000/05/02 18:29:10
+ Log: add note about how $( doesn't interpolate in REs (from
+ Philip Newton <newton@ficus.frogspace.net>)
+ Branch: perl
+ ! pod/perlop.pod
+____________________________________________________________________________
+[ 6047] By: jhi on 2000/05/02 17:41:24
+ Log: Call getspnam() only iff needd.
+ Branch: cfgperl
+ ! pp_sys.c
+____________________________________________________________________________
+[ 6046] By: gsar on 2000/05/02 17:07:25
+ Log: libscheck has insufficient checks for n32 libs (from
+ Albert Chin-A-Young <china@thewrittenword.com>)
+ Branch: perl
+ ! hints/irix_6.sh
+____________________________________________________________________________
+[ 6045] By: jhi on 2000/05/02 13:57:17
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> MANIFEST Porting/makerel perl.c pod/perlretut.pod
+ !> pod/perltrap.pod pp.c regcomp.c t/op/oct.t toke.c util.c
+____________________________________________________________________________
+[ 6044] By: gsar on 2000/05/02 06:48:19
+ Log: change#3798 broke the meaning of "\0_7_7", tr/\0_// etc.; fix it
+ such that underscores are only ignored in literal numbers,
+ "\x{...}", and hex/oct argument
+ Branch: perl
+ ! perl.c pp.c regcomp.c t/op/oct.t toke.c util.c
+____________________________________________________________________________
+[ 6043] By: gsar on 2000/05/02 02:22:29
+ Log: perlretut revisions (from Mark Kvale <kvale@phy.ucsf.edu>)
+ Branch: perl
+ ! pod/perlretut.pod
+____________________________________________________________________________
+[ 6042] By: gsar on 2000/05/02 02:17:51
+ Log: remove outdated perltrap entry (from Peter Scott <Peter@PSDT.com>)
+ Branch: perl
+ ! pod/perltrap.pod
+____________________________________________________________________________
+[ 6041] By: gsar on 2000/05/02 01:53:51
+ Log: cpio 2.4.2 on Linux creates directories in 0700 mode, adjust makerel
+ to compensate
+ Branch: perl
+ ! Porting/makerel
+____________________________________________________________________________
+[ 6040] By: gsar on 2000/05/02 01:51:57
+ Log: missing files in MANIFEST
+ Branch: perl
+ ! MANIFEST
+____________________________________________________________________________
+[ 6039] By: jhi on 2000/05/02 00:36:46
+ Log: Infinite problems.
+ Branch: cfgperl
+ ! lib/Math/Complex.pm
+____________________________________________________________________________
+[ 6038] By: jhi on 2000/05/02 00:06:38
+ Log: pwent/spent #ifdef imbalance.
+ Branch: cfgperl
+ ! pp_sys.c
+____________________________________________________________________________
+[ 6037] By: jhi on 2000/05/01 22:50:11
+ Log: Use HUGE_VALL if applicable.
+ Branch: cfgperl
+ ! ext/POSIX/POSIX.xs util.c
+____________________________________________________________________________
+[ 6036] By: jhi on 2000/05/01 22:20:53
+ Log: Correct Freudian slip.
+ Branch: cfgperl
+ ! pp_sys.c
+____________________________________________________________________________
+[ 6035] By: jhi on 2000/05/01 21:07:38
+ Log: Continue on the pwent/spent case.
+ Branch: cfgperl
+ ! pp_sys.c
+____________________________________________________________________________
+[ 6034] By: jhi on 2000/05/01 17:45:14
+ Log: Integrate with Sarathy; unfortunately Sarathy's whitespace
+ adjustments in 6032 conflicted badly with this, will have
+ to revisit them later.
+ Branch: cfgperl
+ +> lib/CGI/Util.pm t/lib/cgi-pretty.t
+ !> MANIFEST lib/CGI.pm lib/CGI/Carp.pm lib/CGI/Cookie.pm
+ !> lib/CGI/Pretty.pm lib/CGI/Push.pm lib/English.pm
+ !> lib/Pod/Man.pm lib/Pod/Text.pm lib/diagnostics.pm
+ !> pod/perldiag.pod pod/perlvar.pod pp_sys.c t/lib/cgi-function.t
+ !> t/lib/cgi-html.t t/lib/cgi-request.t
+____________________________________________________________________________
+[ 6033] By: jhi on 2000/05/01 17:40:49
+ Log: Rewrite the pwent/spent logic to be a little bit more clearer.
+ Branch: cfgperl
+ ! pp_sys.c
+____________________________________________________________________________
+[ 6032] By: gsar on 2000/05/01 15:56:32
+ Log: whitespace adjustments
+ Branch: perl
+ ! pp_sys.c
+____________________________________________________________________________
+[ 6031] By: gsar on 2000/05/01 15:19:41
+ Log: small nits in diagnostics.pm (from Robin Barker)
+ Branch: perl
+ ! lib/diagnostics.pm pod/perldiag.pod
+____________________________________________________________________________
+[ 6030] By: gsar on 2000/05/01 08:39:18
+ Log: introduce @LAST_MATCH_START and @LAST_MATCH_END, English aliases
+ for @- and @+ (from Johan Vromans)
+ Branch: perl
+ ! lib/English.pm pod/perlvar.pod
+____________________________________________________________________________
+[ 6029] By: gsar on 2000/05/01 08:16:10
+ Log: add CGI.pm v2.66 (from Lincoln Stein)
+ Branch: perl
+ + lib/CGI/Util.pm t/lib/cgi-pretty.t
+ ! MANIFEST lib/CGI.pm lib/CGI/Carp.pm lib/CGI/Cookie.pm
+ ! lib/CGI/Pretty.pm lib/CGI/Push.pm t/lib/cgi-function.t
+ ! t/lib/cgi-html.t t/lib/cgi-request.t
+____________________________________________________________________________
+[ 6028] By: gsar on 2000/05/01 06:34:41
+ Log: Pod::Man generates groff-incompatible macro definition (from
+ Tom Christiansen)
+ Branch: perl
+ ! lib/Pod/Man.pm
+____________________________________________________________________________
+[ 6027] By: gsar on 2000/05/01 06:31:36
+ Log: podlators-1.02 update (from Russ Allbery)
+ Branch: perl
+ ! lib/Pod/Man.pm lib/Pod/Text.pm
+____________________________________________________________________________
+[ 6026] By: jhi on 2000/04/30 23:24:23
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> README.win32 ext/File/Glob/Glob.pm ext/Sys/Syslog/Syslog.pm
+ !> ext/Sys/Syslog/Syslog.xs lib/perl5db.pl
+ !> lib/unicode/Is/Alnum.pl lib/unicode/Is/Alpha.pl
+ !> lib/unicode/Is/Word.pl lib/unicode/mktables.PL
+ !> pod/perl56delta.pod sv.c t/lib/b.t t/lib/open3.t
+ !> t/lib/syslog.t toke.c win32/win32.h
+____________________________________________________________________________
+[ 6025] By: gsar on 2000/04/30 18:17:47
+ Log: Is{Alnum,Alpha,Word} don't match titlecase
+
+ TODO: IsSpace is defined recursively!
+
+ (both spotted by Larry)
+ Branch: perl
+ ! lib/unicode/Is/Alnum.pl lib/unicode/Is/Alpha.pl
+ ! lib/unicode/Is/Word.pl lib/unicode/mktables.PL
+____________________________________________________________________________
+[ 6024] By: gsar on 2000/04/30 17:50:19
+ Log: extend "Unrecognized escape" warning to \8, \9, and \_ as well
+ (from Hugo van der Sanden)
+ Branch: perl
+ ! toke.c
+____________________________________________________________________________
+[ 6023] By: gsar on 2000/04/30 17:14:43
+ Log: debugger stomps on $. (from M.J.T. Guy)
+ Branch: perl
+ ! lib/perl5db.pl
+____________________________________________________________________________
+[ 6022] By: gsar on 2000/04/30 16:59:22
+ Log: unbalanced LEAVE after perl_clone(...,0) (from Doug MacEachern)
+ Branch: perl
+ ! sv.c
+____________________________________________________________________________
+[ 6021] By: gsar on 2000/04/29 21:00:08
+ Log: remove Win2K issue in pod (fixed by change#6020)
+ Branch: perl
+ ! README.win32 pod/perl56delta.pod
+____________________________________________________________________________
+[ 6020] By: gsar on 2000/04/29 20:51:49
+ Log: test tweak
+ Branch: perl
+ ! t/lib/open3.t
+____________________________________________________________________________
+[ 6019] By: gsar on 2000/04/29 20:34:27
+ Log: windows portability tweaks
+ Branch: perl
+ ! t/lib/b.t win32/win32.h
+____________________________________________________________________________
+[ 6018] By: gsar on 2000/04/29 19:55:24
+ Log: make lib/syslog.t portable to systems that don't have _PATH_LOG,
+ make _PATH_LOG() return "" if unavailable
+ Branch: perl
+ ! ext/File/Glob/Glob.pm ext/Sys/Syslog/Syslog.pm
+ ! ext/Sys/Syslog/Syslog.xs t/lib/syslog.t
+____________________________________________________________________________
+[ 6017] By: jhi on 2000/04/28 22:49:46
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> op.c perl.c pod/perldiag.pod t/lib/b.t
+____________________________________________________________________________
+[ 6016] By: jhi on 2000/04/28 22:46:14
+ Log: Do not warn that an infinity does not look like a number.
+ Branch: cfgperl
+ ! sv.c
+____________________________________________________________________________
+[ 6015] By: gsar on 2000/04/28 22:35:49
+ Log: tweak test for portability
+ Branch: perl
+ ! t/lib/b.t
+____________________________________________________________________________
+[ 6014] By: gsar on 2000/04/28 22:05:31
+ Log: glob() loading File::Glob behind the scenes may cause syntax errors
+ Branch: perl
+ ! op.c
+____________________________________________________________________________
+[ 6013] By: gsar on 2000/04/28 21:25:22
+ Log: tweak change#5945 to display correct switch name in diagnostic
+ Branch: perl
+ ! perl.c pod/perldiag.pod
+____________________________________________________________________________
+[ 6012] By: jhi on 2000/04/28 21:08:12
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> Changes ext/IO/lib/IO/Poll.pm installperl pod/perl56delta.pod
+ !> pod/perldelta.pod pod/perlfunc.pod pod/perlmod.pod
+ !> t/lib/io_poll.t utils/perldoc.PL vms/subconfigure.com
+____________________________________________________________________________
+[ 6011] By: jhi on 2000/04/28 21:04:46
+ Log: &HUGE_VAL is not defined, it exists.
+ Branch: cfgperl
+ ! lib/Math/Complex.pm
+____________________________________________________________________________
+[ 6010] By: gsar on 2000/04/28 21:02:58
+ Log: clarify note about shadow password support (from
+ gellyfish@gellyfish.com)
+ Branch: perl
+ ! pod/perlfunc.pod
+____________________________________________________________________________
+[ 6009] By: gsar on 2000/04/28 21:00:00
+ Log: IO::Poll bugs fixed (from Lincoln Stein <lstein@cshl.org>)
+ Branch: perl
+ ! ext/IO/lib/IO/Poll.pm t/lib/io_poll.t
+____________________________________________________________________________
+[ 6008] By: gsar on 2000/04/28 20:56:33
+ Log: VMS config tweak (from Craig A. Berry <craig.berry@metamorgs.com>)
+ Branch: perl
+ ! installperl vms/subconfigure.com
+____________________________________________________________________________
+[ 6007] By: gsar on 2000/04/28 20:51:21
+ Log: note about compile failures and END blocks (from M.J.T. Guy)
+ Branch: perl
+ ! pod/perl56delta.pod pod/perlmod.pod
+____________________________________________________________________________
+[ 6006] By: jhi on 2000/04/28 20:42:14
+ Log: Regen Configure.
+ Branch: cfgperl
+ ! Configure Porting/Glossary Porting/config.sh Porting/config_H
+ ! config_h.SH
+____________________________________________________________________________
+[ 6005] By: gsar on 2000/04/28 20:41:16
+ Log: perldoc might fail via "use blib" (from Hugo van der Sanden)
+ Branch: perl
+ ! utils/perldoc.PL
+____________________________________________________________________________
+[ 6004] By: jhi on 2000/04/28 20:28:21
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> Configure INSTALL Porting/Glossary Porting/config.sh
+ !> Porting/config_H config_h.SH epoc/config.sh perl.c sv.c
+ !> t/pragma/warn/toke toke.c vms/subconfigure.com vos/config.def
+ !> vos/config_h.SH_orig win32/config.bc win32/config.gc
+ !> win32/config.vc win32/win32.c
+____________________________________________________________________________
+[ 6003] By: gsar on 2000/04/28 20:11:20
+ Log: allow REG_EXPAND_SZ keys in Windows registry (from
+ John Clayton <John.Clayton@barclayscapital.com>)
+ Branch: perl
+ ! win32/win32.c
+____________________________________________________________________________
+[ 6002] By: gsar on 2000/04/28 19:34:16
+ Log: destructive sv_setsv() can lose UV-ness from source, causing
+ numeric promotions/comparisons to fail to do the right thing
+ Branch: perl
+ ! sv.c
+____________________________________________________________________________
+[ 6001] By: gsar on 2000/04/28 18:44:15
+ Log: support additional library locations via $Config{otherlibdirs}
+ (from Andy Dougherty)
+ Branch: perl
+ ! Configure INSTALL Porting/Glossary Porting/config.sh
+ ! Porting/config_H config_h.SH epoc/config.sh perl.c
+ ! vms/subconfigure.com vos/config.def vos/config_h.SH_orig
+ ! win32/config.bc win32/config.gc win32/config.vc
+____________________________________________________________________________
+[ 6000] By: gsar on 2000/04/28 18:26:58
+ Log: reworked otherlibdirs.U (from Andy Dougherty)
+ Branch: metaconfig
+ ! U/installdirs/otherlibdirs.U
+____________________________________________________________________________
+[ 5999] By: gsar on 2000/04/28 18:17:07
+ Log: fix line renumbering bug in C<eval qq[#line 10 "X"\nwarn]>
+ Branch: perl
+ ! t/pragma/warn/toke toke.c
+____________________________________________________________________________
+[ 5998] By: jhi on 2000/04/28 13:32:17
+ Log: Try to get "Inf" by using &POSIX::HUGE_VAL in sprintf.
+ Branch: cfgperl
+ ! lib/Math/Complex.pm
+____________________________________________________________________________
+[ 5997] By: jhi on 2000/04/28 13:14:04
+ Log: Preserve $!.
+ Branch: cfgperl
+ ! lib/Math/Complex.pm
+____________________________________________________________________________
+[ 5996] By: jhi on 2000/04/28 12:59:23
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ +> pod/perlrequick.pod pod/perlretut.pod
+ !> (integrate 51 files)
+____________________________________________________________________________
+[ 5995] By: gsar on 2000/04/28 09:37:36
+ Log: fixes for bugs in C<use warnings qw(FATAL all)> (from Paul Marquess)
+ Branch: perl
+ ! mg.c t/pragma/warn/7fatal warnings.h warnings.pl
+____________________________________________________________________________
+[ 5994] By: gsar on 2000/04/28 09:33:26
+ Log: fix for missed accounting for null byte in pack("Z",...) (from
+ M.J.T. Guy)
+ Branch: perl
+ ! pp.c t/op/pack.t
+____________________________________________________________________________
+[ 5993] By: gsar on 2000/04/28 09:30:05
+ Log: various minor tweaks seen on p5p
+ Branch: perl
+ ! lib/perl5db.pl pod/perlipc.pod pod/perlvar.pod
+____________________________________________________________________________
+[ 5992] By: gsar on 2000/04/28 09:08:19
+ Log: pod nit (from Simon Cozens)
+ Branch: perl
+ ! pod/perlop.pod
+____________________________________________________________________________
+[ 5991] By: gsar on 2000/04/28 09:06:36
+ Log: posix-bc patches (from Dorner Thomas <Thomas.Dorner@start.de>)
+ Branch: perl
+ ! README.posix-bc hints/posix-bc.sh
+____________________________________________________________________________
+[ 5990] By: gsar on 2000/04/28 08:54:52
+ Log: use $ENV{LIB} to search for libs under Visual C compiler
+ on Windows (from Jochen Wiedmann <joe@ispsoft.de>)
+ Branch: perl
+ ! lib/ExtUtils/Liblist.pm
+____________________________________________________________________________
+[ 5989] By: gsar on 2000/04/28 08:27:12
+ Log: qw(a\\b) must be parsed like 'a\\b', i.e., backslash escapes
+ itself and no other (from Tom Hughes)
+ Branch: perl
+ ! t/op/array.t toke.c
+____________________________________________________________________________
+[ 5988] By: gsar on 2000/04/28 08:01:38
+ Log: s/HTMLSCRIPTPOD/HTMLSCRIPTPODS/ (from Paul Sharpe
+ <paul@miraclefish.com>)
+ Branch: perl
+ ! lib/ExtUtils/MakeMaker.pm
+____________________________________________________________________________
+[ 5987] By: gsar on 2000/04/28 07:53:09
+ Log: B::Bytecode tweaks (from Simon Cozens <simon@brecon.co.uk>)
+ Branch: perl
+ ! ext/B/B/Bytecode.pm ext/B/B/Disassembler.pm
+____________________________________________________________________________
+[ 5986] By: gsar on 2000/04/28 07:44:17
+ Log: add regular expressions tutorial and quick-start guide (from
+ Mark Kvale <kvale@phy.ucsf.edu>)
+ Branch: perl
+ + pod/perlrequick.pod pod/perlretut.pod
+ ! AUTHORS MAINTAIN MANIFEST
+____________________________________________________________________________
+[ 5985] By: gsar on 2000/04/28 07:30:28
+ Log: forked child may not exit correctly if it failed to open
+ /dev/console (from Graham Barr)
+ Branch: perl
+ ! ext/Sys/Syslog/Syslog.pm
+____________________________________________________________________________
+[ 5984] By: gsar on 2000/04/28 07:27:20
+ Log: attributes::reftype() doesn't work on tied argument
+ Branch: perl
+ ! xsutils.c
+____________________________________________________________________________
+[ 5983] By: gsar on 2000/04/28 07:15:04
+ Log: numeric conversion of non-number in change#3378 tramples on
+ OOK offset, causing segfaults
+ Branch: perl
+ ! sv.c
+____________________________________________________________________________
+[ 5982] By: gsar on 2000/04/28 04:48:25
+ Log: avoid error in IO::Socket::INET when given an unknown service name
+ with a port number (from Brian Raven <brianr@ssprdmh01.liffe.com>)
+ Branch: perl
+ ! ext/IO/lib/IO/Socket/INET.pm
+____________________________________________________________________________
+[ 5981] By: gsar on 2000/04/28 04:31:31
+ Log: rename File::Glob::glob() to File::Glob::bsd_glob() to avoid
+ prototype mismatch with CORE::glob(); update pod and tests to
+ suit (File::Glob::glob() is still available for backward
+ compatibility, but should be considered deprecated)
+ Branch: perl
+ ! ext/File/Glob/Glob.pm t/lib/glob-basic.t t/lib/glob-case.t
+ ! t/lib/glob-taint.t
+____________________________________________________________________________
+[ 5980] By: gsar on 2000/04/28 03:47:29
+ Log: allow Configure -S to run non-interactively (spotted by Greg Hudson
+ <ghudson@mit.edu>)
+ Branch: metaconfig
+ ! U/modified/Options.U
+ Branch: perl
+ ! Configure
+____________________________________________________________________________
+[ 5979] By: gsar on 2000/04/28 03:07:54
+ Log: under useithreads, constant pad entries could inadvertantly be
+ shared across threads (from Eric Blood <eblood@xmission.com>);
+ added Eric's test case to testsuite
+ Branch: perl
+ ! op.c t/op/misc.t
+____________________________________________________________________________
+[ 5978] By: gsar on 2000/04/27 21:13:00
+ Log: sync version numbers in File::Spec with the ones on CPAN
+ (from Barrie Slaymaker)
+ Branch: perl
+ ! lib/File/Spec/Functions.pm lib/File/Spec/Mac.pm
+ ! lib/File/Spec/OS2.pm lib/File/Spec/Unix.pm
+ ! lib/File/Spec/VMS.pm lib/File/Spec/Win32.pm
+____________________________________________________________________________
+[ 5977] By: gsar on 2000/04/27 21:07:29
+ Log: autoquote barewords followed by newline and arrow properly
+ (variant of fix suggested by Rick Delaney and M.J.T. Guy)
+ Branch: perl
+ ! t/pragma/warn/toke toke.c
+____________________________________________________________________________
+[ 5976] By: gsar on 2000/04/27 20:41:20
+ Log: DB_File v1.73 update (from Paul Marquess)
+ Branch: perl
+ ! ext/DB_File/Changes ext/DB_File/DB_File.pm
+ ! ext/DB_File/DB_File.xs ext/DB_File/version.c
+____________________________________________________________________________
+[ 5975] By: gsar on 2000/04/27 20:34:24
+ Log: allow sort() reentrancy (variant of patch suggested by
+ Hugo van der Sanden)
+ Branch: perl
+ ! pp_ctl.c t/op/sort.t
+____________________________________________________________________________
+[ 5974] By: gsar on 2000/04/27 19:46:57
+ Log: change#4197 somehow missed initializing PL_errors, meaning
+ sytax error queueing wasn't working outside eval"" at all;
+ also fixed eval"" to localize PL_error_count, so that compile-time
+ eval's don't clobber the error state of the outer context
+ Branch: perl
+ ! lib/Math/Complex.pm perl.c pp_ctl.c t/pragma/warn/op
+ ! t/pragma/warn/toke
+____________________________________________________________________________
+[ 5973] By: gsar on 2000/04/27 18:29:05
+ Log: fix for failure to match $foo =~ /(?i)/ (from Ilya Zakharevich)
+ Branch: perl
+ ! regcomp.c regexec.c t/op/re_tests
+____________________________________________________________________________
+[ 5972] By: jhi on 2000/04/27 18:22:41
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ +> t/lib/b.t t/lib/syslog.t
+ !> (integrate 31 files)
+____________________________________________________________________________
+[ 5971] By: jhi on 2000/04/27 18:18:46
+ Log: Unicos tweaks from Mark P. Lutz.
+ Branch: cfgperl
+ ! hints/unicos.sh lib/Math/Complex.pm
+____________________________________________________________________________
+[ 5970] By: gsar on 2000/04/27 18:05:11
+ Log: Data::Dumper fumbles negative numbers on 32-bit platforms where
+ IV is >32bits
+ Branch: perl
+ ! ext/Data/Dumper/Dumper.xs t/lib/dumper.t
+____________________________________________________________________________
+[ 5969] By: gsar on 2000/04/27 17:50:56
+ Log: fix Sys::Syslog breakage on domain sockets (from Tom Hughes)
+ Branch: perl
+ + t/lib/syslog.t
+ ! MANIFEST ext/Sys/Syslog/Syslog.pm
+____________________________________________________________________________
+[ 5968] By: gsar on 2000/04/27 17:44:49
+ Log: tolerate spaces in group names in test on solaris (from David Boyce
+ <dsb@boyski.com>)
+ Branch: perl
+ ! t/op/groups.t
+____________________________________________________________________________
+[ 5967] By: gsar on 2000/04/27 17:41:22
+ Log: improved docs on the warn_uninit diagnostic (from David Glasser
+ and Simon Cozens)
+ Branch: perl
+ ! pod/perldiag.pod
+____________________________________________________________________________
+[ 5966] By: gsar on 2000/04/27 16:54:58
+ Log: add testsuite for B backends, fix bug in B::Deparse (from
+ Simon Cozens <simon@brecon.co.uk>)
+ Branch: perl
+ + t/lib/b.t
+ ! MANIFEST ext/B/B/Deparse.pm ext/B/B/Stash.pm
+____________________________________________________________________________
+[ 5965] By: gsar on 2000/04/27 16:10:37
+ Log: avoid "will not stay shared" warnings for our variables (from
+ Robin Barker)
+ Branch: perl
+ ! op.c t/pragma/warn/op
+____________________________________________________________________________
+[ 5964] By: gsar on 2000/04/27 07:05:05
+ Log: reformat to 72 columns (again)
+ Branch: perl
+ ! pod/perldiag.pod
+____________________________________________________________________________
+[ 5963] By: gsar on 2000/04/27 06:28:31
+ Log: patch from Larry to make (\&) prototype work; added tests for
+ the same
+ Branch: perl
+ ! op.c t/comp/proto.t
+____________________________________________________________________________
+[ 5962] By: gsar on 2000/04/27 06:15:47
+ Log: updated README.hpux (from Jeff Okamoto)
+ Branch: perl
+ ! README.hpux
+____________________________________________________________________________
+[ 5961] By: gsar on 2000/04/27 05:55:03
+ Log: recognize our, CHECK and INIT in cperl-mode (from Doug MacEachern)
+ Branch: perl
+ ! emacs/cperl-mode.el
+____________________________________________________________________________
+[ 5960] By: gsar on 2000/04/27 05:49:26
+ Log: better INSTALL notes on Solaris issues (from Dominic Dunlop)
+ Branch: perl
+ ! INSTALL
+____________________________________________________________________________
+[ 5959] By: gsar on 2000/04/27 05:33:41
+ Log: doubled words in pods (from Simon Cozens
+ <simon.p.cozens@jp.pwcglobal.com>)
+ Branch: perl
+ ! pod/perl56delta.pod pod/perldebguts.pod pod/perlfaq5.pod
+ ! pod/perlfork.pod pod/perlfunc.pod pod/perlipc.pod
+ ! pod/perllexwarn.pod pod/perllocale.pod pod/perlmodlib.pod
+ ! pod/perlnumber.pod pod/perlopentut.pod pod/perltodo.pod
+ ! pod/perltootc.pod
+____________________________________________________________________________
+[ 5958] By: gsar on 2000/04/27 05:11:39
+ Log: change#3569 deleted some essential code, revert; avoid use of
+ atexit() to make DynaLoader work properly on AIX under mod_perl
+ (from Jens-Uwe Mager <jum@helios.de>)
+ Branch: perl
+ ! ext/DynaLoader/dl_aix.xs
+____________________________________________________________________________
+[ 5957] By: gsar on 2000/04/27 04:54:51
+ Log: pod nits (from A. C. Yardley <yardley@tanet.net>)
+ Branch: perl
+ ! pod/perlmod.pod
+____________________________________________________________________________
+[ 5956] By: gsar on 2000/04/27 04:51:47
+ Log: better diagnostics on failed tests (from Ilya Zakharevich)
+ Branch: perl
+ ! t/op/lex_assign.t
+____________________________________________________________________________
+[ 5955] By: gsar on 2000/04/27 04:26:44
+ Log: longstanding bug exposed by change#3307: sort arguments weren't
+ compiled with the right wantarray context (ensuing runtime lookup
+ via block_gimme() was getting the incidental context of the
+ sort() itself)
+ Branch: perl
+ ! op.c t/op/sort.t
+____________________________________________________________________________
+[ 5954] By: gsar on 2000/04/26 23:42:12
+ Log: integrate cfgperl contents into mainline
+ Branch: perl
+ !> (integrate 30 files)
+____________________________________________________________________________
+[ 5953] By: jhi on 2000/04/26 23:06:42
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> README.win32 ext/B/B/Deparse.pm
+ !> ext/DynaLoader/DynaLoader_pm.PL ext/DynaLoader/XSLoader_pm.PL
+ !> lib/vars.pm perl.c pod/perldiag.pod pod/perlsub.pod
+ !> pod/perlsyn.pod pod/perlthrtut.pod pod/perltoc.pod
+ !> pod/perltodo.pod pod/perlxs.pod pod/perlxstut.pod
+ !> utils/perldoc.PL vms/perlvms.pod
+____________________________________________________________________________
+[ 5952] By: jhi on 2000/04/26 23:03:46
+ Log: Undo "use integer" addition from 64bitint as it seems
+ to break most of the subtests in Digital UNIX;
+ Unicos needs to find another way.
+ Branch: cfgperl
+ ! t/op/64bitint.t
+____________________________________________________________________________
+[ 5951] By: jhi on 2000/04/26 22:57:53
+ Log: Be more robust on "extreme" (large absolute value)
+ arguments. Originally reported by Daniel Connelly
+ as a problem with asinh() on large negative arguments,
+ asinh() used to bail out because an argument to log()
+ ended up being zero. Ilya Zakharevich proposed using
+ Taylor's series in such cases, which for such large
+ arguments is a very good approximation.
+ Branch: cfgperl
+ ! lib/Math/Complex.pm t/lib/complex.t
+____________________________________________________________________________
+[ 5950] By: gsar on 2000/04/25 19:13:12
+ Log: reformat perldiag to avoid long lines
+ Branch: perl
+ ! pod/perldiag.pod
+____________________________________________________________________________
+[ 5949] By: gsar on 2000/04/25 18:41:11
+ Log: make perldoc use the pod2man from the same version (from
+ M.J.T. Guy)
+ Branch: perl
+ ! utils/perldoc.PL
+____________________________________________________________________________
+[ 5948] By: gsar on 2000/04/25 18:21:57
+ Log: typo in vars.pm that leads to cryptic message (from Piotr Piatkowski
+ <kompas@kompas.usr.onet.pl>)
+ Branch: perl
+ ! lib/vars.pm
+____________________________________________________________________________
+[ 5947] By: gsar on 2000/04/25 18:11:53
+ Log: use &dl_error rather than &dl_load_file as the guard for calling
+ boot_DynaLoader() (meant to fix dl_error() redefined warnings in
+ statically built perl)
+ Branch: perl
+ ! ext/DynaLoader/DynaLoader_pm.PL ext/DynaLoader/XSLoader_pm.PL
+____________________________________________________________________________
+[ 5946] By: jhi on 2000/04/25 17:37:54
+ Log: Document that tr() is not tr(1).
+ Branch: cfgperl
+ ! pod/perlop.pod
+____________________________________________________________________________
+[ 5945] By: gsar on 2000/04/25 16:34:33
+ Log: make module name mandatory after -M switch; reorder perldiag
+ alphabetically (from Mark-Jason Dominus)
+ Branch: perl
+ ! perl.c pod/perldiag.pod
+____________________________________________________________________________
+[ 5944] By: jhi on 2000/04/25 01:15:18
+ Log: On second thoughts frexp() does have two arguments.
+ Branch: cfgperl
+ ! perl.h
+____________________________________________________________________________
+[ 5943] By: jhi on 2000/04/24 22:56:32
+ Log: Add HAS_FREXPL, HAS_ISNAN, HAS_ISNANL, and HAS_MODFL.
+ Now pp_ncmp() returns undef is either operand is a NaN.
+ Branch: cfgperl
+ ! Configure Porting/Glossary Porting/config.sh Porting/config_H
+ ! Todo-5.6 config_h.SH epoc/config.sh perl.h pp.c pp_sys.c
+ ! vms/subconfigure.com vos/config.def vos/config.h
+ ! vos/config_h.SH_orig win32/config.bc win32/config.gc
+ ! win32/config.vc win32/config_H.bc win32/config_H.gc
+ ! win32/config_H.vc
+ Branch: metaconfig/U/perl
+ + d_modfl.U
+____________________________________________________________________________
+[ 5942] By: jhi on 2000/04/24 19:45:17
+ Log: Regen Configure to match #5937.
+ Branch: cfgperl
+ ! Configure Porting/Glossary Porting/config.sh Porting/config_H
+ ! config_h.SH
+ Branch: metaconfig
+ ! U/installdirs/inc_version_list.U U/modified/cpp_stuff.U
+____________________________________________________________________________
+[ 5941] By: jhi on 2000/04/24 19:24:11
+ Log: Further Unicos fixes for Mark Lutz.
+ Branch: cfgperl
+ ! hints/unicos.sh pp_ctl.c
+____________________________________________________________________________
+[ 5940] By: jhi on 2000/04/24 19:09:06
+ Log: Various Unicos 10.0.0.6 fixes.
+
+ Subject: [ID 20000414.007] Test suite failures in perl 5.6 on Cray T90
+ From: Mark P Lutz <tecmpl1@triton.ca.boeing.com>
+ Reply-To: tecmpl1@triton.ca.boeing.com
+ To: perl5-porters@perl.org
+ Date: Fri, 14 Apr 2000 20:21:00 GMT
+ Message-Id: <200004142021.UAA36232@triton.ca.boeing.com>
+ Branch: cfgperl
+ ! hints/unicos.sh pp.c pp_ctl.c t/op/64bitint.t
+____________________________________________________________________________
+[ 5939] By: gsar on 2000/04/24 19:01:24
+ Log: more pod nits (from Larry Virden)
+ Branch: perl
+ ! README.win32 pod/perlsub.pod pod/perlsyn.pod
+ ! pod/perlthrtut.pod pod/perltoc.pod pod/perltodo.pod
+ ! pod/perlxs.pod pod/perlxstut.pod vms/perlvms.pod
+____________________________________________________________________________
+[ 5938] By: gsar on 2000/04/24 18:54:01
+ Log: Consolidated B::Deparse fixes (from Stephen McCamant)
+ Branch: perl
+ ! ext/B/B/Deparse.pm
+____________________________________________________________________________
+[ 5937] By: jhi on 2000/04/24 17:39:00
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ +> (branch 31 files)
+ !> (integrate 73 files)
+____________________________________________________________________________
+[ 5936] By: gsar on 2000/04/24 17:30:06
+ Log: additional tests for change#5934 (from Paul Marquess, who also
+ sent in the same fix)
+ Branch: perl
+ ! t/pragma/warn/2use t/pragma/warn/3both t/pragma/warn/4lint
+ ! t/pragma/warn/5nolint t/pragma/warn/6default
+____________________________________________________________________________
+[ 5935] By: jhi on 2000/04/24 17:26:05
+ Log: Do not assume sign propagation.
+ Subject: [PATCH] Re: [ID 20000410.010] Unicoss 10.0.0.6 and perl 5.6.0
+ From: "M.J.T. Guy" <mjtg@cus.cam.ac.uk>
+ To: payner@ncifcrf.gov, perl5-porters@perl.org
+ Date: Tue, 18 Apr 2000 18:24:49 +0100
+ Message-Id: <E12hbk1-0006Ws-00@ursa.cus.cam.ac.uk>
+ Branch: cfgperl
+ ! t/op/bop.t t/op/misc.t
+____________________________________________________________________________
+[ 5934] By: gsar on 2000/04/24 17:16:54
+ Log: propagate lexical warnings from surrounding scope correctly
+ within string eval()
+ Branch: perl
+ ! pp_ctl.c t/pragma/warn/pp_ctl
+____________________________________________________________________________
+[ 5933] By: jhi on 2000/04/24 17:01:07
+ Log: Flatten the cpp jungle doing the nosuid checking.
+ Branch: cfgperl
+ ! perl.c
+____________________________________________________________________________
+[ 5932] By: gsar on 2000/04/24 09:08:14
+ Log: add rsignal(), whichsig() and do_join() to public API list
+ (mod_perl uses them to good advantage)
+ Branch: perl
+ ! embed.pl global.sym objXSUB.h perlapi.c proto.h
+____________________________________________________________________________
+[ 5931] By: gsar on 2000/04/24 09:01:40
+ Log: fix RE brokenness on refs/overloaded things (from Ilya Zakharevich)
+ Branch: perl
+ ! pp_hot.c regexec.c t/op/pat.t
+____________________________________________________________________________
+[ 5930] By: gsar on 2000/04/24 08:58:33
+ Log: small os390 tweaks (from Peter Prymmer)
+ Branch: perl
+ ! config_h.SH makedepend.SH
+____________________________________________________________________________
+[ 5929] By: gsar on 2000/04/24 08:55:25
+ Log: pod nits
+ Branch: perl
+ ! pod/perlguts.pod
+____________________________________________________________________________
+[ 5928] By: gsar on 2000/04/24 08:50:13
+ Log: revert change#5923 ("breaks" t/lib/io_poll.t)
+ Branch: perl
+ ! ext/IO/lib/IO/Poll.pm
+____________________________________________________________________________
+[ 5927] By: gsar on 2000/04/24 08:43:24
+ Log: arrange for next() to resume at the unstack op rather than the
+ loop conditional, so that scope cleanup happens correctly
+ (from Stephen McCamant)
+ Branch: perl
+ ! op.c pp_ctl.c t/op/misc.t
+____________________________________________________________________________
+[ 5926] By: gsar on 2000/04/24 08:18:40
+ Log: on windows, reserve 16M of stack rather than 128M (allows more
+ threads to run concurrently)
+ Branch: perl
+ ! win32/Makefile win32/makefile.mk
+____________________________________________________________________________
+[ 5925] By: gsar on 2000/04/24 08:13:52
+ Log: POSIX-BC tweak (from Ignasi Roca <ignasi.roca@fujitsu.siemens.es>)
+ Branch: perl
+ ! toke.c
+____________________________________________________________________________
+[ 5924] By: gsar on 2000/04/24 08:08:59
+ Log: avoid using uninitialized memory in require version check
+ Branch: perl
+ ! pp_ctl.c universal.c
+____________________________________________________________________________
+[ 5923] By: gsar on 2000/04/24 07:20:14
+ Log: various bugs in IO::Poll (from Lincoln D. Stein <lstein@cshl.org>)
+ Branch: perl
+ ! ext/IO/lib/IO/Poll.pm
+____________________________________________________________________________
+[ 5922] By: gsar on 2000/04/24 07:08:42
+ Log: commentary about IoTYPE() (from Nathan Torkington)
+ Branch: perl
+ ! sv.h
+____________________________________________________________________________
+[ 5921] By: gsar on 2000/04/24 06:58:26
+ Log: make eq unicode-aware (from Gisle Aas); fix bogus tests revealed
+ by fix
+ Branch: perl
+ ! sv.c t/lib/charnames.t t/pragma/utf8.t
+____________________________________________________________________________
+[ 5920] By: gsar on 2000/04/24 06:37:59
+ Log: Larry's fix for buggy propagation of utf8-ness in join(); add test
+ Branch: perl
+ ! doop.c t/op/ver.t
+____________________________________________________________________________
+[ 5919] By: gsar on 2000/04/24 06:21:58
+ Log: Configure might miss old directories when prefix must be
+ expanded (from Robin Barker)
+ Branch: metaconfig
+ ! U/installdirs/inc_version_list.U
+ Branch: perl
+ ! Configure
+____________________________________________________________________________
+[ 5918] By: gsar on 2000/04/24 06:16:11
+ Log: VMS nits in glob() test (from Charles Lane)
+ Branch: perl
+ ! t/lib/glob-basic.t
+____________________________________________________________________________
+[ 5917] By: gsar on 2000/04/24 06:11:56
+ Log: various pod nits (from Larry Virden and others)
+ Branch: perl
+ ! README.amiga README.hpux README.machten README.os2
+ ! README.os390 README.win32 embed.pl handy.h lib/IPC/Open3.pm
+ ! pod/Win32.pod pod/perl56delta.pod pod/perlapi.pod
+ ! pod/perlbook.pod pod/perlcompile.pod pod/perldebguts.pod
+ ! pod/perldiag.pod pod/perlfork.pod pod/perlfunc.pod
+ ! pod/perlguts.pod pod/perlintern.pod pod/perlipc.pod
+ ! pod/perlmod.pod pod/perlmodinstall.pod pod/perlnumber.pod
+ ! pod/perlop.pod pod/perlport.pod pod/perlre.pod
+ ! pod/perltrap.pod pod/perlunicode.pod pod/perlvar.pod pp.h
+____________________________________________________________________________
+[ 5916] By: gsar on 2000/04/24 05:52:43
+ Log: ignore dotfiles (.cvsignore etc) in test (from Warren Jones
+ <wjones@tc.fluke.com>)
+ Branch: perl
+ ! t/lib/glob-basic.t
+____________________________________________________________________________
+[ 5915] By: gsar on 2000/04/24 05:07:01
+ Log: supported platforms mixed up
+ Branch: perl
+ ! pod/perl56delta.pod pod/perlport.pod
+____________________________________________________________________________
+[ 5914] By: gsar on 2000/04/24 04:56:08
+ Log: caller() wasn't returning the right number of elements for
+ eval {...}
+ Branch: perl
+ ! pp_ctl.c t/pragma/warn/9enabled
+____________________________________________________________________________
+[ 5913] By: gsar on 2000/04/24 04:35:41
+ Log: pod nit: $yday range for localtime/gmtime is 0..364 not 1..365 (from
+ Mark-Jason Dominus)
+ Branch: perl
+ ! pod/perlfunc.pod
+____________________________________________________________________________
+[ 5912] By: gsar on 2000/04/24 04:17:15
+ Log: fix totally broken caching in UNIVERSAL::isa() (from
+ Nick Ing-Simmons)
+ Branch: perl
+ ! t/op/universal.t universal.c
+____________________________________________________________________________
+[ 5911] By: gsar on 2000/04/24 03:39:47
+ Log: add linebreak properties from unicode/LineBrk.txt (from
+ Dave Hartnoll <Dave_Hartnoll@3b2.com>)
+ Branch: perl
+ + lib/unicode/Is/LbrkAI.pl lib/unicode/Is/LbrkAL.pl
+ + lib/unicode/Is/LbrkB2.pl lib/unicode/Is/LbrkBA.pl
+ + lib/unicode/Is/LbrkBB.pl lib/unicode/Is/LbrkBK.pl
+ + lib/unicode/Is/LbrkCB.pl lib/unicode/Is/LbrkCL.pl
+ + lib/unicode/Is/LbrkCM.pl lib/unicode/Is/LbrkCR.pl
+ + lib/unicode/Is/LbrkEX.pl lib/unicode/Is/LbrkGL.pl
+ + lib/unicode/Is/LbrkHY.pl lib/unicode/Is/LbrkID.pl
+ + lib/unicode/Is/LbrkIN.pl lib/unicode/Is/LbrkIS.pl
+ + lib/unicode/Is/LbrkLF.pl lib/unicode/Is/LbrkNS.pl
+ + lib/unicode/Is/LbrkNU.pl lib/unicode/Is/LbrkOP.pl
+ + lib/unicode/Is/LbrkPO.pl lib/unicode/Is/LbrkPR.pl
+ + lib/unicode/Is/LbrkQU.pl lib/unicode/Is/LbrkSA.pl
+ + lib/unicode/Is/LbrkSG.pl lib/unicode/Is/LbrkSP.pl
+ + lib/unicode/Is/LbrkSY.pl lib/unicode/Is/LbrkXX.pl
+ + lib/unicode/Is/LbrkZW.pl
+ ! lib/unicode/mktables.PL
+____________________________________________________________________________
+[ 5910] By: gsar on 2000/04/24 03:23:10
+ Log: typo in pod
+ Branch: perl
+ ! ext/Thread/Thread.pm
+____________________________________________________________________________
+[ 5909] By: gsar on 2000/04/24 03:22:03
+ Log: mode argument to do_binmode() should be file mode, not boolean
+ Branch: perl
+ ! pp_sys.c
+____________________________________________________________________________
+[ 5908] By: gsar on 2000/04/16 16:51:08
+ Log: introduce illegal symbols into null package so that gv_fetchpv(...,TRUE)
+ always returns a valid GV even when the symbol is trapped by strictures
+ (avoids coredumps)
+
+ TODO: the C<package;> hack needs similar treatment
+ Branch: perl
+ ! embedvar.h gv.c intrpvar.h perl.c perlapi.h
+ ! t/pragma/strict-vars
+____________________________________________________________________________
+[ 5907] By: jhi on 2000/03/31 23:42:56
+ Log: pp_gmtime() assumed that newSVpvf %d would take C ints,
+ an assumption which #5905 demolished.
+ Branch: cfgperl
+ ! pp_sys.c
+____________________________________________________________________________
+[ 5906] By: jhi on 2000/03/31 18:54:37
+ Log: Typo in #5905.
+ Branch: cfgperl
+ ! t/op/64bitint.t
+____________________________________________________________________________
+[ 5905] By: jhi on 2000/03/31 18:50:54
+ Log: Fix for "[ID 20000329.080] quad printing does not work as documented",
+ reported by Joseph N. Hall. The bug was that even with use64bitint
+ one had to use the prefixes q, L, or ll with printf/sprintf,
+ contrary to the documentation and common sense.
+ Branch: cfgperl
+ ! sv.c t/op/64bitint.t
+____________________________________________________________________________
+[ 5904] By: gsar on 2000/03/28 02:31:32
+ Log: add Changes, perldelta.pod
+ Branch: perl
+ + Changes pod/perldelta.pod
+____________________________________________________________________________
+[ 5903] By: gsar on 2000/03/28 02:03:55
+ Log: rename Changes and perldelta.pod
+ Branch: perl
+ +> Changes5.6 pod/perl56delta.pod
+ - Changes pod/perldelta.pod
+ ! MANIFEST
+____________________________________________________________________________
+[ 5902] By: gsar on 2000/03/28 01:59:14
+ Log: create maint-5.6 branch
+ Branch: maint-5.6/perl
+ +> (branch 1611 files)
+____________________________________________________________________________
+[ 5901] By: jhi on 2000/03/23 05:48:43
+ Log: Integrate with Sarathy.
+ Branch: cfgperl
+ !> Changes patchlevel.h pod/perlhist.pod pod/perltoc.pod
+____________________________________________________________________________
+[ 5900] By: gsar on 2000/03/23 05:42:43
+ Log: three guesses on what this is :-)
+ Branch: perl
+ ! Changes
diff --git a/Configure b/Configure
index fc3ea300c0..19c83a0434 100755
--- a/Configure
+++ b/Configure
@@ -20,7 +20,7 @@
# $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $
#
-# Generated on Wed May 31 01:51:16 EET DST 2000 [metaconfig 3.0 PL70]
+# Generated on Wed May 31 23:34:04 EET DST 2000 [metaconfig 3.0 PL70]
# (with additional metaconfig patches by perlbug@perl.com)
cat >/tmp/c1$$ <<EOF
diff --git a/MAINTAIN b/MAINTAIN
index 6d9c60bcd5..b2e370d14d 100644
--- a/MAINTAIN
+++ b/MAINTAIN
@@ -31,6 +31,7 @@ INSTALL
INTERN.h
MANIFEST
Makefile.SH
+Makefile.micro simon
objXSUB.h
Policy_sh.SH
Porting/* cfg
@@ -56,6 +57,7 @@ README.dos dos
README.hpux hpux
README.lexwarn lexwarn
README.machten machten
+README.micro simon
README.mpeix mpeix
README.os2 os2
README.os390 mvs
@@ -69,6 +71,7 @@ README.vos vos
README.win32 win32
Todo
Todo-5.005
+Todo.micro simon
XSlock.h
XSUB.h
av.c
@@ -848,6 +851,8 @@ taint.c
thrdvar.h
thread.h
toke.c
+uconfig.h simon
+uconfig.sh simon
universal.c
unixish.h
utf* lwall
diff --git a/MANIFEST b/MANIFEST
index 9dfa665a11..be991fb146 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -16,6 +16,7 @@ INTERN.h Included before domestic .h files
MAINTAIN Who maintains which files
MANIFEST This list of files
Makefile.SH A script that generates Makefile
+Makefile.micro microperl Makefile
Policy_sh.SH Hold site-wide preferences between Configure runs.
Porting/Contract Social contract for contributed modules in Perl core
Porting/Glossary Glossary of config.sh variables
@@ -42,6 +43,7 @@ README.epoc Notes about EPOC port
README.hpux Notes about HP-UX port
README.hurd Notes about GNU/Hurd port
README.machten Notes about Power MachTen port
+README.micro Notes about microperl
README.mint Notes about Atari MiNT port
README.mpeix Notes about MPE/iX port
README.os2 Notes about OS/2 port
@@ -56,6 +58,7 @@ README.vos Notes about Stratus VOS port
README.win32 Notes about Win32 port
Todo The Wishlist
Todo-5.6 What needs doing before/during the 5.6.x release cycle
+Todo.micro The Wishlist for microperl
XSUB.h Include file for extension subroutines
apollo/netinet/in.h Apollo DomainOS port: C header file frontend
av.c Array value code
@@ -1562,6 +1565,8 @@ taint.c Tainting code
thrdvar.h Per-thread variables
thread.h Threading header
toke.c The tokener
+uconfig.h Configuration header for microperl
+uconfig.sh Configuration script for microperl
universal.c The default UNIVERSAL package methods
unixish.h Defines that are assumed on Unix
utf8.c Unicode routines
diff --git a/Makefile.SH b/Makefile.SH
index 285269de44..84226d5cfd 100644
--- a/Makefile.SH
+++ b/Makefile.SH
@@ -675,7 +675,7 @@ _mopup:
-rm -f perl.exp ext.libs extra.pods
-rm -f perl.export perl.dll perl.libexp perl.map perl.def
-rm -f perl.loadmap miniperl.loadmap perl.prelmap miniperl.prelmap
- rm -f perl suidperl miniperl $(LIBPERL)
+ rm -f perl suidperl miniperl $(LIBPERL) libperl.* microperl
# Do not 'make _tidy' directly.
_tidy:
@@ -696,7 +696,7 @@ _cleaner:
-@for x in $(DYNALOADER) $(dynamic_ext) $(static_ext) $(nonxs_ext) ; do \
$(LDLIBPTH) sh ext/util/make_ext realclean $$x MAKE=$(MAKE) ; \
done
- rm -f *.orig */*.orig *~ */*~ core core.*perl.*.? *perl.core t/core t/core.perl.*.? t/*perl.core t/misctmp* t/tmp* t/c t/perl .?*.c so_locations $(LIBPERL_NONSHR) $(MINIPERL_NONSHR)
+ rm -f *.orig */*.orig *~ */*~ core core.*perl.*.? *perl.core t/core t/core.perl.*.? t/*perl.core t/misctmp* t/forktmp* t/tmp* t/c t/perl .?*.c so_locations $(LIBPERL_NONSHR) $(MINIPERL_NONSHR)
rm -rf $(addedbyconf)
rm -f $(FIRSTMAKEFILE) $(FIRSTMAKEFILE).old
rm -f $(private)
diff --git a/Makefile.micro b/Makefile.micro
new file mode 100644
index 0000000000..1ac87b4ed7
--- /dev/null
+++ b/Makefile.micro
@@ -0,0 +1,125 @@
+CC = cc
+LD = $(CC)
+DEFINES = -DPERL_CORE -DPERL_MICRO
+CFLAGS = $(DEFINES)
+LIBS = -lm
+_O = .o
+
+all: microperl
+
+O = uav$(_O) udeb$(_O) udoio$(_O) udoop$(_O) udump$(_O) \
+ uglobals$(_O) ugv$(_O) uhv$(_O) \
+ umg$(_O) uperlmain$(_O) uop$(_O) \
+ uperl$(_O) uperlio$(_O) uperly$(_O) upp$(_O) \
+ upp_ctl$(_O) upp_hot$(_O) upp_sys$(_O) \
+ uregcomp$(_O) uregexec$(_O) urun$(_O) \
+ uscope$(_O) usv$(_O) utaint$(_O) utoke$(_O) \
+ uuniversal$(_O) uutf8$(_O) uutil$(_O) uperlapi$(_O)
+
+microperl: $(O)
+ $(LD) -o $@ $(O) $(LIBS)
+
+H = av.h uconfig.h cop.h cv.h embed.h embedvar.h form.h gv.h handy.h \
+ hv.h intrpvar.h iperlsys.h mg.h op.h opcode.h opnames.h patchlevel.h \
+ perl.h perlsdio.h perlvars.h perly.h pp.h pp_proto.h proto.h \
+ regexp.h scope.h sv.h thrdvar.h thread.h unixish.h utf8.h util.h \
+ warnings.h
+
+HE = $(H) EXTERN.h
+
+clean:
+ -rm -f $(O) microperl
+
+distclean: clean
+ -rm -f uconfig.h
+
+uconfig.h: uconfig.sh config_h.SH
+ CONFIG_SH=uconfig.sh CONFIG_H=uconfig.h sh ./config_h.SH
+
+uav$(_O): $(HE) av.c
+ $(CC) -c -o $@ $(CFLAGS) av.c
+
+udeb$(_O): $(HE) deb.c
+ $(CC) -c -o $@ $(CFLAGS) deb.c
+
+udoio$(_O): $(HE) doio.c
+ $(CC) -c -o $@ $(CFLAGS) doio.c
+
+udoop$(_O): $(HE) doop.c
+ $(CC) -c -o $@ $(CFLAGS) doop.c
+
+udump$(_O): $(HE) dump.c regcomp.h regnodes.h
+ $(CC) -c -o $@ $(CFLAGS) dump.c
+
+uglobals$(_O): $(H) globals.c INTERN.h perlapi.h
+ $(CC) -c -o $@ $(CFLAGS) globals.c
+
+ugv$(_O): $(HE) gv.c
+ $(CC) -c -o $@ $(CFLAGS) gv.c
+
+uhv$(_O): $(HE) hv.c
+ $(CC) -c -o $@ $(CFLAGS) hv.c
+
+umg$(_O): $(HE) mg.c
+ $(CC) -c -o $@ $(CFLAGS) mg.c
+
+uperlmain$(_O): $(HE) miniperlmain.c
+ $(CC) -c -o $@ $(CFLAGS) miniperlmain.c
+
+uop$(_O): $(HE) op.c keywords.h
+ $(CC) -c -o $@ $(CFLAGS) op.c
+
+uperl$(_O): $(HE) perl.c
+ $(CC) -c -o $@ $(CFLAGS) perl.c
+
+uperlio$(_O): $(HE) perlio.c
+ $(CC) -c -o $@ $(CFLAGS) perlio.c
+
+uperly$(_O): $(HE) perly.c
+ $(CC) -c -o $@ $(CFLAGS) perly.c
+
+upp$(_O): $(HE) pp.c
+ $(CC) -c -o $@ $(CFLAGS) pp.c
+
+upp_ctl$(_O): $(HE) pp_ctl.c
+ $(CC) -c -o $@ $(CFLAGS) pp_ctl.c
+
+upp_hot$(_O): $(HE) pp_hot.c
+ $(CC) -c -o $@ $(CFLAGS) pp_hot.c
+
+upp_sys$(_O): $(HE) pp_sys.c
+ $(CC) -c -o $@ $(CFLAGS) pp_sys.c
+
+uregcomp$(_O): $(HE) regcomp.c regcomp.h regnodes.h INTERN.h
+ $(CC) -c -o $@ $(CFLAGS) regcomp.c
+
+uregexec$(_O): $(HE) regexec.c regcomp.h regnodes.h
+ $(CC) -c -o $@ $(CFLAGS) regexec.c
+
+urun$(_O): $(HE) run.c
+ $(CC) -c -o $@ $(CFLAGS) run.c
+
+uscope$(_O): $(HE) scope.c
+ $(CC) -c -o $@ $(CFLAGS) scope.c
+
+usv$(_O): $(HE) sv.c
+ $(CC) -c -o $@ $(CFLAGS) sv.c
+
+utaint$(_O): $(HE) taint.c
+ $(CC) -c -o $@ $(CFLAGS) taint.c
+
+utoke$(_O): $(HE) toke.c keywords.h
+ $(CC) -c -o $@ $(CFLAGS) toke.c
+
+uuniversal$(_O): $(HE) universal.c objXSUB.h XSUB.h
+ $(CC) -c -o $@ $(CFLAGS) universal.c
+
+uutf8$(_O): $(HE) utf8.c
+ $(CC) -c -o $@ $(CFLAGS) utf8.c
+
+uutil$(_O): $(HE) util.c
+ $(CC) -c -o $@ $(CFLAGS) util.c
+
+uperlapi$(_O): $(HE) perlapi.c perlapi.h
+ $(CC) -c -o $@ $(CFLAGS) perlapi.c
+
diff --git a/README.micro b/README.micro
new file mode 100644
index 0000000000..da84453bf6
--- /dev/null
+++ b/README.micro
@@ -0,0 +1,9 @@
+microperl is supposed to be able a really minimal perl, even more
+minimal than miniperl. No Configure is needed to build microperl,
+on the other hand this means that interfaces between Perl and your
+operating system are left very -- minimal.
+
+All this is experimental. If you don't know what to do with microperl
+you probably shouldn't.
+
+
diff --git a/Todo.micro b/Todo.micro
new file mode 100644
index 0000000000..76759b1951
--- /dev/null
+++ b/Todo.micro
@@ -0,0 +1,9 @@
+- make creating uconfig.sh automatic (by pumpkin)
+
+- make creating Makefile.micro automatic (by pumpkin)
+
+- do away with fork/exec/wait? (system, popen should be enough?)
+
+- some of the uconfig.sh really needs to be probed (using cc) in buildtime:
+ (uConfigure? :-) native datatype widths and endianness come to mind
+
diff --git a/config_h.SH b/config_h.SH
index c535105027..122cabe262 100644
--- a/config_h.SH
+++ b/config_h.SH
@@ -1,29 +1,35 @@
+case "$CONFIG_SH" in
+'') CONFIG_SH=config.sh ;;
+esac
+case "$CONFIG_H" in
+'') CONFIG_H=config.h ;;
+esac
case $CONFIG in
'')
- if test -f config.sh; then TOP=.;
- elif test -f ../config.sh; then TOP=..;
- elif test -f ../../config.sh; then TOP=../..;
- elif test -f ../../../config.sh; then TOP=../../..;
- elif test -f ../../../../config.sh; then TOP=../../../..;
+ if test -f $CONFIG_SH; then TOP=.;
+ elif test -f ../$CONFIG_SH; then TOP=..;
+ elif test -f ../../$CONFIG_SH; then TOP=../..;
+ elif test -f ../../../$CONFIG_SH; then TOP=../../..;
+ elif test -f ../../../../$CONFIG_SH; then TOP=../../../..;
else
- echo "Can't find config.sh."; exit 1
+ echo "Can't find $CONFIG_SH."; exit 1
fi
- . $TOP/config.sh
+ . $TOP/$CONFIG_SH
;;
esac
case "$0" in
*/*) cd `expr X$0 : 'X\(.*\)/'` ;;
esac
-echo "Extracting config.h (with variable substitutions)"
-sed <<!GROK!THIS! >config.h -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un-def!#undef!'
+echo "Extracting $CONFIG_H (with variable substitutions)"
+sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un-def!#undef!'
/*
* This file was produced by running the config_h.SH script, which
- * gets its values from config.sh, which is generally produced by
+ * gets its values from $CONFIG_SH, which is generally produced by
* running Configure.
*
* Feel free to modify any of this as the need arises. Note, however,
* that running config_h.SH again will wipe out any changes you've made.
- * For a more permanent change edit config.sh and rerun config_h.SH.
+ * For a more permanent change edit $CONFIG_SH and rerun config_h.SH.
*
* \$Id: Config_h.U,v 3.0.1.5 1997/02/28 14:57:43 ram Exp $
*/
diff --git a/doop.c b/doop.c
index 175d0f2d13..ebac52f3b9 100644
--- a/doop.c
+++ b/doop.c
@@ -15,9 +15,11 @@
#define PERL_IN_DOOP_C
#include "perl.h"
+#ifndef PERL_MICRO
#if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX)
#include <signal.h>
#endif
+#endif
STATIC I32
S_do_trans_CC_simple(pTHX_ SV *sv)
@@ -855,7 +857,7 @@ Perl_do_vecset(pTHX_ SV *sv)
len = (offset + size + 7) / 8; /* required number of bytes */
if (len > targlen) {
s = (unsigned char*)SvGROW(targ, len + 1);
- (void)memzero(s + targlen, len - targlen + 1);
+ (void)memzero((char *)(s + targlen), len - targlen + 1);
SvCUR_set(targ, len);
}
diff --git a/emacs/cperl-mode.el b/emacs/cperl-mode.el
index f7d7a53be7..c6fa46c496 100644
--- a/emacs/cperl-mode.el
+++ b/emacs/cperl-mode.el
@@ -2,7 +2,7 @@
;;;; The following message is relative to GNU version of the module:
-;; Copyright (C) 1985, 86, 87, 91, 92, 93, 94, 95, 96, 1997
+;; Copyright (C) 1985, 86, 87, 1991--2000
;; Free Software Foundation, Inc.
;; Author: Ilya Zakharevich and Bob Olson
@@ -46,9 +46,10 @@
;;; Commentary:
-;; $Id: cperl-mode.el,v 4.19 1998/12/10 03:31:23 ilya Exp ilya $
+;; $Id: cperl-mode.el,v 4.32 2000/05/31 05:13:15 ilya Exp ilya $
-;;; Before RMS Emacs 20.3: To use this mode put the following into
+;;; If your Emacs does not default to `cperl-mode' on Perl files:
+;;; To use this mode put the following into
;;; your .emacs file:
;; (autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t)
@@ -788,7 +789,7 @@
;;; (`cperl-array-face'): One of definitions was garbled.
;;;; After 4.4:
-;;; (`cperl-not-bad-regexp'): Updated.
+;;; (`cperl-not-bad-style-regexp'): Updated.
;;; (`cperl-make-regexp-x'): Misprint in a message.
;;; (`cperl-find-pods-heres'): $a-1 ? foo : bar; was a regexp.
;;; `<< (' was considered a start of POD.
@@ -908,6 +909,142 @@
;;; (`cperl-calculate-indent'): Correct for labels when calculating
;;; indentation of continuations.
;;; Docstring updated.
+
+;;;; After 4.19:
+;;; Minor (mostly spelling) corrections from 20.3.3 merged.
+
+;;;; After 4.20:
+;;; (`cperl-tips'): Another workaround added. Sent to RMS for 20.4.
+
+;;;; After 4.21:
+;;; (`cperl-praise'): Mention linear-time indent.
+;;; (`cperl-find-pods-heres'): @if ? a : b was considered a REx.
+
+;;;; After 4.22:
+;;; (`cperl-after-expr-p'): Make true after __END__.
+;;; (`cperl-electric-pod'): "SYNOPSIS" was misspelled.
+
+;;;; After 4.23:
+;;; (`cperl-beautify-regexp-piece'): Was not allowing for *? after a class.
+;;; Allow for POSIX char-classes.
+;;; Remove trailing whitespace when
+;;; adding new linebreak.
+;;; Add a level counter to stop shallow.
+;;; Indents unprocessed groups rigidly.
+;;; (`cperl-beautify-regexp'): Add an optional count argument to go that
+;;; many levels deep.
+;;; (`cperl-beautify-level'): Likewise
+;;; Menu: Add new entries to Regexp menu to do one level
+;;; (`cperl-contract-level'): Was entering an infinite loop
+;;; (`cperl-find-pods-heres'): Typo (double quoting).
+;;; Was detecting < $file > as FH instead of glob.
+;;; Support for comments in RExen (except
+;;; for m#\#comment#x), governed by
+;;; `cperl-regexp-scan'.
+;;; (`cperl-regexp-scan'): New customization variable.
+;;; (`cperl-forward-re'): Improve logic of resetting syntax table.
+
+;;;; After 4.23 and: After 4.24:
+;;; (`cperl-contract-levels'): Restore position.
+;;; (`cperl-beautify-level'): Likewise.
+;;; (`cperl-beautify-regexp'): Likewise.
+;;; (`cperl-commentify'): Rudimental support for length=1 runs
+;;; (`cperl-find-pods-heres'): Process 1-char long REx comments too /a#/x
+;;; Processes REx-comments in #-delimited RExen.
+;;; MAJOR BUG CORRECTED: after a misparse
+;;; a body of a subroutine could be corrupted!!!
+;;; One might need to reeval the function body
+;;; to fix things. (A similar bug was
+;;; present in `cperl-indent-region' eons ago.)
+;;; To reproduce:
+;; (defun foo () (let ((a '(t))) (insert (format "%s" a)) (setcar a 'BUG) t))
+;; (foo)
+;; (foo)
+;;; C-x C-e the above three lines (at end-of-line). First evaluation
+;;; of `foo' inserts (t), second one inserts (BUG) ?!
+;;;
+;;; In CPerl it was triggered by inserting then deleting `/' at start of
+;;; / a (?# asdf {[(}asdf )ef,/;
+
+;;;; After 4.25:
+;;; (`cperl-commentify'): Was recognizing length=2 "strings" as length=1.
+;;; (`imenu-example--create-perl-index'):
+;;; Was not enforcing syntaxification-to-the-end.
+;;; (`cperl-invert-if-unless'): Allow `for', `foreach'.
+;;; (`cperl-find-pods-heres'): Quote `cperl-nonoverridable-face'.
+;;; Mark qw(), m()x as indentable.
+;;; (`cperl-init-faces'): Highlight `sysopen' too.
+;;; Highlight $var in `for my $var' too.
+;;; (`cperl-invert-if-unless'): Was leaving whitespace at end.
+;;; (`cperl-linefeed'): Was splitting $var{$foo} if point after `{'.
+;;; (`cperl-calculate-indent'): Remove old commented out code.
+;;; Support (primitive) indentation of qw(), m()x.
+
+
+;;;; After 4.26:
+;;; (`cperl-problems'): Mention `fill-paragraph' on comment. \"" and
+;;; q [] with intervening newlines.
+;;; (`cperl-autoindent-on-semi'): New customization variable.
+;;; (`cperl-electric-semi'): Use `cperl-autoindent-on-semi'.
+;;; (`cperl-tips'): Mention how to make CPerl the default mode.
+;;; (`cperl-mode'): Support `outline-minor-mode'
+;;; (Thanks to Mark A. Hershberger).
+;;; (`cperl-outline-level'): New function.
+;;; (`cperl-highlight-variables-indiscriminately'): New customization var.
+;;; (`cperl-init-faces'): Use `cperl-highlight-variables-indiscriminately'.
+;;; (Thanks to Sean Kamath <kamath@pogo.wv.tek.com>).
+;;; (`cperl-after-block-p'): Support CHECK and INIT.
+;;; (`cperl-init-faces'): Likewise and "our".
+;;; (Thanks to Doug MacEachern <dougm@covalent.net>).
+;;; (`cperl-short-docs'): Likewise and "our".
+
+
+;;;; After 4.27:
+;;; (`cperl-find-pods-heres'): Recognize \"" as a string.
+;;; Mark whitespace and comments between q and []
+;;; as `syntax-type' => `prestring'.
+;;; Allow whitespace between << and "FOO".
+;;; (`cperl-problems'): Remove \"" and q [] with intervening newlines.
+;;; Mention multiple <<EOF as unsupported.
+;;; (`cperl-highlight-variables-indiscriminately'): Doc misprint fixed.
+;;; (`cperl-indent-parens-as-block'): New configuration variable.
+;;; (`cperl-calculate-indent'): Merge cases of indenting non-BLOCK groups.
+;;; Use `cperl-indent-parens-as-block'.
+;;; (`cperl-find-pods-heres'): Test for =cut without empty line instead of
+;;; complaining about no =cut.
+;;; (`cperl-electric-pod'): Change the REx for POD from "\n\n=" to "^\n=".
+;;; (`cperl-find-pods-heres'): Likewise.
+;;; (`cperl-electric-pod'): Change `forward-sexp' to `forward-word':
+;;; POD could've been marked as comment already.
+;;; (`cperl-unwind-to-safe'): Unwind before start of POD too.
+
+;;;; After 4.28:
+;;; (`cperl-forward-re'): Throw an error at proper moment REx unfinished.
+
+;;;; After 4.29:
+;;; (`x-color-defined-p'): Make an extra case to peacify the warning.
+;;; Toplevel: `defvar' to peacify the warnings.
+;;; (`cperl-find-pods-heres'): Could access `font-lock-comment-face' in -nw.
+;;;; No -nw-compile time warnings now.
+;;; (`cperl-find-tags'): TAGS file had too short substring-to-search.
+;;; Be less verbose in non-interactive mode
+;;; (`imenu-example--create-perl-index'): Set index-marker after name
+;;; (`cperl-outline-regexp'): New variable.
+;;; (`cperl-outline-level'): Made compatible with `cperl-outline-regexp'.
+;;; (`cperl-mode'): Made use `cperl-outline-regexp'.
+
+;;;; After 4.30:
+;;; (`cperl-find-pods-heres'): =cut the last thing, no blank line, was error.
+;;; (`cperl-outline-level'): Make start-of-file same level as `package'.
+
+;;;; After 4.31:
+;;; (`cperl-electric-pod'): `head1' and `over' electric only if empty.
+;;; (`cperl-unreadable-ok'): New variable.
+;;; (`cperl-find-tags'): Use `cperl-unreadable-ok', do not fail
+;;; on an unreadable file
+;;; (`cperl-write-tags'): Use `cperl-unreadable-ok', do not fail
+;;; on an unreadable directory
+
;;; Code:
@@ -934,12 +1071,8 @@
;; XEmacs >= 19.12
((fboundp 'valid-color-name-p) (` (valid-color-name-p (, col))))
;; XEmacs 19.11
- (t (` (x-valid-color-name-p (, col)))))))
- (if (fboundp 'ps-extend-face-list)
- (defmacro cperl-ps-extend-face-list (arg)
- (` (ps-extend-face-list (, arg))))
- (defmacro cperl-ps-extend-face-list (arg)
- (` (error "This version of Emacs has no `ps-extend-face-list'."))))
+ ((fboundp 'x-valid-color-name-p) (` (x-valid-color-name-p (, col))))
+ (t '(error "Cannot implement color-defined-p")))))
(defmacro cperl-is-face (arg) ; Takes quoted arg
(cond ((fboundp 'find-face)
(` (find-face (, arg))))
@@ -1108,6 +1241,12 @@ Insertion after colons requires both this variable and
:type 'boolean
:group 'cperl-autoinsert-details)
+(defcustom cperl-autoindent-on-semi nil
+ "*Non-nil means automatically indent after insertion of (semi)colon.
+Active if `cperl-auto-newline' is false."
+ :type 'boolean
+ :group 'cperl-autoinsert-details)
+
(defcustom cperl-auto-newline-after-colon nil
"*Non-nil means automatically newline even after colons.
Subject to `cperl-auto-newline' setting."
@@ -1217,7 +1356,7 @@ Can be overwritten by `cperl-hairy' if nil."
(defcustom cperl-lazy-help-time nil
"*Not-nil (and non-null) means to show lazy help after given idle time.
Can be overwritten by `cperl-hairy' to be 5 sec if nil."
- :type '(choice (const null) integer)
+ :type '(choice (const null) (const nil) integer)
:group 'cperl-affected-by-hairy)
(defcustom cperl-pod-face 'font-lock-comment-face
@@ -1251,12 +1390,27 @@ Font for POD headers."
:type 'boolean
:group 'cperl-faces)
+(defcustom cperl-highlight-variables-indiscriminately nil
+ "*Not-nil means perform additional hightlighting on variables.
+Currently only changes how scalar variables are hightlighted.
+Note that that variable is only read at initialization time for
+the variable perl-font-lock-keywords-2, so changing it after you've
+entered cperl-mode the first time will have no effect."
+ :type 'boolean
+ :group 'cperl)
+
(defcustom cperl-pod-here-scan t
"*Not-nil means look for pod and here-docs sections during startup.
You can always make lookup from menu or using \\[cperl-find-pods-heres]."
:type 'boolean
:group 'cperl-speed)
+(defcustom cperl-regexp-scan t
+ "*Not-nil means make marking of regular expression more thorough.
+Effective only with `cperl-pod-here-scan'. Not implemented yet."
+ :type 'boolean
+ :group 'cperl-speed)
+
(defcustom cperl-imenu-addback nil
"*Not-nil means add backreferences to generated `imenu's.
May require patched `imenu' and `imenu-go'. Obsolete."
@@ -1354,11 +1508,17 @@ may be merged to be on the same line when indenting a region."
:type 'boolean
:group 'cperl-indentation-details)
+(defcustom cperl-indent-parens-as-block nil
+ "*Non-nil means that non-block ()-, {}- and []-groups are indented as blocks,
+but for trailing \",\" inside the group, which won't increase indentation.
+One should tune up `cperl-close-paren-offset' as well."
+ :type 'boolean
+ :group 'cperl-indentation-details)
+
(defcustom cperl-syntaxify-by-font-lock
(and window-system
(boundp 'parse-sexp-lookup-properties))
- "*Non-nil means that CPerl uses `font-lock's routines for syntaxification.
-Having it TRUE may be not completely debugged yet."
+ "*Non-nil means that CPerl uses `font-lock's routines for syntaxification."
:type '(choice (const message) boolean)
:group 'cperl-speed)
@@ -1462,6 +1622,11 @@ later you should use choose-color.el *instead* of font-lock-extra.el
Note that to enable Compile choices in the menu you need to install
mode-compile.el.
+If your Emacs does not default to `cperl-mode' on Perl files, and you
+want it to: put the following into your .emacs file:
+
+(autoload 'perl-mode \"cperl-mode\" \"alternate mode for editing Perl programs\" t)
+
Get perl5-info from
$CPAN/doc/manual/info/perl-info.tar.gz
older version was on
@@ -1485,6 +1650,11 @@ parsing of Perl even when editing, sometimes it may be lost. Fix this by
M-x norm RET
+In cases of more severe confusion sometimes it is helpful to do
+
+ M-x load-l RET cperl-mode RET
+ M-x norm RET
+
Before reporting (non-)problems look in the problem section of online
micro-docs on what I know about CPerl problems.")
@@ -1493,16 +1663,21 @@ micro-docs on what I know about CPerl problems.")
install choose-color.el, available from
ftp://ftp.math.ohio-state.edu/pub/users/ilya/emacs/
+`fill-paragraph' on a comment may leave the point behind the
+paragraph. Parsing of lines with several <<EOF is not implemented
+yet.
+
Emacs had a _very_ restricted syntax parsing engine until RMS's Emacs
20.1. Most problems below are corrected starting from this version of
-Emacs, and all of them should go with RMS's version 20.3.
-(Or apply patches to Emacs 19.33/34 - see tips.)
+Emacs, and all of them should go with RMS's version 20.3. (Or apply
+patches to Emacs 19.33/34 - see tips.) XEmacs is very backward in
+this respect.
-Note that even with newer Emacsen interaction of `font-lock' and
-syntaxification is not cleaned up. You may get slightly different
-colors basing on the order of fontification and syntaxification. This
-might be corrected by setting `cperl-syntaxify-by-font-lock' to t, but
-the corresponding code may still contain some bugs.
+Note that even with newer Emacsen in some very rare cases the details
+of interaction of `font-lock' and syntaxification may be not cleaned
+up yet. You may get slightly different colors basing on the order of
+fontification and syntaxification. Say, the initial faces is correct,
+but editing the buffer breaks this.
Even with older Emacsen CPerl mode tries to corrects some Emacs
misunderstandings, however, for efficiency reasons the degree of
@@ -1565,7 +1740,7 @@ would. Upgrade.
By similar reasons
s\"abc\"def\";
-would confuse CPerl a lot.
+could confuse CPerl a lot.
If you still get wrong indentation in situation that you think the
code should be able to parse, try:
@@ -1586,7 +1761,7 @@ Imenu in 19.31 is broken. Set `imenu-use-keymap-menu' to t, and remove
`car' before `imenu-choose-buffer-index' in `imenu'.
`imenu-add-to-menubar' in 20.2 is broken.
A lot of things on XEmacs may be broken too, judging by bug reports I
-recieve. Note that some releases of XEmacs are better than the others
+receive. Note that some releases of XEmacs are better than the others
as far as bugs reports I see are concerned.")
(defvar cperl-praise 'please-ignore-this-line
@@ -1650,8 +1825,10 @@ voice);
B if A;
n) Highlights (by user-choice) either 3-delimiters constructs
- (such as tr/a/b/), or regular expressions and `y/tr'.
- m) Highlights trailing whitespace.
+ (such as tr/a/b/), or regular expressions and `y/tr';
+ o) Highlights trailing whitespace;
+ p) Is able to manipulate Perl Regular Expressions to ease
+ conversion to a more readable form.
5) The indentation engine was very smart, but most of tricks may be
not needed anymore with the support for `syntax-table' property. Has
@@ -1667,6 +1844,9 @@ the settings present before the switch.
9) When doing indentation of control constructs, may correct
line-breaks/spacing between elements of the construct.
+
+10) Uses a linear-time algorith for indentation of regions (on Emaxen with
+capable syntax engines).
")
(defvar cperl-speed 'please-ignore-this-line
@@ -1857,6 +2037,11 @@ the faces: please specify bold, italic, underline, shadow and box.)
(condition-case nil
(require 'info)
(error nil))
+ (if (fboundp 'ps-extend-face-list)
+ (defmacro cperl-ps-extend-face-list (arg)
+ (` (ps-extend-face-list (, arg))))
+ (defmacro cperl-ps-extend-face-list (arg)
+ (` (error "This version of Emacs has no `ps-extend-face-list'."))))
;; Calling `cperl-enable-font-lock' below doesn't compile on XEmacs,
;; macros instead of defsubsts don't work on Emacs, so we do the
;; expansion manually. Any other suggestions?
@@ -1961,12 +2146,16 @@ the faces: please specify bold, italic, underline, shadow and box.)
["Fill paragraph/comment" cperl-fill-paragraph t]
"----"
["Line up a construction" cperl-lineup (cperl-use-region-p)]
- ["Invert if/unless/while/until" cperl-invert-if-unless t]
+ ["Invert if/unless/while etc" cperl-invert-if-unless t]
("Regexp"
["Beautify" cperl-beautify-regexp
cperl-use-syntax-table-text-property]
+ ["Beautify one level deep" (cperl-beautify-regexp 1)
+ cperl-use-syntax-table-text-property]
["Beautify a group" cperl-beautify-level
cperl-use-syntax-table-text-property]
+ ["Beautify a group one level deep" (cperl-beautify-level 1)
+ cperl-use-syntax-table-text-property]
["Contract a group" cperl-contract-level
cperl-use-syntax-table-text-property]
["Contract groups" cperl-contract-levels
@@ -2108,6 +2297,9 @@ The expansion is entirely correct because it uses the C preprocessor."
(defvar perl-font-lock-keywords)
(defvar perl-font-lock-keywords-1)
(defvar perl-font-lock-keywords-2)
+(defvar outline-level)
+(defvar cperl-outline-regexp)
+
;;;###autoload
(defun cperl-mode ()
"Major mode for editing Perl code.
@@ -2305,6 +2497,10 @@ or as help on variables `cperl-tips', `cperl-problems',
("formy" "formy" cperl-electric-keyword 0)
("foreachmy" "foreachmy" cperl-electric-keyword 0)
("do" "do" cperl-electric-keyword 0)
+ ("=pod" "=pod" cperl-electric-pod 0)
+ ("=over" "=over" cperl-electric-pod 0)
+ ("=head1" "=head1" cperl-electric-pod 0)
+ ("=head2" "=head2" cperl-electric-pod 0)
("pod" "pod" cperl-electric-pod 0)
("over" "over" cperl-electric-pod 0)
("head1" "head1" cperl-electric-pod 0)
@@ -2313,6 +2509,11 @@ or as help on variables `cperl-tips', `cperl-problems',
(setq local-abbrev-table cperl-mode-abbrev-table)
(abbrev-mode (if (cperl-val 'cperl-electric-keywords) 1 0))
(set-syntax-table cperl-mode-syntax-table)
+ (make-local-variable 'outline-regexp)
+ ;; (setq outline-regexp imenu-example--function-name-regexp-perl)
+ (setq outline-regexp cperl-outline-regexp)
+ (make-local-variable 'outline-level)
+ (setq outline-level 'cperl-outline-level)
(make-local-variable 'paragraph-start)
(setq paragraph-start (concat "^$\\|" page-delimiter))
(make-local-variable 'paragraph-separate)
@@ -2784,21 +2985,22 @@ to nil."
(memq this-command '(self-insert-command newline))))
head1 notlast name p really-delete over)
(and (save-excursion
- (condition-case nil
- (backward-sexp 1)
- (error nil))
+ (forward-word -1)
(and
(eq (preceding-char) ?=)
(progn
- (setq head1 (looking-at "head1\\>"))
- (setq over (looking-at "over\\>"))
+ (setq head1 (looking-at "head1\\>[ \t]*$"))
+ (setq over (and (looking-at "over\\>[ \t]*$")
+ (not (looking-at "over[ \t]*\n\n\n*=item\\>"))))
(forward-char -1)
(bolp))
(or
(get-text-property (point) 'in-pod)
(cperl-after-expr-p nil "{;:")
(and (re-search-backward
- "\\(\\`\n?\\|\n\n\\)=\\sw+" (point-min) t)
+ ;; "\\(\\`\n?\\|\n\n\\)=\\sw+"
+ "\\(\\`\n?\\|^\n\\)=\\sw+"
+ (point-min) t)
(not (or
(looking-at "=cut")
(and cperl-use-syntax-table-text-property
@@ -2806,12 +3008,12 @@ to nil."
'pod)))))))))
(progn
(save-excursion
- (setq notlast (search-forward "\n\n=" nil t)))
+ (setq notlast (re-search-forward "^\n=" nil t)))
(or notlast
(progn
(insert "\n\n=cut")
(cperl-ensure-newlines 2)
- (forward-sexp -2)
+ (forward-word -2)
(if (and head1
(not
(save-excursion
@@ -2819,19 +3021,19 @@ to nil."
(re-search-backward "\\(\\`\n?\\|\n\n\\)=head1\\>"
nil t)))) ; Only one
(progn
- (forward-sexp 1)
+ (forward-word 1)
(setq name (file-name-sans-extension
(file-name-nondirectory (buffer-file-name)))
p (point))
(insert " NAME\n\n" name
- " - \n\n=head1 SYNOPSYS\n\n\n\n"
+ " - \n\n=head1 SYNOPSIS\n\n\n\n"
"=head1 DESCRIPTION")
(cperl-ensure-newlines 4)
(goto-char p)
- (forward-sexp 2)
+ (forward-word 2)
(end-of-line)
(setq really-delete t))
- (forward-sexp 1))))
+ (forward-word 1))))
(if over
(progn
(setq p (point))
@@ -2839,7 +3041,7 @@ to nil."
"=back")
(cperl-ensure-newlines 2)
(goto-char p)
- (forward-sexp 1)
+ (forward-word 1)
(end-of-line)
(setq really-delete t)))
(if (and delete really-delete)
@@ -2908,6 +3110,7 @@ If in POD, insert appropriate lines."
; Leave the level of parens
(looking-at "[,; \t]*\\($\\|#\\)") ; Comma to allow anon subr
; Are at end
+ (cperl-after-block-p (point-min))
(progn
(backward-sexp 1)
(setq start (point-marker))
@@ -2995,7 +3198,9 @@ If in POD, insert appropriate lines."
(interactive "P")
(if cperl-auto-newline
(cperl-electric-terminator arg)
- (self-insert-command (prefix-numeric-value arg))))
+ (self-insert-command (prefix-numeric-value arg))
+ (if cperl-autoindent-on-semi
+ (cperl-indent-line))))
(defun cperl-electric-terminator (arg)
"Insert character and correct line's indentation."
@@ -3234,8 +3439,9 @@ Will not correct the indentation for labels, but will correct it for braces
and closing parentheses and brackets.."
(save-excursion
(if (or
- (memq (get-text-property (point) 'syntax-type)
- '(pod here-doc here-doc-delim format))
+ (and (memq (get-text-property (point) 'syntax-type)
+ '(pod here-doc here-doc-delim format))
+ (not (get-text-property (point) 'indentable)))
;; before start of POD - whitespace found since do not have 'pod!
(and (looking-at "[ \t]*\n=")
(error "Spaces before pod section!"))
@@ -3249,7 +3455,7 @@ and closing parentheses and brackets.."
(following-char)))
(in-pod (get-text-property (point) 'in-pod))
(pre-indent-point (point))
- p prop look-prop)
+ p prop look-prop is-block delim)
(cond
(in-pod
;; In the verbatim part, probably code example. What to do???
@@ -3286,48 +3492,18 @@ and closing parentheses and brackets.."
(setcar (cddr parse-data) start))
;; Before this point: end of statement
(setq old-indent (nth 3 parse-data))))
- ;; (or parse-start (null symbol)
- ;; (setq parse-start (symbol-value symbol)
- ;; start-indent (nth 2 parse-start)
- ;; parse-start (car parse-start)))
- ;; (if parse-start
- ;; (goto-char parse-start)
- ;; (beginning-of-defun))
- ;; ;; Try to go out
- ;; (while (< (point) indent-point)
- ;; (setq start (point) parse-start start moved nil
- ;; state (parse-partial-sexp start indent-point -1))
- ;; (if (> (car state) -1) nil
- ;; ;; The current line could start like }}}, so the indentation
- ;; ;; corresponds to a different level than what we reached
- ;; (setq moved t)
- ;; (beginning-of-line 2))) ; Go to the next line.
- ;; (if start ; Not at the start of file
- ;; (progn
- ;; (goto-char start)
- ;; (setq start-indent (current-indentation))
- ;; (if moved ; Should correct...
- ;; (setq start-indent (- start-indent cperl-indent-level))))
- ;; (setq start-indent 0))
- ;; (if (< (point) indent-point) (setq parse-start (point)))
- ;; (or state (setq state (parse-partial-sexp
- ;; (point) indent-point -1 nil start-state)))
- ;; (setq containing-sexp
- ;; (or (car (cdr state))
- ;; (and (>= (nth 6 state) 0) old-containing-sexp))
- ;; old-containing-sexp nil start-state nil)
-;;;; (while (< (point) indent-point)
-;;;; (setq parse-start (point))
-;;;; (setq state (parse-partial-sexp (point) indent-point -1 nil start-state))
-;;;; (setq containing-sexp
-;;;; (or (car (cdr state))
-;;;; (and (>= (nth 6 state) 0) old-containing-sexp))
-;;;; old-containing-sexp nil start-state nil))
- ;; (if symbol (set symbol (list indent-point state start-indent)))
- ;; (goto-char indent-point)
- (cond ((or (nth 3 state) (nth 4 state))
+ (cond ((get-text-property (point) 'indentable)
+ ;; indent to just after the surrounding open,
+ ;; skip blanks if we do not close the expression.
+ (goto-char (1+ (previous-single-property-change (point) 'indentable)))
+ (or (memq char-after (append ")]}" nil))
+ (looking-at "[ \t]*\\(#\\|$\\)")
+ (skip-chars-forward " \t"))
+ (current-column))
+ ((or (nth 3 state) (nth 4 state))
;; return nil or t if should not change this line
(nth 4 state))
+ ;; XXXX Do we need to special-case this?
((null containing-sexp)
;; Line is at top level. May be data or function definition,
;; or may be function argument declaration.
@@ -3366,27 +3542,50 @@ and closing parentheses and brackets.."
(list pre-indent-point)))
0)
cperl-continued-statement-offset))))
- ((/= (char-after containing-sexp) ?{)
- ;; line is expression, not statement:
- ;; indent to just after the surrounding open,
+ ((not
+ (or (setq is-block
+ (and (setq delim (= (char-after containing-sexp) ?{))
+ (save-excursion ; Is it a hash?
+ (goto-char containing-sexp)
+ (cperl-block-p))))
+ cperl-indent-parens-as-block))
+ ;; group is an expression, not a block:
+ ;; indent to just after the surrounding open parens,
;; skip blanks if we do not close the expression.
(goto-char (1+ containing-sexp))
- (or (memq char-after (append ")]}" nil))
+ (or (memq char-after
+ (append (if delim "}" ")]}") nil))
(looking-at "[ \t]*\\(#\\|$\\)")
(skip-chars-forward " \t"))
- (current-column))
- ((progn
- ;; Containing-expr starts with \{. Check whether it is a hash.
- (goto-char containing-sexp)
- (not (cperl-block-p)))
- (goto-char (1+ containing-sexp))
- (or (eq char-after ?\})
- (looking-at "[ \t]*\\(#\\|$\\)")
- (skip-chars-forward " \t"))
- (+ (current-column) ; Correct indentation of trailing ?\}
- (if (eq char-after ?\}) (+ cperl-indent-level
- cperl-close-paren-offset)
+ (+ (current-column)
+ (if (and delim
+ (eq char-after ?\}))
+ ;; Correct indentation of trailing ?\}
+ (+ cperl-indent-level cperl-close-paren-offset)
0)))
+;;; ((and (/= (char-after containing-sexp) ?{)
+;;; (not cperl-indent-parens-as-block))
+;;; ;; line is expression, not statement:
+;;; ;; indent to just after the surrounding open,
+;;; ;; skip blanks if we do not close the expression.
+;;; (goto-char (1+ containing-sexp))
+;;; (or (memq char-after (append ")]}" nil))
+;;; (looking-at "[ \t]*\\(#\\|$\\)")
+;;; (skip-chars-forward " \t"))
+;;; (current-column))
+;;; ((progn
+;;; ;; Containing-expr starts with \{. Check whether it is a hash.
+;;; (goto-char containing-sexp)
+;;; (and (not (cperl-block-p))
+;;; (not cperl-indent-parens-as-block)))
+;;; (goto-char (1+ containing-sexp))
+;;; (or (eq char-after ?\})
+;;; (looking-at "[ \t]*\\(#\\|$\\)")
+;;; (skip-chars-forward " \t"))
+;;; (+ (current-column) ; Correct indentation of trailing ?\}
+;;; (if (eq char-after ?\}) (+ cperl-indent-level
+;;; cperl-close-paren-offset)
+;;; 0)))
(t
;; Statement level. Is it a continuation or a new statement?
;; Find previous non-comment character.
@@ -3408,11 +3607,12 @@ and closing parentheses and brackets.."
(beginning-of-line)
(cperl-backward-to-noncomment containing-sexp))
;; Now we get the answer.
- ;; Had \?, too:
- (if (not (or (memq (preceding-char) (append " ;{" '(nil)))
+ (if (not (or (eq (1- (point)) containing-sexp)
+ (memq (preceding-char)
+ (append (if is-block " ;{" " ,;{") '(nil)))
(and (eq (preceding-char) ?\})
(cperl-after-block-and-statement-beg
- containing-sexp)))) ; Was ?\,
+ containing-sexp))))
;; This line is continuation of preceding line's statement;
;; indent `cperl-continued-statement-offset' more than the
;; previous line of the statement.
@@ -3424,6 +3624,12 @@ and closing parentheses and brackets.."
(+ (if (memq char-after (append "}])" nil))
0 ; Closing parenth
cperl-continued-statement-offset)
+ (if (or is-block
+ (not delim)
+ (not (eq char-after ?\})))
+ 0
+ ;; Now it is a hash reference
+ (+ cperl-indent-level cperl-close-paren-offset))
(if (looking-at "\\w+[ \t]*:")
(if (> (current-indentation) cperl-min-label-indent)
(- (current-indentation) cperl-label-offset)
@@ -3479,6 +3685,12 @@ and closing parentheses and brackets.."
(+ (if (and (bolp) (zerop cperl-indent-level))
(+ cperl-brace-offset cperl-continued-statement-offset)
cperl-indent-level)
+ (if (or is-block
+ (not delim)
+ (not (eq char-after ?\})))
+ 0
+ ;; Now it is a hash reference
+ (+ cperl-indent-level cperl-close-paren-offset))
;; Move back over whitespace before the openbrace.
;; If openbrace is not first nonwhite thing on the line,
;; add the cperl-brace-imaginary-offset.
@@ -3766,8 +3978,11 @@ Returns true if comment is found."
nil
;; We suppose that e is _after_ the end of construction, as after eol.
(setq string (if string cperl-st-sfence cperl-st-cfence))
- (cperl-modify-syntax-type bb string)
- (cperl-modify-syntax-type (1- e) string)
+ (if (> bb (- e 2))
+ ;; one-char string/comment?!
+ (cperl-modify-syntax-type bb cperl-st-punct)
+ (cperl-modify-syntax-type bb string)
+ (cperl-modify-syntax-type (1- e) string))
(if (and (eq string cperl-st-sfence) (> (- e 2) bb))
(put-text-property (1+ bb) (1- e)
'syntax-table cperl-string-syntax-table))
@@ -3777,6 +3992,7 @@ Returns true if comment is found."
(not cperl-pod-here-fontify)
(put-text-property bb e 'face (if string 'font-lock-string-face
'font-lock-comment-face)))))
+
(defvar cperl-starters '(( ?\( . ?\) )
( ?\[ . ?\] )
( ?\{ . ?\} )
@@ -3786,7 +4002,7 @@ Returns true if comment is found."
&optional ostart oend)
;; Works *before* syntax recognition is done
;; May modify syntax-type text property if the situation is too hard
- (let (b starter ender st i i2 go-forward)
+ (let (b starter ender st i i2 go-forward reset-st)
(skip-chars-forward " \t")
;; ender means matching-char matcher.
(setq b (point)
@@ -3819,9 +4035,13 @@ Returns true if comment is found."
(not ender))
;; $ has TeXish matching rules, so $$ equiv $...
(forward-char 2)
+ (setq reset-st (syntax-table))
(set-syntax-table st)
(forward-sexp 1)
- (set-syntax-table cperl-mode-syntax-table)
+ (if (<= (point) (1+ b))
+ (error "Unfinished regular expression"))
+ (set-syntax-table reset-st)
+ (setq reset-st nil)
;; Now the problem is with m;blah;;
(and (not ender)
(eq (preceding-char)
@@ -3858,6 +4078,8 @@ Returns true if comment is found."
ender (nth 2 ender)))))
(error (goto-char lim)
(setq set-st nil)
+ (if reset-st
+ (set-syntax-table reset-st))
(or end
(message
"End of `%s%s%c ... %c' string/RE not found: %s"
@@ -3873,7 +4095,7 @@ Returns true if comment is found."
;; i2: start of the second arg, if any (before delim iff `ender').
;; ender: the last arg bounded by parens-like chars, the second one of them
;; starter: the starting delimiter of the first arg
- ;; go-forward: has 2 args, and the second part is empth
+ ;; go-forward: has 2 args, and the second part is empty
(list i i2 ender starter go-forward)))
(defvar font-lock-string-face)
@@ -3899,6 +4121,7 @@ Returns true if comment is found."
;; After-initial-line--to-end is marked `syntax-type' ==> `format'
;; d) 'Q'uoted string:
;; part between markers inclusive is marked `syntax-type' ==> `string'
+;; part between `q' and the first marker is marked `syntax-type' ==> `prestring'
(defun cperl-unwind-to-safe (before &optional end)
;; if BEFORE, go to the previous start-of-line on each step of unwinding
@@ -3915,6 +4138,11 @@ Returns true if comment is found."
(goto-char (setq pos (cperl-1- pos))))
;; Up to the start
(goto-char (point-min))))
+ ;; Skip empty lines
+ (and (looking-at "\n*=")
+ (/= 0 (skip-chars-backward "\n"))
+ (forward-char))
+ (setq pos (point))
(if end
;; Do the same for end, going small steps
(progn
@@ -3923,6 +4151,10 @@ Returns true if comment is found."
end (next-single-property-change end 'syntax-type)))
(or end pos)))))
+(defvar cperl-nonoverridable-face)
+(defvar font-lock-function-name-face)
+(defvar font-lock-comment-face)
+
(defun cperl-find-pods-heres (&optional min max non-inter end ignore-max)
"Scans the buffer for hard-to-parse Perl constructions.
If `cperl-pod-here-fontify' is not-nil after evaluation, will fontify
@@ -3934,6 +4166,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
cperl-syntax-done-to min))
(or max (setq max (point-max)))
(let* (face head-face here-face b e bb tag qtag b1 e1 argument i c tail tb
+ is-REx is-x-REx REx-comment-start REx-comment-end was-comment i2
(cperl-pod-here-fontify (eval cperl-pod-here-fontify)) go tmpend
(case-fold-search nil) (inhibit-read-only t) (buffer-undo-list t)
(modified (buffer-modified-p))
@@ -3945,7 +4178,8 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
(point-min)))
(state (if use-syntax-state
(cdr cperl-syntax-state)))
- (st-l '(nil)) (err-l '(nil)) i2
+ ;; (st-l '(nil)) (err-l '(nil)) ; Would overwrite - propagates from a function call to a function call!
+ (st-l (list nil)) (err-l (list nil))
;; Somehow font-lock may be not loaded yet...
(font-lock-string-face (if (boundp 'font-lock-string-face)
font-lock-string-face
@@ -3957,6 +4191,10 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
(if (boundp 'font-lock-function-name-face)
font-lock-function-name-face
'font-lock-function-name-face))
+ (font-lock-comment-face
+ (if (boundp 'font-lock-comment-face)
+ font-lock-comment-face
+ 'font-lock-comment-face))
(cperl-nonoverridable-face
(if (boundp 'cperl-nonoverridable-face)
cperl-nonoverridable-face
@@ -3966,13 +4204,14 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
max))
(search
(concat
- "\\(\\`\n?\\|\n\n\\)="
+ "\\(\\`\n?\\|^\n\\)="
"\\|"
;; One extra () before this:
"<<"
"\\(" ; 1 + 1
;; First variant "BLAH" or just ``.
- "\\([\"'`]\\)" ; 2 + 1
+ "[ \t]*" ; Yes, whitespace is allowed!
+ "\\([\"'`]\\)" ; 2 + 1 = 3
"\\([^\"'`\n]*\\)" ; 3 + 1
"\\3"
"\\|"
@@ -4004,7 +4243,10 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
"\\(\\<sub[ \t\n\f]+\\|[&*$@%]\\)[a-zA-Z0-9_]*'"
;; 1+6+2+1+1+2+1+1=15 extra () before this:
"\\|"
- "__\\(END\\|DATA\\)__" ; Commented - does not help with indent...
+ "__\\(END\\|DATA\\)__"
+ ;; 1+6+2+1+1+2+1+1+1=16 extra () before this:
+ "\\|"
+ "\\\\\\(['`\"]\\)"
)
""))))
(unwind-protect
@@ -4019,7 +4261,10 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
here-face cperl-here-face))
(remove-text-properties min max
'(syntax-type t in-pod t syntax-table t
- cperl-postpone t))
+ cperl-postpone t
+ syntax-subtype t
+ rear-nonsticky t
+ indentable t))
;; Need to remove face as well...
(goto-char min)
(and (eq system-type 'emx)
@@ -4033,8 +4278,8 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
(setq tmpend nil) ; Valid for most cases
(cond
((match-beginning 1) ; POD section
- ;; "\\(\\`\n?\\|\n\n\\)="
- (if (looking-at "\n*cut\\>")
+ ;; "\\(\\`\n?\\|^\n\\)="
+ (if (looking-at "cut\\>")
(if ignore-max
nil ; Doing a chunk only
(message "=cut is not preceded by a POD section")
@@ -4047,61 +4292,64 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
b1 nil) ; error condition
;; We do not search to max, since we may be called from
;; some hook of fontification, and max is random
- (or (re-search-forward "\n\n=cut\\>" stop-point 'toend)
+ (or (re-search-forward "^\n=cut\\>" stop-point 'toend)
(progn
- (message "End of a POD section not marked by =cut")
- (setq b1 t)
- (or (car err-l) (setcar err-l b))))
+ (goto-char b)
+ (if (re-search-forward "\n=cut\\>" stop-point 'toend)
+ (progn
+ (message "=cut is not preceded by an empty line")
+ (setq b1 t)
+ (or (car err-l) (setcar err-l b))))))
(beginning-of-line 2) ; An empty line after =cut is not POD!
(setq e (point))
- (if (and b1 (eobp))
- ;; Unrecoverable error
- nil
- (and (> e max)
- (progn
- (remove-text-properties
- max e '(syntax-type t in-pod t syntax-table t
- 'cperl-postpone t))
- (setq tmpend tb)))
- (put-text-property b e 'in-pod t)
- (put-text-property b e 'syntax-type 'in-pod)
- (goto-char b)
- (while (re-search-forward "\n\n[ \t]" e t)
- ;; We start 'pod 1 char earlier to include the preceding line
- (beginning-of-line)
- (put-text-property (cperl-1- b) (point) 'syntax-type 'pod)
- (cperl-put-do-not-fontify b (point) t)
- ;; mark the non-literal parts as PODs
- (if cperl-pod-here-fontify
- (cperl-postpone-fontification b (point) 'face face t))
- (re-search-forward "\n\n[^ \t\f\n]" e 'toend)
- (beginning-of-line)
- (setq b (point)))
- (put-text-property (cperl-1- (point)) e 'syntax-type 'pod)
- (cperl-put-do-not-fontify (point) e t)
+ (and (> e max)
+ (progn
+ (remove-text-properties
+ max e '(syntax-type t in-pod t syntax-table t
+ cperl-postpone t
+ syntax-subtype t
+ rear-nonsticky t
+ indentable t))
+ (setq tmpend tb)))
+ (put-text-property b e 'in-pod t)
+ (put-text-property b e 'syntax-type 'in-pod)
+ (goto-char b)
+ (while (re-search-forward "\n\n[ \t]" e t)
+ ;; We start 'pod 1 char earlier to include the preceding line
+ (beginning-of-line)
+ (put-text-property (cperl-1- b) (point) 'syntax-type 'pod)
+ (cperl-put-do-not-fontify b (point) t)
+ ;; mark the non-literal parts as PODs
(if cperl-pod-here-fontify
- (progn
- ;; mark the non-literal parts as PODs
- (cperl-postpone-fontification (point) e 'face face t)
- (goto-char bb)
- (if (looking-at
- "=[a-zA-Z0-9_]+\\>[ \t]*\\(\\(\n?[^\n]\\)+\\)$")
- ;; mark the headers
- (cperl-postpone-fontification
- (match-beginning 1) (match-end 1)
- 'face head-face))
- (while (re-search-forward
- ;; One paragraph
- "\n\n=[a-zA-Z0-9_]+\\>[ \t]*\\(\\(\n?[^\n]\\)+\\)$"
- e 'toend)
+ (cperl-postpone-fontification b (point) 'face face t))
+ (re-search-forward "\n\n[^ \t\f\n]" e 'toend)
+ (beginning-of-line)
+ (setq b (point)))
+ (put-text-property (cperl-1- (point)) e 'syntax-type 'pod)
+ (cperl-put-do-not-fontify (point) e t)
+ (if cperl-pod-here-fontify
+ (progn
+ ;; mark the non-literal parts as PODs
+ (cperl-postpone-fontification (point) e 'face face t)
+ (goto-char bb)
+ (if (looking-at
+ "=[a-zA-Z0-9_]+\\>[ \t]*\\(\\(\n?[^\n]\\)+\\)$")
;; mark the headers
(cperl-postpone-fontification
(match-beginning 1) (match-end 1)
- 'face head-face))))
- (cperl-commentify bb e nil)
- (goto-char e)
- (or (eq e (point-max))
- (forward-char -1))))) ; Prepare for immediate pod start.
+ 'face head-face))
+ (while (re-search-forward
+ ;; One paragraph
+ "^\n=[a-zA-Z0-9_]+\\>[ \t]*\\(\\(\n?[^\n]\\)+\\)$"
+ e 'toend)
+ ;; mark the headers
+ (cperl-postpone-fontification
+ (match-beginning 1) (match-end 1)
+ 'face head-face))))
+ (cperl-commentify bb e nil)
+ (goto-char e)
+ (or (eq e (point-max))
+ (forward-char -1)))) ; Prepare for immediate pod start.
;; Here document
;; We do only one here-per-line
;; ;; One extra () before this:
@@ -4239,16 +4487,16 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
(or
(memq bb '(?\$ ?\@ ?\% ?\* ?\#)) ; $#y
(and (eq bb ?-) (eq c ?s)) ; -s file test
- (and (eq bb ?\&) ; &&m/blah/
- (not (eq (char-after
+ (and (eq bb ?\&)
+ (not (eq (char-after ; &&m/blah/
(- (match-beginning b1) 2))
?\&))))
;; <file> or <$file>
(and (eq c ?\<)
- ;; Do not stringify <FH> :
+ ;; Do not stringify <FH>, <$fh> :
(save-match-data
(looking-at
- "\\s *\\$?\\([_a-zA-Z:][_a-zA-Z0-9:]*\\s *\\)?>"))))
+ "\\$?\\([_a-zA-Z:][_a-zA-Z0-9:]*\\)?>"))))
tb (match-beginning 0))
(goto-char (match-beginning b1))
(cperl-backward-to-noncomment (point-min))
@@ -4275,8 +4523,11 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
(if (eq (preceding-char) ?-)
;; -d ?foo? is a RE
(looking-at "[a-zA-Z]\\>")
- (looking-at
- "\\(while\\|if\\|unless\\|until\\|and\\|or\\|not\\|xor\\|split\\|grep\\|map\\|print\\)\\>"))))
+ (and
+ (not (memq (preceding-char)
+ '(?$ ?@ ?& ?%)))
+ (looking-at
+ "\\(while\\|if\\|unless\\|until\\|and\\|or\\|not\\|xor\\|split\\|grep\\|map\\|print\\)\\>")))))
(and (eq (preceding-char) ?.)
(eq (char-after (- (point) 2)) ?.))
(bobp))
@@ -4301,9 +4552,12 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
(goto-char b)
(if (or bb (nth 3 state) (nth 4 state))
(goto-char i)
+ ;; Skip whitespace and comments...
(if (looking-at "[ \t\n\f]+\\(#[^\n]*\n[ \t\n\f]*\\)+")
(goto-char (match-end 0))
(skip-chars-forward " \t\n\f"))
+ (if (> (point) b)
+ (put-text-property b (point) 'syntax-type 'prestring))
;; qtag means two-arg matcher, may be reset to
;; 2 or 3 later if some special quoting is needed.
;; e1 means matching-char matcher.
@@ -4326,16 +4580,23 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
tail (if (and i (not tag))
(1- e1))
e (if i i e1) ; end of the first part
- qtag nil) ; need to preserve backslashitis
+ qtag nil ; need to preserve backslashitis
+ is-x-REx nil) ; REx has //x modifier
;; Commenting \\ is dangerous, what about ( ?
(and i tail
(eq (char-after i) ?\\)
(setq qtag t))
+ (if (looking-at "\\sw*x") ; qr//x
+ (setq is-x-REx t))
(if (null i)
;; Considered as 1arg form
(progn
(cperl-commentify b (point) t)
(put-text-property b (point) 'syntax-type 'string)
+ (if (or is-x-REx
+ ;; ignore other text properties:
+ (string-match "^qw$" argument))
+ (put-text-property b (point) 'indentable t))
(and go
(setq e1 (cperl-1+ e1))
(or (eobp)
@@ -4352,9 +4613,13 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
(progn
(cperl-modify-syntax-type (1- (point)) cperl-st-ket)
(cperl-modify-syntax-type i cperl-st-bra)))
- (put-text-property b i 'syntax-type 'string))
+ (put-text-property b i 'syntax-type 'string)
+ (if is-x-REx
+ (put-text-property b i 'indentable t)))
(cperl-commentify b1 (point) t)
(put-text-property b (point) 'syntax-type 'string)
+ (if is-x-REx
+ (put-text-property b i 'indentable t))
(if qtag
(cperl-modify-syntax-type (1+ i) cperl-st-punct))
(setq tail nil)))
@@ -4364,12 +4629,15 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
(forward-word 1) ; skip modifiers s///s
(if tail (cperl-commentify tail (point) t))
(cperl-postpone-fontification
- e1 (point) 'face cperl-nonoverridable-face)))
+ e1 (point) 'face 'cperl-nonoverridable-face)))
;; Check whether it is m// which means "previous match"
;; and highlight differently
- (if (and (eq e (+ 2 b))
- (string-match "^\\([sm]?\\|qr\\)$" argument)
- ;; <> is already filtered out
+ (setq is-REx
+ (and (string-match "^\\([sm]?\\|qr\\)$" argument)
+ (or (not (= (length argument) 0))
+ (not (eq c ?\<)))))
+ (if (and is-REx
+ (eq e (+ 2 b))
;; split // *is* using zero-pattern
(save-excursion
(condition-case nil
@@ -4390,7 +4658,56 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
(cperl-postpone-fontification
b (cperl-1+ b) 'face font-lock-constant-face)
(cperl-postpone-fontification
- (1- e) e 'face font-lock-constant-face))))
+ (1- e) e 'face font-lock-constant-face)))
+ (if (and is-REx cperl-regexp-scan)
+ ;; Process RExen better
+ (save-excursion
+ (goto-char (1+ b))
+ (while
+ (and (< (point) e)
+ (re-search-forward
+ (if is-x-REx
+ (if (eq (char-after b) ?\#)
+ "\\((\\?\\\\#\\)\\|\\(\\\\#\\)"
+ "\\((\\?#\\)\\|\\(#\\)")
+ (if (eq (char-after b) ?\#)
+ "\\((\\?\\\\#\\)"
+ "\\((\\?#\\)"))
+ (1- e) 'to-end))
+ (goto-char (match-beginning 0))
+ (setq REx-comment-start (point)
+ was-comment t)
+ (if (save-excursion
+ (and
+ ;; XXX not working if outside delimiter is #
+ (eq (preceding-char) ?\\)
+ (= (% (skip-chars-backward "$\\\\") 2) -1)))
+ ;; Not a comment, avoid loop:
+ (progn (setq was-comment nil)
+ (forward-char 1))
+ (if (match-beginning 2)
+ (progn
+ (beginning-of-line 2)
+ (if (> (point) e)
+ (goto-char (1- e))))
+ ;; Works also if the outside delimiters are ().
+ (or (search-forward ")" (1- e) 'toend)
+ (message
+ "Couldn't find end of (?#...)-comment in a REx, pos=%s"
+ REx-comment-start))))
+ (if (>= (point) e)
+ (goto-char (1- e)))
+ (if was-comment
+ (progn
+ (setq REx-comment-end (point))
+ (cperl-commentify
+ REx-comment-start REx-comment-end nil)
+ (cperl-postpone-fontification
+ REx-comment-start REx-comment-end
+ 'face font-lock-comment-face))))))
+ (if (and is-REx is-x-REx)
+ (put-text-property (1+ b) (1- e)
+ 'syntax-subtype 'x-REx)))
(if i2
(progn
(cperl-postpone-fontification
@@ -4443,7 +4760,7 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
(goto-char bb))
;; 1+6+2+1+1+2+1+1=15 extra () before this:
;; "__\\(END\\|DATA\\)__"
- (t ; __END__, __DATA__
+ ((match-beginning 16) ; __END__, __DATA__
(setq bb (match-end 0)
b (match-beginning 0)
state (parse-partial-sexp
@@ -4454,7 +4771,21 @@ the sections using `cperl-pod-head-face', `cperl-pod-face',
;; (put-text-property b (1+ bb) 'syntax-type 'pod) ; Cheat
(cperl-commentify b bb nil)
(setq end t))
- (goto-char bb)))
+ (goto-char bb))
+ ((match-beginning 17) ; "\\\\\\(['`\"]\\)"
+ (setq bb (match-end 0)
+ b (match-beginning 0))
+ (goto-char b)
+ (skip-chars-backward "\\\\")
+ ;;;(setq i2 (= (% (skip-chars-backward "\\\\") 2) -1))
+ (setq state (parse-partial-sexp
+ state-point b nil nil state)
+ state-point b)
+ (if (or (nth 3 state) (nth 4 state) )
+ nil
+ (cperl-modify-syntax-type b cperl-st-punct))
+ (goto-char bb))
+ (t (error "Error in regexp of the sniffer")))
(if (> (point) stop-point)
(progn
(if end
@@ -4542,6 +4873,7 @@ CHARS is a string that contains good characters to have before us (however,
(setq stop t))))
(or (bobp) ; ???? Needed
(eq (point) lim)
+ (looking-at "[ \t]*__\\(END\\|DATA\\)__") ; After this anything goes
(progn
(if test (eval test)
(or (memq (preceding-char) (append (or chars "{;") nil))
@@ -4661,7 +4993,7 @@ Returns some position at the last line."
;; Looking at:
;; foreach my $var
(if (looking-at
- "[ \t]*\\<for\\(each\\)?[ \t]+\\(my\\|local\\)\\(\t*\\|[ \t][ \t]+\\)[^ \t\n]")
+ "[ \t]*\\<for\\(each\\)?[ \t]+\\(my\\|local\\|our\\)\\(\t*\\|[ \t][ \t]+\\)[^ \t\n]")
(progn
(forward-word 2)
(delete-horizontal-space)
@@ -4670,7 +5002,7 @@ Returns some position at the last line."
;; Looking at:
;; foreach my $var (
(if (looking-at
- "[ \t]*\\<for\\(each\\)?[ \t]+\\(my\\|local\\)[ \t]*\\$[_a-zA-Z0-9]+\\(\t*\\|[ \t][ \t]+\\)[^ \t\n#]")
+ "[ \t]*\\<for\\(each\\)?[ \t]+\\(my\\|local\\|our\\)[ \t]*\\$[_a-zA-Z0-9]+\\(\t*\\|[ \t][ \t]+\\)[^ \t\n#]")
(progn
(forward-word 3)
(delete-horizontal-space)
@@ -4680,7 +5012,7 @@ Returns some position at the last line."
;; Looking at:
;; } foreach my $var () {
(if (looking-at
- "[ \t]*\\(}[ \t]*\\)?\\<\\(\\els\\(e\\|if\\)\\|continue\\|if\\|unless\\|while\\|for\\(each\\)?\\(\\([ t]+\\(my\\|local\\)\\)?[ \t]*\\$[_a-zA-Z0-9]+\\)?\\|until\\)\\>\\([ \t]*(\\|[ \t\n]*{\\)\\|[ \t]*{")
+ "[ \t]*\\(}[ \t]*\\)?\\<\\(\\els\\(e\\|if\\)\\|continue\\|if\\|unless\\|while\\|for\\(each\\)?\\(\\([ t]+\\(my\\|local\\|our\\)\\)?[ \t]*\\$[_a-zA-Z0-9]+\\)?\\|until\\)\\>\\([ \t]*(\\|[ \t\n]*{\\)\\|[ \t]*{")
(progn
(setq ml (match-beginning 8))
(re-search-forward "[({]")
@@ -5022,12 +5354,13 @@ indentation and initial hashes. Behaves usually outside of comment."
(let ((index-alist '()) (index-pack-alist '()) (index-pod-alist '())
(index-unsorted-alist '()) (i-s-f (default-value 'imenu-sort-function))
(index-meth-alist '()) meth
- packages ends-ranges p
+ packages ends-ranges p marker
(prev-pos 0) char fchar index index1 name (end-range 0) package)
(goto-char (point-min))
(if noninteractive
(message "Scanning Perl for index")
(imenu-progress-message prev-pos 0))
+ (cperl-update-syntaxification (point-max) (point-max))
;; Search for the function
(progn ;;save-match-data
(while (re-search-forward
@@ -5044,7 +5377,7 @@ indentation and initial hashes. Behaves usually outside of comment."
nil)
((and
(match-beginning 2) ; package or sub
- ;; Skip if quoted (will not skip multi-line ''-comments :-():
+ ;; Skip if quoted (will not skip multi-line ''-strings :-():
(null (get-text-property (match-beginning 1) 'syntax-table))
(null (get-text-property (match-beginning 1) 'syntax-type))
(null (get-text-property (match-beginning 1) 'in-pod)))
@@ -5054,7 +5387,7 @@ indentation and initial hashes. Behaves usually outside of comment."
)
;; (if (looking-at "([^()]*)[ \t\n\f]*")
;; (goto-char (match-end 0))) ; Messes what follows
- (setq char (following-char)
+ (setq char (following-char) ; ?\; for "sub foo () ;"
meth nil
p (point))
(while (and ends-ranges (>= p (car ends-ranges)))
@@ -5077,16 +5410,18 @@ indentation and initial hashes. Behaves usually outside of comment."
;; )
;; Skip this function name if it is a prototype declaration.
(if (and (eq fchar ?s) (eq char ?\;)) nil
- (setq index (imenu-example--name-and-position))
- (if (eq fchar ?p) nil
- (setq name (buffer-substring (match-beginning 3) (match-end 3)))
- (set-text-properties 0 (length name) nil name)
+ (setq name (buffer-substring (match-beginning 3) (match-end 3))
+ marker (make-marker))
+ (set-text-properties 0 (length name) nil name)
+ (set-marker marker (match-end 3))
+ (if (eq fchar ?p)
+ (setq name (concat "package " name))
(cond ((string-match "[:']" name)
(setq meth t))
((> p end-range) nil)
(t
(setq name (concat package name) meth t))))
- (setcar index name)
+ (setq index (cons name marker))
(if (eq fchar ?p)
(push index index-pack-alist)
(push index index-alist))
@@ -5160,6 +5495,25 @@ indentation and initial hashes. Behaves usually outside of comment."
index-alist))
(cperl-imenu-addback index-alist)))
+
+(defvar cperl-outline-regexp
+ (concat imenu-example--function-name-regexp-perl "\\|" "\\`"))
+
+;; Suggested by Mark A. Hershberger
+(defun cperl-outline-level ()
+ (looking-at outline-regexp)
+ (cond ((not (match-beginning 1)) 0) ; beginning-of-file
+ ((match-beginning 2)
+ (if (eq (char-after (match-beginning 2)) ?p)
+ 0 ; package
+ 1)) ; sub
+ ((match-beginning 5)
+ (if (eq (char-after (match-beginning 5)) ?1)
+ 1 ; head1
+ 2)) ; head2
+ (t 3))) ; should not happen
+
+
(defvar cperl-compilation-error-regexp-alist
;; This look like a paranoiac regexp: could anybody find a better one? (which WORK).
'(("^[^\n]* \\(file\\|at\\) \\([^ \t\n]+\\) [^\n]*line \\([0-9]+\\)[\\., \n]"
@@ -5242,8 +5596,7 @@ indentation and initial hashes. Behaves usually outside of comment."
'("if" "until" "while" "elsif" "else" "unless" "for"
"foreach" "continue" "exit" "die" "last" "goto" "next"
"redo" "return" "local" "exec" "sub" "do" "dump" "use"
- "require" "package" "eval" "my" "our"
- "BEGIN" "END" "CHECK" "INIT")
+ "require" "package" "eval" "my" "BEGIN" "END" "CHECK" "INIT")
"\\|") ; Flow control
"\\)\\>") 2) ; was "\\)[ \n\t;():,\|&]"
; In what follows we use `type' style
@@ -5280,7 +5633,7 @@ indentation and initial hashes. Behaves usually outside of comment."
;; "setsockopt" "shmctl" "shmget" "shmread" "shmwrite"
;; "shutdown" "sin" "sleep" "socket" "socketpair"
;; "sprintf" "sqrt" "srand" "stat" "substr" "symlink"
- ;; "syscall" "sysread" "system" "syswrite" "tell"
+ ;; "syscall" "sysopen" "sysread" "system" "syswrite" "tell"
;; "telldir" "time" "times" "truncate" "uc" "ucfirst"
;; "umask" "unlink" "unpack" "utime" "values" "vec"
;; "wait" "waitpid" "wantarray" "warn" "write" "x" "xor"
@@ -5309,7 +5662,7 @@ indentation and initial hashes. Behaves usually outside of comment."
"\\(iority\\|otoent\\)\\|went\\|grp\\)\\|hostent\\|s\\(ervent\\|"
"ockopt\\)\\|netent\\|grent\\)\\|ek\\(\\|dir\\)\\|lect\\|"
"m\\(ctl\\|op\\|get\\)\\|nd\\)\\|h\\(utdown\\|m\\(read\\|ctl\\|"
- "write\\|get\\)\\)\\|y\\(s\\(read\\|call\\|tem\\|write\\)\\|"
+ "write\\|get\\)\\)\\|y\\(s\\(read\\|call\\|open\\|tem\\|write\\)\\|"
"mlink\\)\\|in\\|leep\\|ocket\\(pair\\|\\)\\)\\|t\\(runcate\\|"
"ell\\(\\|dir\\)\\|ime\\(\\|s\\)\\)\\|u\\(c\\(\\|first\\)\\|"
"time\\|mask\\|n\\(pack\\|link\\)\\)\\|v\\(alues\\|ec\\)\\|"
@@ -5322,19 +5675,19 @@ indentation and initial hashes. Behaves usually outside of comment."
(list
(concat
"\\(^\\|[^$@%&\\]\\)\\<\\("
- ;; "AUTOLOAD" "BEGIN" "CHECK" "DESTROY" "END" "__END__" "INIT" "chomp"
+ ;; "AUTOLOAD" "BEGIN" "CHECK" "DESTROY" "END" "INIT" "__END__" "chomp"
;; "chop" "defined" "delete" "do" "each" "else" "elsif"
;; "eval" "exists" "for" "foreach" "format" "goto"
;; "grep" "if" "keys" "last" "local" "map" "my" "next"
- ;; "no" "our" "package" "pop" "pos" "print" "printf" "push"
+ ;; "no" "package" "pop" "pos" "print" "printf" "push"
;; "q" "qq" "qw" "qx" "redo" "return" "scalar" "shift"
;; "sort" "splice" "split" "study" "sub" "tie" "tr"
;; "undef" "unless" "unshift" "untie" "until" "use"
;; "while" "y"
"AUTOLOAD\\|BEGIN\\|CHECK\\|cho\\(p\\|mp\\)\\|d\\(e\\(fined\\|lete\\)\\|"
"o\\)\\|DESTROY\\|e\\(ach\\|val\\|xists\\|ls\\(e\\|if\\)\\)\\|"
- "END\\|for\\(\\|each\\|mat\\)\\|g\\(rep\\|oto\\)\\|if\\|INIT\\|keys\\|"
- "l\\(ast\\|ocal\\)\\|m\\(ap\\|y\\)\\|n\\(ext\\|o\\)\\|our|"
+ "END\\|for\\(\\|each\\|mat\\)\\|g\\(rep\\|oto\\)\\|INIT\\|if\\|keys\\|"
+ "l\\(ast\\|ocal\\)\\|m\\(ap\\|y\\)\\|n\\(ext\\|o\\)\\|our\\|"
"p\\(ackage\\|rint\\(\\|f\\)\\|ush\\|o\\(p\\|s\\)\\)\\|"
"q\\(\\|q\\|w\\|x\\|r\\)\\|re\\(turn\\|do\\)\\|s\\(pli\\(ce\\|t\\)\\|"
"calar\\|tudy\\|ub\\|hift\\|ort\\)\\|t\\(r\\|ie\\)\\|"
@@ -5372,6 +5725,10 @@ indentation and initial hashes. Behaves usually outside of comment."
font-lock-constant-face) ; labels
'("\\<\\(continue\\|next\\|last\\|redo\\|goto\\)\\>[ \t]+\\([a-zA-Z0-9_:]+\\)" ; labels as targets
2 font-lock-constant-face)
+ ;; Uncomment to get perl-mode-like vars
+ ;;; '("[$*]{?\\(\\sw+\\)" 1 font-lock-variable-name-face)
+ ;;; '("\\([@%]\\|\\$#\\)\\(\\sw+\\)"
+ ;;; (2 (cons font-lock-variable-name-face '(underline))))
(cond ((featurep 'font-lock-extra)
'("^[ \t]*\\(my\\|local\\|our\\)[ \t]*\\(([ \t]*\\)?\\([$@%*][a-zA-Z0-9_:]+\\)\\([ \t]*,\\)?"
(3 font-lock-variable-name-face)
@@ -5386,10 +5743,10 @@ indentation and initial hashes. Behaves usually outside of comment."
("\\=[ \t]*,[ \t]*\\([$@%*][a-zA-Z0-9_:]+\\)"
nil nil
(1 font-lock-variable-name-face))))
- (t '("^[ \t{}]*\\(my\\|local\\|our\\)[ \t]*\\(([ \t]*\\)?\\([$@%*][a-zA-Z0-9_:]+\\)"
+ (t '("^[ \t{}]*\\(my\\|local\\our\\)[ \t]*\\(([ \t]*\\)?\\([$@%*][a-zA-Z0-9_:]+\\)"
3 font-lock-variable-name-face)))
- '("\\<for\\(each\\)?[ \t]*\\(\\$[a-zA-Z_][a-zA-Z_0-9]*\\)[ \t]*("
- 2 font-lock-variable-name-face)))
+ '("\\<for\\(each\\)?\\([ \t]+\\(my\\|local\\|our\\)\\)?[ \t]*\\(\\$[a-zA-Z_][a-zA-Z_0-9]*\\)[ \t]*("
+ 4 font-lock-variable-name-face)))
(setq
t-font-lock-keywords-1
(and (fboundp 'turn-on-font-lock) ; Check for newer font-lock
@@ -5416,6 +5773,11 @@ indentation and initial hashes. Behaves usually outside of comment."
;; (if (cperl-slash-is-regexp)
;; font-lock-function-name-face 'default) nil t))
)))
+ (if cperl-highlight-variables-indiscriminately
+ (setq t-font-lock-keywords-1
+ (append t-font-lock-keywords-1
+ (list '("[$*]{?\\(\\sw+\\)" 1
+ font-lock-variable-name-face)))))
(setq perl-font-lock-keywords-1
(if cperl-syntaxify-by-font-lock
(cons 'cperl-fontify-update
@@ -6216,19 +6578,29 @@ See `cperl-lazy-help-time' too."
(imenu-progress-message prev-pos 100))
index-alist))
-(defun cperl-find-tags (file xs topdir)
+(defvar cperl-unreadable-ok nil)
+
+(defun cperl-find-tags (ifile xs topdir)
(let (ind (b (get-buffer cperl-tmp-buffer)) lst elt pos ret rel
- (cperl-pod-here-fontify nil))
+ (cperl-pod-here-fontify nil) f file)
(save-excursion
(if b (set-buffer b)
(cperl-setup-tmp-buf))
(erase-buffer)
- (setq file (car (insert-file-contents file)))
+ (condition-case err
+ (setq file (car (insert-file-contents ifile)))
+ (error (if cperl-unreadable-ok nil
+ (if (y-or-n-p
+ (format "File %s unreadable. Continue? " ifile))
+ (setq cperl-unreadable-ok t)
+ (error "Aborting: unreadable file %s" ifile)))))
+ (if (not file)
+ (message "Unreadable file %s" ifile)
(message "Scanning file %s ..." file)
(if (and cperl-use-syntax-table-text-property-for-tags
(not xs))
(condition-case err ; after __END__ may have garbage
- (cperl-find-pods-heres)
+ (cperl-find-pods-heres nil nil noninteractive)
(error (message "While scanning for syntax: %s" err))))
(if xs
(setq lst (cperl-xsub-scan))
@@ -6245,8 +6617,8 @@ See `cperl-lazy-help-time' too."
(point)
(1+ (count-lines 1 (point))) ; 1+ since at beg-o-l
(buffer-substring (progn
- (skip-chars-forward
- ":_a-zA-Z0-9")
+ (goto-char (cdr elt))
+ ;; After name now...
(or (eolp) (forward-char 1))
(point))
(progn
@@ -6289,7 +6661,7 @@ See `cperl-lazy-help-time' too."
(erase-buffer)
(or noninteractive
(message "Scanning file %s finished" file))
- ret)))
+ ret))))
(defun cperl-add-tags-recurse-noxs ()
"Add to TAGS data for Perl and XSUB files in the current directory and kids.
@@ -6318,7 +6690,7 @@ Use as
(setq topdir default-directory))
(let ((tags-file-name "TAGS")
(case-fold-search (eq system-type 'emx))
- xs rel)
+ xs rel tm)
(save-excursion
(cond (inbuffer nil) ; Already there
((file-exists-p tags-file-name)
@@ -6333,9 +6705,17 @@ Use as
(erase-buffer)
(setq erase 'ignore)))
(let ((files
- (directory-files file t
- (if recurse nil cperl-scan-files-regexp)
- t)))
+ (condition-case err
+ (directory-files file t
+ (if recurse nil cperl-scan-files-regexp)
+ t)
+ (error
+ (if cperl-unreadable-ok nil
+ (if (y-or-n-p
+ (format "Directory %s unreadable. Continue? " file))
+ (setq cperl-unreadable-ok t
+ tm nil) ; Return empty list
+ (error "Aborting: unreadable directory %s" file)))))))
(mapcar (function (lambda (file)
(cond
((string-match cperl-noscan-files-regexp file)
@@ -7012,6 +7392,8 @@ ARGV Default multi-file input filehandle. <ARGV> is a synonym for <>.
ARGVOUT Output filehandle with -i flag.
BEGIN { ... } Immediately executed (during compilation) piece of code.
END { ... } Pseudo-subroutine executed after the script finishes.
+CHECK { ... } Pseudo-subroutine executed after the script is compiled.
+INIT { ... } Pseudo-subroutine executed before the script starts running.
DATA Input filehandle for what follows after __END__ or __DATA__.
accept(NEWSOCKET,GENERICSOCKET)
alarm(SECONDS)
@@ -7113,6 +7495,7 @@ msgget(KEY,FLAGS)
msgrcv(ID,VAR,SIZE,TYPE.FLAGS)
msgsnd(ID,MSG,FLAGS)
my VAR or my (VAR1,...) Introduces a lexical variable ($VAR, @ARR, or %HASH).
+our VAR or our (VAR1,...) Lexically enable a global variable ($V, @A, or %H).
... ne ... String inequality.
next [LABEL]
oct(EXPR)
@@ -7281,14 +7664,18 @@ prototype \&SUB Returns prototype of the function given a reference.
'variable-documentation))
(setq buffer-read-only t)))))
-(defun cperl-beautify-regexp-piece (b e embed)
+(defun cperl-beautify-regexp-piece (b e embed level)
;; b is before the starting delimiter, e before the ending
;; e should be a marker, may be changed, but remains "correct".
- (let (s c tmp (m (make-marker)) (m1 (make-marker)) c1 spaces inline code)
+ ;; EMBED is nil iff we process the whole REx.
+ ;; The REx is guarantied to have //x
+ ;; LEVEL shows how many levels deep to go
+ ;; position at enter and at leave is not defined
+ (let (s c tmp (m (make-marker)) (m1 (make-marker)) c1 spaces inline code pos)
(if (not embed)
(goto-char (1+ b))
(goto-char b)
- (cond ((looking-at "(\\?\\\\#") ; badly commented (?#)
+ (cond ((looking-at "(\\?\\\\#") ; (?#) wrongly commented when //x-ing
(forward-char 2)
(delete-char 1)
(forward-char 1))
@@ -7306,8 +7693,9 @@ prototype \&SUB Returns prototype of the function given a reference.
(goto-char e)
(beginning-of-line)
(if (re-search-forward "[^ \t]" e t)
- (progn
+ (progn ; Something before the ending delimiter
(goto-char e)
+ (delete-horizontal-space)
(insert "\n")
(indent-to-column c)
(set-marker e (point))))
@@ -7350,17 +7738,27 @@ prototype \&SUB Returns prototype of the function given a reference.
(setq tmp (point))
(if (looking-at "\\^?\\]")
(goto-char (match-end 0)))
- (or (re-search-forward "\\]\\([*+{?]\\)?" e t)
+ ;; XXXX POSIX classes?!
+ (while (and (not pos)
+ (re-search-forward "\\[:\\|\\]" e t))
+ (if (eq (preceding-char) ?:)
+ (or (re-search-forward ":\\]" e t)
+ (error "[:POSIX:]-group in []-group not terminated"))
+ (setq pos t)))
+ (or (eq (preceding-char) ?\])
+ (error "[]-group not terminated"))
+ (if (eq (following-char) ?\{)
(progn
- (goto-char (1- tmp))
- (error "[]-group not terminated")))
- (if (not (eq (preceding-char) ?\{)) nil
- (forward-char -1)
- (forward-sexp 1)))
+ (forward-sexp 1)
+ (and (eq (following-char) ??)
+ (forward-char 1)))
+ (re-search-forward "\\=\\([*+?]\\??\\)" e t)))
((match-beginning 7) ; ()
(goto-char (match-beginning 0))
- (or (eq (current-column) c1)
+ (setq pos (current-column))
+ (or (eq pos c1)
(progn
+ (delete-horizontal-space)
(insert "\n")
(indent-to-column c1)))
(setq tmp (point))
@@ -7371,20 +7769,29 @@ prototype \&SUB Returns prototype of the function given a reference.
;; (error "()-group not terminated")))
(set-marker m (1- (point)))
(set-marker m1 (point))
- (cond
- ((not (match-beginning 8))
- (cperl-beautify-regexp-piece tmp m t))
- ((eq (char-after (+ 2 tmp)) ?\{) ; Code
- t)
- ((eq (char-after (+ 2 tmp)) ?\() ; Conditional
- (goto-char (+ 2 tmp))
- (forward-sexp 1)
- (cperl-beautify-regexp-piece (point) m t))
- ((eq (char-after (+ 2 tmp)) ?<) ; Lookbehind
- (goto-char (+ 3 tmp))
- (cperl-beautify-regexp-piece (point) m t))
- (t
- (cperl-beautify-regexp-piece tmp m t)))
+ (if (= level 1)
+ (if (progn ; indent rigidly if multiline
+ ;; In fact does not make a lot of sense, since
+ ;; the starting position can be already lost due
+ ;; to insertion of "\n" and " "
+ (goto-char tmp)
+ (search-forward "\n" m1 t))
+ (indent-rigidly (point) m1 (- c1 pos)))
+ (setq level (1- level))
+ (cond
+ ((not (match-beginning 8))
+ (cperl-beautify-regexp-piece tmp m t level))
+ ((eq (char-after (+ 2 tmp)) ?\{) ; Code
+ t)
+ ((eq (char-after (+ 2 tmp)) ?\() ; Conditional
+ (goto-char (+ 2 tmp))
+ (forward-sexp 1)
+ (cperl-beautify-regexp-piece (point) m t level))
+ ((eq (char-after (+ 2 tmp)) ?<) ; Lookbehind
+ (goto-char (+ 3 tmp))
+ (cperl-beautify-regexp-piece (point) m t level))
+ (t
+ (cperl-beautify-regexp-piece tmp m t level))))
(goto-char m1)
(cond ((looking-at "[*+?]\\??")
(goto-char (match-end 0)))
@@ -7398,6 +7805,7 @@ prototype \&SUB Returns prototype of the function given a reference.
(progn
(or (eolp) (indent-for-comment))
(beginning-of-line 2))
+ (delete-horizontal-space)
(insert "\n"))
(end-of-line)
(setq inline nil))
@@ -7408,6 +7816,7 @@ prototype \&SUB Returns prototype of the function given a reference.
(if (re-search-forward "[^ \t]" tmp t)
(progn
(goto-char tmp)
+ (delete-horizontal-space)
(insert "\n"))
;; first at line
(delete-region (point) tmp))
@@ -7417,6 +7826,7 @@ prototype \&SUB Returns prototype of the function given a reference.
(setq spaces nil)
(if (looking-at "[#\n]")
(beginning-of-line 2)
+ (delete-horizontal-space)
(insert "\n"))
(end-of-line)
(setq inline nil)))
@@ -7425,8 +7835,8 @@ prototype \&SUB Returns prototype of the function given a reference.
(insert " "))
(skip-chars-forward " \t"))
(or (looking-at "[#\n]")
- (error "unknown code \"%s\" in a regexp" (buffer-substring (point)
- (1+ (point)))))
+ (error "unknown code \"%s\" in a regexp"
+ (buffer-substring (point) (1+ (point)))))
(and inline (end-of-line 2)))
;; Special-case the last line of group
(if (and (>= (point) (marker-position e))
@@ -7441,6 +7851,7 @@ prototype \&SUB Returns prototype of the function given a reference.
(defun cperl-make-regexp-x ()
;; Returns position of the start
+ ;; XXX this is called too often! Need to cache the result!
(save-excursion
(or cperl-use-syntax-table-text-property
(error "I need to have a regexp marked!"))
@@ -7471,15 +7882,19 @@ prototype \&SUB Returns prototype of the function given a reference.
(forward-char 1)))
b)))
-(defun cperl-beautify-regexp ()
+(defun cperl-beautify-regexp (&optional deep)
"do it. (Experimental, may change semantics, recheck the result.)
We suppose that the regexp is scanned already."
- (interactive)
- (goto-char (cperl-make-regexp-x))
- (let ((b (point)) (e (make-marker)))
- (forward-sexp 1)
- (set-marker e (1- (point)))
- (cperl-beautify-regexp-piece b e nil)))
+ (interactive "P")
+ (if deep
+ (prefix-numeric-value deep)
+ (setq deep -1))
+ (save-excursion
+ (goto-char (cperl-make-regexp-x))
+ (let ((b (point)) (e (make-marker)))
+ (forward-sexp 1)
+ (set-marker e (1- (point)))
+ (cperl-beautify-regexp-piece b e nil deep))))
(defun cperl-regext-to-level-start ()
"Goto start of an enclosing group in regexp.
@@ -7501,61 +7916,67 @@ We suppose that the regexp is scanned already."
\(Experimental, may change semantics, recheck the result.)
We suppose that the regexp is scanned already."
(interactive)
- (cperl-regext-to-level-start)
- (let ((b (point)) (e (make-marker)) s c)
- (forward-sexp 1)
- (set-marker e (1- (point)))
- (goto-char b)
- (while (re-search-forward "\\(#\\)\\|\n" e t)
- (cond
- ((match-beginning 1) ; #-comment
- (or c (setq c (current-indentation)))
- (beginning-of-line 2) ; Skip
- (setq s (point))
- (skip-chars-forward " \t")
- (delete-region s (point))
- (indent-to-column c))
- (t
- (delete-char -1)
- (just-one-space))))))
+ ;; (save-excursion ; Can't, breaks `cperl-contract-levels'
+ (cperl-regext-to-level-start)
+ (let ((b (point)) (e (make-marker)) s c)
+ (forward-sexp 1)
+ (set-marker e (1- (point)))
+ (goto-char b)
+ (while (re-search-forward "\\(#\\)\\|\n" e 'to-end)
+ (cond
+ ((match-beginning 1) ; #-comment
+ (or c (setq c (current-indentation)))
+ (beginning-of-line 2) ; Skip
+ (setq s (point))
+ (skip-chars-forward " \t")
+ (delete-region s (point))
+ (indent-to-column c))
+ (t
+ (delete-char -1)
+ (just-one-space))))))
(defun cperl-contract-levels ()
"Find an enclosing group in regexp and contract all the kids.
\(Experimental, may change semantics, recheck the result.)
We suppose that the regexp is scanned already."
(interactive)
- (condition-case nil
- (cperl-regext-to-level-start)
- (error ; We are outside outermost group
- (goto-char (cperl-make-regexp-x))))
- (let ((b (point)) (e (make-marker)) s c)
- (forward-sexp 1)
- (set-marker e (1- (point)))
- (goto-char (1+ b))
- (while (re-search-forward "\\(\\\\\\\\\\)\\|(" e t)
- (cond
- ((match-beginning 1) ; Skip
- nil)
- (t ; Group
- (cperl-contract-level))))))
-
-(defun cperl-beautify-level ()
+ (save-excursion
+ (condition-case nil
+ (cperl-regext-to-level-start)
+ (error ; We are outside outermost group
+ (goto-char (cperl-make-regexp-x))))
+ (let ((b (point)) (e (make-marker)) s c)
+ (forward-sexp 1)
+ (set-marker e (1- (point)))
+ (goto-char (1+ b))
+ (while (re-search-forward "\\(\\\\\\\\\\)\\|(" e t)
+ (cond
+ ((match-beginning 1) ; Skip
+ nil)
+ (t ; Group
+ (cperl-contract-level)))))))
+
+(defun cperl-beautify-level (&optional deep)
"Find an enclosing group in regexp and beautify it.
\(Experimental, may change semantics, recheck the result.)
We suppose that the regexp is scanned already."
- (interactive)
- (cperl-regext-to-level-start)
- (let ((b (point)) (e (make-marker)))
- (forward-sexp 1)
- (set-marker e (1- (point)))
- (cperl-beautify-regexp-piece b e nil)))
+ (interactive "P")
+ (if deep
+ (prefix-numeric-value deep)
+ (setq deep -1))
+ (save-excursion
+ (cperl-regext-to-level-start)
+ (let ((b (point)) (e (make-marker)))
+ (forward-sexp 1)
+ (set-marker e (1- (point)))
+ (cperl-beautify-regexp-piece b e nil deep))))
(defun cperl-invert-if-unless ()
- "Changes `if (A) {B}' into `B if A;' if possible."
+ "Change `if (A) {B}' into `B if A;' etc if possible."
(interactive)
(or (looking-at "\\<")
(forward-sexp -1))
- (if (looking-at "\\<\\(if\\|unless\\|while\\|until\\)\\>")
+ (if (looking-at "\\<\\(if\\|unless\\|while\\|until\\|for\\|foreach\\)\\>")
(let ((pos1 (point))
pos2 pos3 pos4 pos5 s1 s2 state p pos45
(s0 (buffer-substring (match-beginning 0) (match-end 0))))
@@ -7626,6 +8047,7 @@ We suppose that the regexp is scanned already."
(forward-word 1)
(setq pos1 (point))
(insert " " s1 ";")
+ (delete-horizontal-space)
(forward-char -1)
(delete-horizontal-space)
(goto-char pos1)
@@ -7633,14 +8055,14 @@ We suppose that the regexp is scanned already."
(cperl-indent-line))
(error "`%s' (EXPR) not with an {BLOCK}" s0)))
(error "`%s' not with an (EXPR)" s0)))
- (error "Not at `if', `unless', `while', or `unless'")))
+ (error "Not at `if', `unless', `while', `unless', `for' or `foreach'")))
;;; By Anthony Foiani <afoiani@uswest.com>
;;; Getting help on modules in C-h f ?
+;;; This is a modified version of `man'.
;;; Need to teach it how to lookup functions
-(defvar Man-filter-list)
(defun cperl-perldoc (word)
- "Run a 'perldoc' on WORD."
+ "Run `perldoc' on WORD."
(interactive
(list (let* ((default-entry (cperl-word-at-point))
(input (read-string
@@ -7664,15 +8086,18 @@ We suppose that the regexp is scanned already."
(Man-getpage-in-background word)))
(defun cperl-perldoc-at-point ()
- "Run a 'perldoc' on WORD."
+ "Run a `perldoc' on the word around point."
(interactive)
(cperl-perldoc (cperl-word-at-point)))
-;;; By Nick Roberts <Nick.Roberts@src.bae.co.uk> (with changes)
-(defvar pod2man-program "pod2man")
+(defcustom pod2man-program "pod2man"
+ "*File name for `pod2man'."
+ :type 'file
+ :group 'cperl)
+;;; By Nick Roberts <Nick.Roberts@src.bae.co.uk> (with changes)
(defun cperl-pod-to-manpage ()
- "Create a virtual manpage in emacs from the Perl Online Documentation"
+ "Create a virtual manpage in Emacs from the Perl Online Documentation."
(interactive)
(require 'man)
(let* ((pod2man-args (concat buffer-file-name " | nroff -man "))
@@ -7759,6 +8184,7 @@ We suppose that the regexp is scanned already."
(defvar cperl-d-l nil)
(defun cperl-fontify-syntaxically (end)
;; Some vars for debugging only
+ ;; (message "Syntaxifying...")
(let (start (dbg (point)) (iend end)
(istate (car cperl-syntax-state)))
(and cperl-syntaxify-unwind
@@ -7776,12 +8202,6 @@ We suppose that the regexp is scanned already."
(and (> end start)
(setq cperl-syntax-done-to start) ; In case what follows fails
(cperl-find-pods-heres start end t nil t))
- ;;(setq cperl-d-l (cons (format "Syntaxifying %s..%s from %s to %s\n"
- ;; dbg end start cperl-syntax-done-to)
- ;; cperl-d-l))
- ;;(let ((standard-output (get-buffer "*Messages*")))
- ;;(princ (format "Syntaxifying %s..%s from %s to %s\n"
- ;; dbg end start cperl-syntax-done-to)))
(if (eq cperl-syntaxify-by-font-lock 'message)
(message "Syntaxified %s..%s from %s to %s(%s), state %s-->%s"
dbg iend
@@ -7809,7 +8229,7 @@ We suppose that the regexp is scanned already."
(cperl-fontify-syntaxically to)))))
(defvar cperl-version
- (let ((v "$Revision: 4.19 $"))
+ (let ((v "$Revision: 4.32 $"))
(string-match ":\\s *\\([0-9.]+\\)" v)
(substring v (match-beginning 1) (match-end 1)))
"Version of IZ-supported CPerl package this file is based on.")
@@ -7817,4 +8237,3 @@ We suppose that the regexp is scanned already."
(provide 'cperl-mode)
;;; cperl-mode.el ends here
-
diff --git a/embed.pl b/embed.pl
index 0859a67fd1..16a0697ea4 100755
--- a/embed.pl
+++ b/embed.pl
@@ -916,6 +916,9 @@ START_EXTERN_C
{ return &(PL_##v); }
#define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \
{ return &(PL_##v); }
+#undef PERLVARIC
+#define PERLVARIC(v,t,i) const t* Perl_##v##_ptr(pTHXo) \
+ { return (const t *)&(PL_##v); }
#include "perlvars.h"
#undef PERLVAR
diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index d309ecb134..c40152728a 100644
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -83,7 +83,7 @@
/* The non-POSIX CRTL times() has void return type, so we just get the
current time directly */
- clock_t vms_times(struct tms *PL_bufptr) {
+ clock_t vms_times(struct tms *bufptr) {
dTHX;
clock_t retval;
/* Get wall time and convert to 10 ms intervals to
@@ -104,7 +104,7 @@
_ckvmssts(lib$ediv(&divisor,vmstime,(long int *)&retval,&remainder));
# endif
/* Fill in the struct tms using the CRTL routine . . .*/
- times((tbuffer_t *)PL_bufptr);
+ times((tbuffer_t *)bufptr);
return (clock_t) retval;
}
# define times(t) vms_times(t)
diff --git a/mg.c b/mg.c
index f8dd89ea7a..b1049c5d9a 100644
--- a/mg.c
+++ b/mg.c
@@ -950,6 +950,7 @@ Perl_magic_clear_all_env(pTHX_ SV *sv, MAGIC *mg)
return 0;
}
+#ifndef PERL_MICRO
int
Perl_magic_getsig(pTHX_ SV *sv, MAGIC *mg)
{
@@ -1066,6 +1067,7 @@ Perl_magic_setsig(pTHX_ SV *sv, MAGIC *mg)
}
return 0;
}
+#endif /* !PERL_MICRO */
int
Perl_magic_setisa(pTHX_ SV *sv, MAGIC *mg)
diff --git a/op.c b/op.c
index 9a16105477..d70f0d51f8 100644
--- a/op.c
+++ b/op.c
@@ -2646,12 +2646,13 @@ Perl_pmtrans(pTHX_ OP *o, OP *expr, OP *repl)
}
if (!squash) {
if (to_utf && from_utf) { /* only counting characters */
- if (t == r || (tlen == rlen && memEQ(t, r, tlen)))
+ if (t == r ||
+ (tlen == rlen && memEQ((char *)t, (char *)r, tlen)))
o->op_private |= OPpTRANS_IDENTICAL;
}
else { /* straight latin-1 translation */
- if (tlen == 4 && memEQ(t, "\0\377\303\277", 4) &&
- rlen == 4 && memEQ(r, "\0\377\303\277", 4))
+ if (tlen == 4 && memEQ((char *)t, "\0\377\303\277", 4) &&
+ rlen == 4 && memEQ((char *)r, "\0\377\303\277", 4))
o->op_private |= OPpTRANS_IDENTICAL;
}
}
diff --git a/perl.c b/perl.c
index 9736d3b9fc..3947f28c5f 100644
--- a/perl.c
+++ b/perl.c
@@ -1190,6 +1190,7 @@ print \" \\@INC:\\n @INC\\n\";");
validate_suid(validarg, scriptname,fdscript);
+#ifndef PERL_MICRO
#if defined(SIGCHLD) || defined(SIGCLD)
{
#ifndef SIGCHLD
@@ -1204,6 +1205,7 @@ print \" \\@INC:\\n @INC\\n\";");
}
}
#endif
+#endif
#ifdef MACOS_TRADITIONAL
if (PL_doextract || gMacPerl_AlwaysExtract) {
@@ -1249,9 +1251,11 @@ print \" \\@INC:\\n @INC\\n\";");
if (xsinit)
(*xsinit)(aTHXo); /* in case linked C routines want magical variables */
+#ifndef PERL_MICRO
#if defined(VMS) || defined(WIN32) || defined(DJGPP) || defined(__CYGWIN__)
init_os_extras();
#endif
+#endif
#ifdef USE_SOCKS
SOCKSinit(argv[0]);
diff --git a/perl.h b/perl.h
index fa3326998c..7214c1590c 100644
--- a/perl.h
+++ b/perl.h
@@ -21,7 +21,11 @@
#endif /* PERL_FOR_X2P */
#define VOIDUSED 1
-#include "config.h"
+#ifdef PERL_MICRO
+# include "uconfig.h"
+#else
+# include "config.h"
+#endif
#if defined(USE_ITHREADS) && defined(USE_5005THREADS)
# include "error: USE_ITHREADS and USE_5005THREADS are incompatible"
@@ -461,6 +465,10 @@ register struct op *Perl_op asm(stringify(OP_IN_REGISTER));
#undef METHOD
#endif
+#ifdef PERL_MICRO
+# define NO_LOCALE
+#endif
+
#ifdef I_LOCALE
# include <locale.h>
#endif
@@ -594,6 +602,7 @@ struct perl_mstats {
# endif
# endif
#else
+# undef memset
# define memset(d,c,l) my_memset(d,c,l)
#endif /* HAS_MEMSET */
@@ -813,6 +822,12 @@ struct perl_mstats {
# endif
#endif
+#ifdef PERL_MICRO
+# ifndef DIR
+# define DIR void
+# endif
+#endif
+
#ifdef FPUTS_BOTCH
/* work around botch in SunOS 4.0.1 and 4.0.2 */
# ifndef fputs
@@ -2795,10 +2810,14 @@ EXT MGVTBL PL_vtbl_envelem = {0, MEMBER_TO_FPTR(Perl_magic_setenv),
0, MEMBER_TO_FPTR(Perl_magic_clearenv),
0};
EXT MGVTBL PL_vtbl_sig = {0, 0, 0, 0, 0};
+#ifdef PERL_MICRO
+EXT MGVTBL PL_vtbl_sigelem = {0, 0, 0, 0, 0};
+#else
EXT MGVTBL PL_vtbl_sigelem = {MEMBER_TO_FPTR(Perl_magic_getsig),
MEMBER_TO_FPTR(Perl_magic_setsig),
0, MEMBER_TO_FPTR(Perl_magic_clearsig),
0};
+#endif
EXT MGVTBL PL_vtbl_pack = {0, 0, MEMBER_TO_FPTR(Perl_magic_sizepack), MEMBER_TO_FPTR(Perl_magic_wipepack),
0};
EXT MGVTBL PL_vtbl_packelem = {MEMBER_TO_FPTR(Perl_magic_getpack),
diff --git a/perlapi.c b/perlapi.c
index 0f25e4d2ef..43feea8b7c 100644
--- a/perlapi.c
+++ b/perlapi.c
@@ -41,6 +41,9 @@ START_EXTERN_C
{ return &(PL_##v); }
#define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \
{ return &(PL_##v); }
+#undef PERLVARIC
+#define PERLVARIC(v,t,i) const t* Perl_##v##_ptr(pTHXo) \
+ { return (const t *)&(PL_##v); }
#include "perlvars.h"
#undef PERLVAR
diff --git a/perlio.c b/perlio.c
index 6945a75069..a88daa5e02 100644
--- a/perlio.c
+++ b/perlio.c
@@ -9,7 +9,11 @@
#define VOIDUSED 1
-#include "config.h"
+#ifdef PERL_MICRO
+# include "uconfig.h"
+#else
+# include "config.h"
+#endif
#define PERLIO_NOT_STDIO 0
#if !defined(PERLIO_IS_STDIO) && !defined(USE_SFIO)
diff --git a/pod/perlapi.pod b/pod/perlapi.pod
index 2532620d7c..19ab71fcda 100644
--- a/pod/perlapi.pod
+++ b/pod/perlapi.pod
@@ -1604,17 +1604,17 @@ false, defined or undefined. Does not handle 'get' magic.
bool SvTRUE(SV* sv)
+=item svtype
+
+An enum of flags for Perl types. These are found in the file B<sv.h>
+in the C<svtype> enum. Test these flags with the C<SvTYPE> macro.
+
=item SvTYPE
Returns the type of the SV. See C<svtype>.
svtype SvTYPE(SV* sv)
-=item svtype
-
-An enum of flags for Perl types. These are found in the file B<sv.h>
-in the C<svtype> enum. Test these flags with the C<SvTYPE> macro.
-
=item SVt_IV
Integer type flag for scalars. See C<svtype>.
diff --git a/pod/perldiag.pod b/pod/perldiag.pod
index c918d417b9..e4d4b45c07 100644
--- a/pod/perldiag.pod
+++ b/pod/perldiag.pod
@@ -1774,7 +1774,7 @@ or
with nonempty prefix1 and prefix2. If C<prefix1> is indeed a prefix of
a builtin library search path, prefix2 is substituted. The error may
appear if components are not found, or are too long. See
-"PERLLIB_PREFIX" in F<README.os2>.
+"PERLLIB_PREFIX" in L<perlos2>.
=item %s matches null string many times
@@ -2499,7 +2499,7 @@ you upgraded, anyway? See L<perlfunc/require>.
=item PERL_SH_DIR too long
(F) An error peculiar to OS/2. PERL_SH_DIR is the directory to find the
-C<sh>-shell in. See "PERL_SH_DIR" in F<README.os2>.
+C<sh>-shell in. See "PERL_SH_DIR" in L<perlos2>.
=item perl: warning: Setting locale failed.
@@ -2647,7 +2647,7 @@ before now. Check your logic flow.
applications die in silence. It is considered a feature of the OS/2
port. One can easily disable this by appropriate sighandlers, see
L<perlipc/"Signals">. See also "Process terminated by SIGTERM/SIGINT"
-in F<README.os2>.
+in L<perlos2>.
=item Prototype mismatch: %s vs %s
diff --git a/pod/perlsyn.pod b/pod/perlsyn.pod
index a65b4cd263..6d820b6882 100644
--- a/pod/perlsyn.pod
+++ b/pod/perlsyn.pod
@@ -53,8 +53,8 @@ subroutine without defining it by saying C<sub name>, thus:
sub myname;
$me = myname $0 or die "can't get myname";
-Note that my() functions as a list operator, not as a unary operator; so
-be careful to use C<or> instead of C<||> in this case. However, if
+Note that myname() functions as a list operator, not as a unary operator;
+so be careful to use C<or> instead of C<||> in this case. However, if
you were to declare the subroutine as C<sub myname ($)>, then
C<myname> would function as a unary operator, so either C<or> or
C<||> would work.
diff --git a/pp_hot.c b/pp_hot.c
index f341d58396..1a9416eb5b 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1887,7 +1887,7 @@ PP(pp_subst)
SPAGAIN;
PUSHs(sv_2mortal(newSViv((I32)iters)));
}
- (void)SvPOK_only(TARG);
+ (void)SvPOK_only_UTF8(TARG);
TAINT_IF(rxtainted);
if (SvSMAGICAL(TARG)) {
PUTBACK;
diff --git a/pp_sys.c b/pp_sys.c
index 97cd15b77f..1ea47cf572 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3749,7 +3749,7 @@ PP(pp_system)
}
}
PERL_FLUSHALL_FOR_CHILD;
-#if (defined(HAS_FORK) || defined(AMIGAOS)) && !defined(VMS) && !defined(OS2) && !defined(__CYGWIN__)
+#if (defined(HAS_FORK) || defined(AMIGAOS)) && !defined(VMS) && !defined(OS2) && !defined(__CYGWIN__) || defined(PERL_MICRO)
if (PerlProc_pipe(pp) >= 0)
did_pipes = 1;
while ((childpid = vfork()) == -1) {
@@ -3768,13 +3768,17 @@ PP(pp_system)
if (childpid > 0) {
if (did_pipes)
PerlLIO_close(pp[1]);
+#ifndef PERL_MICRO
rsignal_save(SIGINT, SIG_IGN, &ihand);
rsignal_save(SIGQUIT, SIG_IGN, &qhand);
+#endif
do {
result = wait4pid(childpid, &status, 0);
} while (result == -1 && errno == EINTR);
+#ifndef PERL_MICRO
(void)rsignal_restore(SIGINT, &ihand);
(void)rsignal_restore(SIGQUIT, &qhand);
+#endif
STATUS_NATIVE_SET(result == -1 ? -1 : status);
do_execfree(); /* free any memory child malloced on vfork */
SP = ORIGMARK;
diff --git a/toke.c b/toke.c
index 70a7f537c0..05822e1e87 100644
--- a/toke.c
+++ b/toke.c
@@ -987,6 +987,8 @@ S_sublex_start(pTHX)
p = SvPV(sv, len);
nsv = newSVpvn(p, len);
+ if (SvUTF8(sv))
+ SvUTF8_on(nsv);
SvREFCNT_dec(sv);
sv = nsv;
}
diff --git a/uconfig.h b/uconfig.h
new file mode 100644
index 0000000000..5cd5cd53ff
--- /dev/null
+++ b/uconfig.h
@@ -0,0 +1,3129 @@
+/*
+ * This file was produced by running the config_h.SH script, which
+ * gets its values from uconfig.sh, which is generally produced by
+ * running Configure.
+ *
+ * Feel free to modify any of this as the need arises. Note, however,
+ * that running config_h.SH again will wipe out any changes you've made.
+ * For a more permanent change edit uconfig.sh and rerun config_h.SH.
+ *
+ * $Id: Config_h.U,v 3.0.1.5 1997/02/28 14:57:43 ram Exp $
+ */
+
+/*
+ * Package name :
+ * Source directory :
+ * Configuration time:
+ * Configured by :
+ * Target system : unknown
+ */
+
+#ifndef _config_h_
+#define _config_h_
+
+/* LOC_SED:
+ * This symbol holds the complete pathname to the sed program.
+ */
+#define LOC_SED "" /**/
+
+/* HAS_ALARM:
+ * This symbol, if defined, indicates that the alarm routine is
+ * available.
+ */
+/*#define HAS_ALARM / **/
+
+/* HASATTRIBUTE:
+ * This symbol indicates the C compiler can check for function attributes,
+ * such as printf formats. This is normally only supported by GNU cc.
+ */
+/*#define HASATTRIBUTE / **/
+#ifndef HASATTRIBUTE
+#define __attribute__(_arg_)
+#endif
+
+/* HAS_BCMP:
+ * This symbol is defined if the bcmp() routine is available to
+ * compare blocks of memory.
+ */
+/*#define HAS_BCMP / **/
+
+/* HAS_BCOPY:
+ * This symbol is defined if the bcopy() routine is available to
+ * copy blocks of memory.
+ */
+/*#define HAS_BCOPY / **/
+
+/* HAS_BZERO:
+ * This symbol is defined if the bzero() routine is available to
+ * set a memory block to 0.
+ */
+/*#define HAS_BZERO / **/
+
+/* HAS_CHOWN:
+ * This symbol, if defined, indicates that the chown routine is
+ * available.
+ */
+/*#define HAS_CHOWN / **/
+
+/* HAS_CHROOT:
+ * This symbol, if defined, indicates that the chroot routine is
+ * available.
+ */
+/*#define HAS_CHROOT / **/
+
+/* HAS_CHSIZE:
+ * This symbol, if defined, indicates that the chsize routine is available
+ * to truncate files. You might need a -lx to get this routine.
+ */
+/*#define HAS_CHSIZE / **/
+
+/* HASCONST:
+ * This symbol, if defined, indicates that this C compiler knows about
+ * the const type. There is no need to actually test for that symbol
+ * within your programs. The mere use of the "const" keyword will
+ * trigger the necessary tests.
+ */
+/*#define HASCONST / **/
+#ifndef HASCONST
+#define const
+#endif
+
+/* HAS_CRYPT:
+ * This symbol, if defined, indicates that the crypt routine is available
+ * to encrypt passwords and the like.
+ */
+/*#define HAS_CRYPT / **/
+
+/* HAS_CUSERID:
+ * This symbol, if defined, indicates that the cuserid routine is
+ * available to get character login names.
+ */
+/*#define HAS_CUSERID / **/
+
+/* HAS_DBL_DIG:
+ * This symbol, if defined, indicates that this system's <float.h>
+ * or <limits.h> defines the symbol DBL_DIG, which is the number
+ * of significant digits in a double precision number. If this
+ * symbol is not defined, a guess of 15 is usually pretty good.
+ */
+/*#define HAS_DBL_DIG / * */
+
+/* HAS_DIFFTIME:
+ * This symbol, if defined, indicates that the difftime routine is
+ * available.
+ */
+/*#define HAS_DIFFTIME / **/
+
+/* HAS_DLERROR:
+ * This symbol, if defined, indicates that the dlerror routine is
+ * available to return a string describing the last error that
+ * occurred from a call to dlopen(), dlclose() or dlsym().
+ */
+/*#define HAS_DLERROR / **/
+
+/* SETUID_SCRIPTS_ARE_SECURE_NOW:
+ * This symbol, if defined, indicates that the bug that prevents
+ * setuid scripts from being secure is not present in this kernel.
+ */
+/* DOSUID:
+ * This symbol, if defined, indicates that the C program should
+ * check the script that it is executing for setuid/setgid bits, and
+ * attempt to emulate setuid/setgid on systems that have disabled
+ * setuid #! scripts because the kernel can't do it securely.
+ * It is up to the package designer to make sure that this emulation
+ * is done securely. Among other things, it should do an fstat on
+ * the script it just opened to make sure it really is a setuid/setgid
+ * script, it should make sure the arguments passed correspond exactly
+ * to the argument on the #! line, and it should not trust any
+ * subprocesses to which it must pass the filename rather than the
+ * file descriptor of the script to be executed.
+ */
+/*#define SETUID_SCRIPTS_ARE_SECURE_NOW / **/
+/*#define DOSUID / **/
+
+/* HAS_DUP2:
+ * This symbol, if defined, indicates that the dup2 routine is
+ * available to duplicate file descriptors.
+ */
+/*#define HAS_DUP2 / **/
+
+/* HAS_FCHMOD:
+ * This symbol, if defined, indicates that the fchmod routine is available
+ * to change mode of opened files. If unavailable, use chmod().
+ */
+/*#define HAS_FCHMOD / **/
+
+/* HAS_FCHOWN:
+ * This symbol, if defined, indicates that the fchown routine is available
+ * to change ownership of opened files. If unavailable, use chown().
+ */
+/*#define HAS_FCHOWN / **/
+
+/* HAS_FCNTL:
+ * This symbol, if defined, indicates to the C program that
+ * the fcntl() function exists.
+ */
+/*#define HAS_FCNTL / **/
+
+/* HAS_FGETPOS:
+ * This symbol, if defined, indicates that the fgetpos routine is
+ * available to get the file position indicator, similar to ftell().
+ */
+/*#define HAS_FGETPOS / **/
+
+/* HAS_FLOCK:
+ * This symbol, if defined, indicates that the flock routine is
+ * available to do file locking.
+ */
+/*#define HAS_FLOCK / **/
+
+/* HAS_FORK:
+ * This symbol, if defined, indicates that the fork routine is
+ * available.
+ */
+#define HAS_FORK /**/
+
+/* HAS_FSETPOS:
+ * This symbol, if defined, indicates that the fsetpos routine is
+ * available to set the file position indicator, similar to fseek().
+ */
+/*#define HAS_FSETPOS / **/
+
+/* HAS_GETTIMEOFDAY:
+ * This symbol, if defined, indicates that the gettimeofday() system
+ * call is available for a sub-second accuracy clock. Usually, the file
+ * <sys/resource.h> needs to be included (see I_SYS_RESOURCE).
+ * The type "Timeval" should be used to refer to "struct timeval".
+ */
+/*#define HAS_GETTIMEOFDAY / **/
+#ifdef HAS_GETTIMEOFDAY
+#define Timeval struct timeval /* Structure used by gettimeofday() */
+#endif
+
+/* HAS_GETGROUPS:
+ * This symbol, if defined, indicates that the getgroups() routine is
+ * available to get the list of process groups. If unavailable, multiple
+ * groups are probably not supported.
+ */
+/*#define HAS_GETGROUPS / **/
+
+/* HAS_GETLOGIN:
+ * This symbol, if defined, indicates that the getlogin routine is
+ * available to get the login name.
+ */
+/*#define HAS_GETLOGIN / **/
+
+/* HAS_GETPGID:
+ * This symbol, if defined, indicates to the C program that
+ * the getpgid(pid) function is available to get the
+ * process group id.
+ */
+/*#define HAS_GETPGID / **/
+
+/* HAS_GETPGRP:
+ * This symbol, if defined, indicates that the getpgrp routine is
+ * available to get the current process group.
+ */
+/* USE_BSD_GETPGRP:
+ * This symbol, if defined, indicates that getpgrp needs one
+ * arguments whereas USG one needs none.
+ */
+/*#define HAS_GETPGRP / **/
+/*#define USE_BSD_GETPGRP / **/
+
+/* HAS_GETPGRP2:
+ * This symbol, if defined, indicates that the getpgrp2() (as in DG/UX)
+ * routine is available to get the current process group.
+ */
+/*#define HAS_GETPGRP2 / **/
+
+/* HAS_GETPPID:
+ * This symbol, if defined, indicates that the getppid routine is
+ * available to get the parent process ID.
+ */
+/*#define HAS_GETPPID / **/
+
+/* HAS_GETPRIORITY:
+ * This symbol, if defined, indicates that the getpriority routine is
+ * available to get a process's priority.
+ */
+/*#define HAS_GETPRIORITY / **/
+
+/* HAS_INET_ATON:
+ * This symbol, if defined, indicates to the C program that the
+ * inet_aton() function is available to parse IP address "dotted-quad"
+ * strings.
+ */
+/*#define HAS_INET_ATON / **/
+
+/* HAS_KILLPG:
+ * This symbol, if defined, indicates that the killpg routine is available
+ * to kill process groups. If unavailable, you probably should use kill
+ * with a negative process number.
+ */
+/*#define HAS_KILLPG / **/
+
+/* HAS_LINK:
+ * This symbol, if defined, indicates that the link routine is
+ * available to create hard links.
+ */
+/*#define HAS_LINK / **/
+
+/* HAS_LOCALECONV:
+ * This symbol, if defined, indicates that the localeconv routine is
+ * available for numeric and monetary formatting conventions.
+ */
+/*#define HAS_LOCALECONV / **/
+
+/* HAS_LOCKF:
+ * This symbol, if defined, indicates that the lockf routine is
+ * available to do file locking.
+ */
+/*#define HAS_LOCKF / **/
+
+/* HAS_LSTAT:
+ * This symbol, if defined, indicates that the lstat routine is
+ * available to do file stats on symbolic links.
+ */
+/*#define HAS_LSTAT / **/
+
+/* HAS_MBLEN:
+ * This symbol, if defined, indicates that the mblen routine is available
+ * to find the number of bytes in a multibye character.
+ */
+/*#define HAS_MBLEN / **/
+
+/* HAS_MBSTOWCS:
+ * This symbol, if defined, indicates that the mbstowcs routine is
+ * available to covert a multibyte string into a wide character string.
+ */
+/*#define HAS_MBSTOWCS / **/
+
+/* HAS_MBTOWC:
+ * This symbol, if defined, indicates that the mbtowc routine is available
+ * to covert a multibyte to a wide character.
+ */
+/*#define HAS_MBTOWC / **/
+
+/* HAS_MEMCMP:
+ * This symbol, if defined, indicates that the memcmp routine is available
+ * to compare blocks of memory.
+ */
+/*#define HAS_MEMCMP / **/
+
+/* HAS_MEMCPY:
+ * This symbol, if defined, indicates that the memcpy routine is available
+ * to copy blocks of memory.
+ */
+/*#define HAS_MEMCPY / **/
+
+/* HAS_MEMMOVE:
+ * This symbol, if defined, indicates that the memmove routine is available
+ * to copy potentially overlapping blocks of memory. This should be used
+ * only when HAS_SAFE_BCOPY is not defined. If neither is there, roll your
+ * own version.
+ */
+/*#define HAS_MEMMOVE / **/
+
+/* HAS_MEMSET:
+ * This symbol, if defined, indicates that the memset routine is available
+ * to set blocks of memory.
+ */
+/*#define HAS_MEMSET / **/
+
+/* HAS_MKDIR:
+ * This symbol, if defined, indicates that the mkdir routine is available
+ * to create directories. Otherwise you should fork off a new process to
+ * exec /bin/mkdir.
+ */
+/*#define HAS_MKDIR / **/
+
+/* HAS_MKFIFO:
+ * This symbol, if defined, indicates that the mkfifo routine is
+ * available to create FIFOs. Otherwise, mknod should be able to
+ * do it for you. However, if mkfifo is there, mknod might require
+ * super-user privileges which mkfifo will not.
+ */
+/*#define HAS_MKFIFO / **/
+
+/* HAS_MKTIME:
+ * This symbol, if defined, indicates that the mktime routine is
+ * available.
+ */
+/*#define HAS_MKTIME / **/
+
+/* HAS_MSYNC:
+ * This symbol, if defined, indicates that the msync system call is
+ * available to synchronize a mapped file.
+ */
+/*#define HAS_MSYNC / **/
+
+/* HAS_MUNMAP:
+ * This symbol, if defined, indicates that the munmap system call is
+ * available to unmap a region, usually mapped by mmap().
+ */
+/*#define HAS_MUNMAP / **/
+
+/* HAS_NICE:
+ * This symbol, if defined, indicates that the nice routine is
+ * available.
+ */
+/*#define HAS_NICE / **/
+
+/* HAS_PATHCONF:
+ * This symbol, if defined, indicates that pathconf() is available
+ * to determine file-system related limits and options associated
+ * with a given filename.
+ */
+/* HAS_FPATHCONF:
+ * This symbol, if defined, indicates that pathconf() is available
+ * to determine file-system related limits and options associated
+ * with a given open file descriptor.
+ */
+/*#define HAS_PATHCONF / **/
+/*#define HAS_FPATHCONF / **/
+
+/* HAS_PAUSE:
+ * This symbol, if defined, indicates that the pause routine is
+ * available to suspend a process until a signal is received.
+ */
+/*#define HAS_PAUSE / **/
+
+/* HAS_PIPE:
+ * This symbol, if defined, indicates that the pipe routine is
+ * available to create an inter-process channel.
+ */
+/*#define HAS_PIPE / **/
+
+/* HAS_POLL:
+ * This symbol, if defined, indicates that the poll routine is
+ * available to poll active file descriptors. You may safely
+ * include <poll.h> when this symbol is defined.
+ */
+/*#define HAS_POLL / **/
+
+/* HAS_READDIR:
+ * This symbol, if defined, indicates that the readdir routine is
+ * available to read directory entries. You may have to include
+ * <dirent.h>. See I_DIRENT.
+ */
+/*#define HAS_READDIR / **/
+
+/* HAS_SEEKDIR:
+ * This symbol, if defined, indicates that the seekdir routine is
+ * available. You may have to include <dirent.h>. See I_DIRENT.
+ */
+/*#define HAS_SEEKDIR / **/
+
+/* HAS_TELLDIR:
+ * This symbol, if defined, indicates that the telldir routine is
+ * available. You may have to include <dirent.h>. See I_DIRENT.
+ */
+/*#define HAS_TELLDIR / **/
+
+/* HAS_REWINDDIR:
+ * This symbol, if defined, indicates that the rewinddir routine is
+ * available. You may have to include <dirent.h>. See I_DIRENT.
+ */
+/*#define HAS_REWINDDIR / **/
+
+/* HAS_READLINK:
+ * This symbol, if defined, indicates that the readlink routine is
+ * available to read the value of a symbolic link.
+ */
+/*#define HAS_READLINK / **/
+
+/* HAS_RENAME:
+ * This symbol, if defined, indicates that the rename routine is available
+ * to rename files. Otherwise you should do the unlink(), link(), unlink()
+ * trick.
+ */
+/*#define HAS_RENAME / **/
+
+/* HAS_RMDIR:
+ * This symbol, if defined, indicates that the rmdir routine is
+ * available to remove directories. Otherwise you should fork off a
+ * new process to exec /bin/rmdir.
+ */
+/*#define HAS_RMDIR / **/
+
+/* HAS_SELECT:
+ * This symbol, if defined, indicates that the select routine is
+ * available to select active file descriptors. If the timeout field
+ * is used, <sys/time.h> may need to be included.
+ */
+/*#define HAS_SELECT / **/
+
+/* HAS_SETEGID:
+ * This symbol, if defined, indicates that the setegid routine is available
+ * to change the effective gid of the current program.
+ */
+/*#define HAS_SETEGID / **/
+
+/* HAS_SETEUID:
+ * This symbol, if defined, indicates that the seteuid routine is available
+ * to change the effective uid of the current program.
+ */
+/*#define HAS_SETEUID / **/
+
+/* HAS_SETLINEBUF:
+ * This symbol, if defined, indicates that the setlinebuf routine is
+ * available to change stderr or stdout from block-buffered or unbuffered
+ * to a line-buffered mode.
+ */
+/*#define HAS_SETLINEBUF / **/
+
+/* HAS_SETLOCALE:
+ * This symbol, if defined, indicates that the setlocale routine is
+ * available to handle locale-specific ctype implementations.
+ */
+/*#define HAS_SETLOCALE / **/
+
+/* HAS_SETPGID:
+ * This symbol, if defined, indicates that the setpgid(pid, gpid)
+ * routine is available to set process group ID.
+ */
+/*#define HAS_SETPGID / **/
+
+/* HAS_SETPGRP:
+ * This symbol, if defined, indicates that the setpgrp routine is
+ * available to set the current process group.
+ */
+/* USE_BSD_SETPGRP:
+ * This symbol, if defined, indicates that setpgrp needs two
+ * arguments whereas USG one needs none. See also HAS_SETPGID
+ * for a POSIX interface.
+ */
+/*#define HAS_SETPGRP / **/
+/*#define USE_BSD_SETPGRP / **/
+
+/* HAS_SETPGRP2:
+ * This symbol, if defined, indicates that the setpgrp2() (as in DG/UX)
+ * routine is available to set the current process group.
+ */
+/*#define HAS_SETPGRP2 / **/
+
+/* HAS_SETPRIORITY:
+ * This symbol, if defined, indicates that the setpriority routine is
+ * available to set a process's priority.
+ */
+/*#define HAS_SETPRIORITY / **/
+
+/* HAS_SETREGID:
+ * This symbol, if defined, indicates that the setregid routine is
+ * available to change the real and effective gid of the current
+ * process.
+ */
+/* HAS_SETRESGID:
+ * This symbol, if defined, indicates that the setresgid routine is
+ * available to change the real, effective and saved gid of the current
+ * process.
+ */
+/*#define HAS_SETREGID / **/
+/*#define HAS_SETRESGID / **/
+
+/* HAS_SETREUID:
+ * This symbol, if defined, indicates that the setreuid routine is
+ * available to change the real and effective uid of the current
+ * process.
+ */
+/* HAS_SETRESUID:
+ * This symbol, if defined, indicates that the setresuid routine is
+ * available to change the real, effective and saved uid of the current
+ * process.
+ */
+/*#define HAS_SETREUID / **/
+/*#define HAS_SETRESUID / **/
+
+/* HAS_SETRGID:
+ * This symbol, if defined, indicates that the setrgid routine is available
+ * to change the real gid of the current program.
+ */
+/*#define HAS_SETRGID / **/
+
+/* HAS_SETRUID:
+ * This symbol, if defined, indicates that the setruid routine is available
+ * to change the real uid of the current program.
+ */
+/*#define HAS_SETRUID / **/
+
+/* HAS_SETSID:
+ * This symbol, if defined, indicates that the setsid routine is
+ * available to set the process group ID.
+ */
+/*#define HAS_SETSID / **/
+
+/* Shmat_t:
+ * This symbol holds the return type of the shmat() system call.
+ * Usually set to 'void *' or 'char *'.
+ */
+/* HAS_SHMAT_PROTOTYPE:
+ * This symbol, if defined, indicates that the sys/shm.h includes
+ * a prototype for shmat(). Otherwise, it is up to the program to
+ * guess one. Shmat_t shmat _((int, Shmat_t, int)) is a good guess,
+ * but not always right so it should be emitted by the program only
+ * when HAS_SHMAT_PROTOTYPE is not defined to avoid conflicting defs.
+ */
+#define Shmat_t void * /**/
+/*#define HAS_SHMAT_PROTOTYPE / **/
+
+/* HAS_STRCHR:
+ * This symbol is defined to indicate that the strchr()/strrchr()
+ * functions are available for string searching. If not, try the
+ * index()/rindex() pair.
+ */
+/* HAS_INDEX:
+ * This symbol is defined to indicate that the index()/rindex()
+ * functions are available for string searching.
+ */
+/*#define HAS_STRCHR / **/
+/*#define HAS_INDEX / **/
+
+/* HAS_STRCOLL:
+ * This symbol, if defined, indicates that the strcoll routine is
+ * available to compare strings using collating information.
+ */
+/*#define HAS_STRCOLL / **/
+
+/* USE_STRUCT_COPY:
+ * This symbol, if defined, indicates that this C compiler knows how
+ * to copy structures. If undefined, you'll need to use a block copy
+ * routine of some sort instead.
+ */
+/*#define USE_STRUCT_COPY / **/
+
+/* HAS_STRTOD:
+ * This symbol, if defined, indicates that the strtod routine is
+ * available to provide better numeric string conversion than atof().
+ */
+/*#define HAS_STRTOD / **/
+
+/* HAS_STRTOL:
+ * This symbol, if defined, indicates that the strtol routine is available
+ * to provide better numeric string conversion than atoi() and friends.
+ */
+/*#define HAS_STRTOL / **/
+
+/* HAS_STRTOUL:
+ * This symbol, if defined, indicates that the strtoul routine is
+ * available to provide conversion of strings to unsigned long.
+ */
+/*#define HAS_STRTOUL / **/
+
+/* HAS_STRXFRM:
+ * This symbol, if defined, indicates that the strxfrm() routine is
+ * available to transform strings.
+ */
+/*#define HAS_STRXFRM / **/
+
+/* HAS_SYMLINK:
+ * This symbol, if defined, indicates that the symlink routine is available
+ * to create symbolic links.
+ */
+/*#define HAS_SYMLINK / **/
+
+/* HAS_SYSCALL:
+ * This symbol, if defined, indicates that the syscall routine is
+ * available to call arbitrary system calls. If undefined, that's tough.
+ */
+/*#define HAS_SYSCALL / **/
+
+/* HAS_SYSCONF:
+ * This symbol, if defined, indicates that sysconf() is available
+ * to determine system related limits and options.
+ */
+/*#define HAS_SYSCONF / **/
+
+/* HAS_SYSTEM:
+ * This symbol, if defined, indicates that the system routine is
+ * available to issue a shell command.
+ */
+/*#define HAS_SYSTEM / **/
+
+/* HAS_TCGETPGRP:
+ * This symbol, if defined, indicates that the tcgetpgrp routine is
+ * available to get foreground process group ID.
+ */
+/*#define HAS_TCGETPGRP / **/
+
+/* HAS_TCSETPGRP:
+ * This symbol, if defined, indicates that the tcsetpgrp routine is
+ * available to set foreground process group ID.
+ */
+/*#define HAS_TCSETPGRP / **/
+
+/* HAS_TRUNCATE:
+ * This symbol, if defined, indicates that the truncate routine is
+ * available to truncate files.
+ */
+/*#define HAS_TRUNCATE / **/
+
+/* HAS_TZNAME:
+ * This symbol, if defined, indicates that the tzname[] array is
+ * available to access timezone names.
+ */
+/*#define HAS_TZNAME / **/
+
+/* HAS_UMASK:
+ * This symbol, if defined, indicates that the umask routine is
+ * available to set and get the value of the file creation mask.
+ */
+/*#define HAS_UMASK / **/
+
+/* HASVOLATILE:
+ * This symbol, if defined, indicates that this C compiler knows about
+ * the volatile declaration.
+ */
+/*#define HASVOLATILE / **/
+#ifndef HASVOLATILE
+#define volatile
+#endif
+
+/* HAS_WAIT4:
+ * This symbol, if defined, indicates that wait4() exists.
+ */
+/*#define HAS_WAIT4 / **/
+
+/* HAS_WAITPID:
+ * This symbol, if defined, indicates that the waitpid routine is
+ * available to wait for child process.
+ */
+/*#define HAS_WAITPID / **/
+
+/* HAS_WCSTOMBS:
+ * This symbol, if defined, indicates that the wcstombs routine is
+ * available to convert wide character strings to multibyte strings.
+ */
+/*#define HAS_WCSTOMBS / **/
+
+/* HAS_WCTOMB:
+ * This symbol, if defined, indicates that the wctomb routine is available
+ * to covert a wide character to a multibyte.
+ */
+/*#define HAS_WCTOMB / **/
+
+/* I_ARPA_INET:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <arpa/inet.h> to get inet_addr and friends declarations.
+ */
+/*#define I_ARPA_INET / **/
+
+/* I_DBM:
+ * This symbol, if defined, indicates that <dbm.h> exists and should
+ * be included.
+ */
+/* I_RPCSVC_DBM:
+ * This symbol, if defined, indicates that <rpcsvc/dbm.h> exists and
+ * should be included.
+ */
+/*#define I_DBM / **/
+/*#define I_RPCSVC_DBM / **/
+
+/* I_DIRENT:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <dirent.h>. Using this symbol also triggers the definition
+ * of the Direntry_t define which ends up being 'struct dirent' or
+ * 'struct direct' depending on the availability of <dirent.h>.
+ */
+/* DIRNAMLEN:
+ * This symbol, if defined, indicates to the C program that the length
+ * of directory entry names is provided by a d_namlen field. Otherwise
+ * you need to do strlen() on the d_name field.
+ */
+/* Direntry_t:
+ * This symbol is set to 'struct direct' or 'struct dirent' depending on
+ * whether dirent is available or not. You should use this pseudo type to
+ * portably declare your directory entries.
+ */
+/*#define I_DIRENT / **/
+/*#define DIRNAMLEN / **/
+#define Direntry_t struct dirent
+
+/* I_DLFCN:
+ * This symbol, if defined, indicates that <dlfcn.h> exists and should
+ * be included.
+ */
+/*#define I_DLFCN / **/
+
+/* I_FCNTL:
+ * This manifest constant tells the C program to include <fcntl.h>.
+ */
+/*#define I_FCNTL / **/
+
+/* I_FLOAT:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <float.h> to get definition of symbols like DBL_MAX or
+ * DBL_MIN, i.e. machine dependent floating point values.
+ */
+/*#define I_FLOAT / **/
+
+/* I_LIMITS:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <limits.h> to get definition of symbols like WORD_BIT or
+ * LONG_MAX, i.e. machine dependant limitations.
+ */
+/*#define I_LIMITS / **/
+
+/* I_LOCALE:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <locale.h>.
+ */
+/*#define I_LOCALE / **/
+
+/* I_MATH:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <math.h>.
+ */
+/*#define I_MATH / **/
+
+/* I_MEMORY:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <memory.h>.
+ */
+/*#define I_MEMORY / **/
+
+/* I_NDBM:
+ * This symbol, if defined, indicates that <ndbm.h> exists and should
+ * be included.
+ */
+/*#define I_NDBM / **/
+
+/* I_NET_ERRNO:
+ * This symbol, if defined, indicates that <net/errno.h> exists and
+ * should be included.
+ */
+/*#define I_NET_ERRNO / **/
+
+/* I_NETINET_IN:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <netinet/in.h>. Otherwise, you may try <sys/in.h>.
+ */
+/*#define I_NETINET_IN / **/
+
+/* I_SFIO:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sfio.h>.
+ */
+/*#define I_SFIO / **/
+
+/* I_STDDEF:
+ * This symbol, if defined, indicates that <stddef.h> exists and should
+ * be included.
+ */
+/*#define I_STDDEF / **/
+
+/* I_STDLIB:
+ * This symbol, if defined, indicates that <stdlib.h> exists and should
+ * be included.
+ */
+/*#define I_STDLIB / **/
+
+/* I_STRING:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <string.h> (USG systems) instead of <strings.h> (BSD systems).
+ */
+#define I_STRING /**/
+
+/* I_SYS_DIR:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/dir.h>.
+ */
+/*#define I_SYS_DIR / **/
+
+/* I_SYS_FILE:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/file.h> to get definition of R_OK and friends.
+ */
+/*#define I_SYS_FILE / **/
+
+/* I_SYS_IOCTL:
+ * This symbol, if defined, indicates that <sys/ioctl.h> exists and should
+ * be included. Otherwise, include <sgtty.h> or <termio.h>.
+ */
+/*#define I_SYS_IOCTL / **/
+
+/* I_SYS_NDIR:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/ndir.h>.
+ */
+/*#define I_SYS_NDIR / **/
+
+/* I_SYS_PARAM:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/param.h>.
+ */
+/*#define I_SYS_PARAM / **/
+
+/* I_SYS_RESOURCE:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/resource.h>.
+ */
+/*#define I_SYS_RESOURCE / **/
+
+/* I_SYS_SELECT:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/select.h> in order to get definition of struct timeval.
+ */
+/*#define I_SYS_SELECT / **/
+
+/* I_SYS_STAT:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/stat.h>.
+ */
+#define I_SYS_STAT /**/
+
+/* I_SYS_TIMES:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/times.h>.
+ */
+/*#define I_SYS_TIMES / **/
+
+/* I_SYS_TYPES:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/types.h>.
+ */
+/*#define I_SYS_TYPES / **/
+
+/* I_SYS_UN:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/un.h> to get UNIX domain socket definitions.
+ */
+/*#define I_SYS_UN / **/
+
+/* I_SYS_WAIT:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/wait.h>.
+ */
+/*#define I_SYS_WAIT / **/
+
+/* I_TERMIO:
+ * This symbol, if defined, indicates that the program should include
+ * <termio.h> rather than <sgtty.h>. There are also differences in
+ * the ioctl() calls that depend on the value of this symbol.
+ */
+/* I_TERMIOS:
+ * This symbol, if defined, indicates that the program should include
+ * the POSIX termios.h rather than sgtty.h or termio.h.
+ * There are also differences in the ioctl() calls that depend on the
+ * value of this symbol.
+ */
+/* I_SGTTY:
+ * This symbol, if defined, indicates that the program should include
+ * <sgtty.h> rather than <termio.h>. There are also differences in
+ * the ioctl() calls that depend on the value of this symbol.
+ */
+/*#define I_TERMIO / **/
+/*#define I_TERMIOS / **/
+/*#define I_SGTTY / **/
+
+/* I_UNISTD:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <unistd.h>.
+ */
+/*#define I_UNISTD / **/
+
+/* I_UTIME:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <utime.h>.
+ */
+/*#define I_UTIME / **/
+
+/* I_VALUES:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <values.h> to get definition of symbols like MINFLOAT or
+ * MAXLONG, i.e. machine dependant limitations. Probably, you
+ * should use <limits.h> instead, if it is available.
+ */
+/*#define I_VALUES / **/
+
+/* I_STDARG:
+ * This symbol, if defined, indicates that <stdarg.h> exists and should
+ * be included.
+ */
+/* I_VARARGS:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <varargs.h>.
+ */
+#define I_STDARG /**/
+/*#define I_VARARGS / **/
+
+/* I_VFORK:
+ * This symbol, if defined, indicates to the C program that it should
+ * include vfork.h.
+ */
+/*#define I_VFORK / **/
+
+/* CAN_PROTOTYPE:
+ * If defined, this macro indicates that the C compiler can handle
+ * function prototypes.
+ */
+/* _:
+ * This macro is used to declare function parameters for folks who want
+ * to make declarations with prototypes using a different style than
+ * the above macros. Use double parentheses. For example:
+ *
+ * int main _((int argc, char *argv[]));
+ */
+/*#define CAN_PROTOTYPE / **/
+#ifdef CAN_PROTOTYPE
+#define _(args) args
+#else
+#define _(args) ()
+#endif
+
+/* SH_PATH:
+ * This symbol contains the full pathname to the shell used on this
+ * on this system to execute Bourne shell scripts. Usually, this will be
+ * /bin/sh, though it's possible that some systems will have /bin/ksh,
+ * /bin/pdksh, /bin/ash, /bin/bash, or even something such as
+ * D:/bin/sh.exe.
+ */
+#define SH_PATH "" /**/
+
+/* STDCHAR:
+ * This symbol is defined to be the type of char used in stdio.h.
+ * It has the values "unsigned char" or "char".
+ */
+#define STDCHAR char /**/
+
+/* CROSSCOMPILE:
+ * This symbol, if defined, signifies that we our
+ * build process is a cross-compilation.
+ */
+/*#define CROSSCOMPILE / **/
+
+/* INTSIZE:
+ * This symbol contains the value of sizeof(int) so that the C
+ * preprocessor can make decisions based on it.
+ */
+/* LONGSIZE:
+ * This symbol contains the value of sizeof(long) so that the C
+ * preprocessor can make decisions based on it.
+ */
+/* SHORTSIZE:
+ * This symbol contains the value of sizeof(short) so that the C
+ * preprocessor can make decisions based on it.
+ */
+#define INTSIZE 1 /**/
+#define LONGSIZE 1 /**/
+#define SHORTSIZE 1 /**/
+
+/* MULTIARCH:
+ * This symbol, if defined, signifies that the build
+ * process will produce some binary files that are going to be
+ * used in a cross-platform environment. This is the case for
+ * example with the NeXT "fat" binaries that contain executables
+ * for several CPUs.
+ */
+/*#define MULTIARCH / **/
+
+/* HAS_QUAD:
+ * This symbol, if defined, tells that there's a 64-bit integer type,
+ * Quad_t, and its unsigned counterpar, Uquad_t. QUADKIND will be one
+ * of QUAD_IS_INT, QUAD_IS_LONG, QUAD_IS_LONG_LONG, or QUAD_IS_INT64_T.
+ */
+/*#define HAS_QUAD / **/
+#ifdef HAS_QUAD
+# define Quad_t int64_t /**/
+# define Uquad_t uint64_t /**/
+# define QUADKIND 4 /**/
+# define QUAD_IS_INT 1
+# define QUAD_IS_LONG 2
+# define QUAD_IS_LONG_LONG 3
+# define QUAD_IS_INT64_T 4
+#endif
+
+/* HAS_ACCESSX:
+ * This symbol, if defined, indicates that the accessx routine is
+ * available to do extended access checks.
+ */
+/*#define HAS_ACCESSX / **/
+
+/* HAS_EACCESS:
+ * This symbol, if defined, indicates that the eaccess routine is
+ * available to do extended access checks.
+ */
+/*#define HAS_EACCESS / **/
+
+/* I_SYS_ACCESS:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/access.h>.
+ */
+/*#define I_SYS_ACCESS / **/
+
+/* I_SYS_SECURITY:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/security.h>.
+ */
+/*#define I_SYS_SECURITY / **/
+
+/* OSNAME:
+ * This symbol contains the name of the operating system, as determined
+ * by Configure. You shouldn't rely on it too much; the specific
+ * feature tests from Configure are generally more reliable.
+ */
+#define OSNAME "unknown" /**/
+
+/* MEM_ALIGNBYTES:
+ * This symbol contains the number of bytes required to align a
+ * double, or a long double when applicable. Usual values are 2,
+ * 4 and 8. The default is eight, for safety.
+ */
+#if defined(CROSSCOMPILE) || defined(MULTIARCH)
+# define MEM_ALIGNBYTES 8
+#else
+#define MEM_ALIGNBYTES 4
+#endif
+
+/* ARCHLIB:
+ * This variable, if defined, holds the name of the directory in
+ * which the user wants to put architecture-dependent public
+ * library files for . It is most often a local directory
+ * such as /usr/local/lib. Programs using this variable must be
+ * prepared to deal with filename expansion. If ARCHLIB is the
+ * same as PRIVLIB, it is not defined, since presumably the
+ * program already searches PRIVLIB.
+ */
+/* ARCHLIB_EXP:
+ * This symbol contains the ~name expanded version of ARCHLIB, to be used
+ * in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+/*#define ARCHLIB "/usr/local/lib/perl5/5.6/unknown" / **/
+/*#define ARCHLIB_EXP "/usr/local/lib/perl5/5.6/unknown" / **/
+
+/* ARCHNAME:
+ * This symbol holds a string representing the architecture name.
+ * It may be used to construct an architecture-dependant pathname
+ * where library files may be held under a private library, for
+ * instance.
+ */
+#define ARCHNAME "unknown" /**/
+
+/* HAS_ATOLF:
+ * This symbol, if defined, indicates that the atolf routine is
+ * available to convert strings into long doubles.
+ */
+/*#define HAS_ATOLF / **/
+
+/* HAS_ATOLL:
+ * This symbol, if defined, indicates that the atoll routine is
+ * available to convert strings into long longs.
+ */
+/*#define HAS_ATOLL / **/
+
+/* BIN:
+ * This symbol holds the path of the bin directory where the package will
+ * be installed. Program must be prepared to deal with ~name substitution.
+ */
+/* BIN_EXP:
+ * This symbol is the filename expanded version of the BIN symbol, for
+ * programs that do not want to deal with that at run-time.
+ */
+#define BIN "/usr/local/bin" /**/
+#define BIN_EXP "" /**/
+
+/* PERL_BINCOMPAT_5005:
+ * This symbol, if defined, indicates that this version of Perl should be
+ * binary-compatible with Perl 5.005. This is impossible for builds
+ * that use features like threads and multiplicity it is always
+ * for those versions.
+ */
+/*#define PERL_BINCOMPAT_5005 / **/
+
+/* BYTEORDER:
+ * This symbol holds the hexadecimal constant defined in byteorder,
+ * i.e. 0x1234 or 0x4321, etc...
+ * If the compiler supports cross-compiling or multiple-architecture
+ * binaries (eg. on NeXT systems), use compiler-defined macros to
+ * determine the byte order.
+ * On NeXT 3.2 (and greater), you can build "Fat" Multiple Architecture
+ * Binaries (MAB) on either big endian or little endian machines.
+ * The endian-ness is available at compile-time. This only matters
+ * for perl, where the config.h can be generated and installed on
+ * one system, and used by a different architecture to build an
+ * extension. Older versions of NeXT that might not have
+ * defined either *_ENDIAN__ were all on Motorola 680x0 series,
+ * so the default case (for NeXT) is big endian to catch them.
+ * This might matter for NeXT 3.0.
+ */
+#if defined(CROSSCOMPILE) || defined(MULTIARCH)
+# ifdef __LITTLE_ENDIAN__
+# if LONGSIZE == 4
+# define BYTEORDER 0x1234
+# else
+# if LONGSIZE == 8
+# define BYTEORDER 0x12345678
+# endif
+# endif
+# else
+# ifdef __BIG_ENDIAN__
+# if LONGSIZE == 4
+# define BYTEORDER 0x4321
+# else
+# if LONGSIZE == 8
+# define BYTEORDER 0x87654321
+# endif
+# endif
+# endif
+# endif
+# if !defined(BYTEORDER) && (defined(NeXT) || defined(__NeXT__))
+# define BYTEORDER 0x4321
+# endif
+#else
+#define BYTEORDER 0x12 /* large digits for MSB */
+#endif /* NeXT */
+
+/* CAT2:
+ * This macro catenates 2 tokens together.
+ */
+/* STRINGIFY:
+ * This macro surrounds its token with double quotes.
+ */
+#if 42 == 1
+# define CAT2(a,b) a/**/b
+# define STRINGIFY(a) "a"
+ /* If you can get stringification with catify, tell me how! */
+#endif
+#if 42 == 42
+# define PeRl_CaTiFy(a, b) a ## b
+# define PeRl_StGiFy(a) #a
+/* the additional level of indirection enables these macros to be
+ * used as arguments to other macros. See K&R 2nd ed., page 231. */
+# define CAT2(a,b) PeRl_CaTiFy(a,b)
+# define StGiFy(a) PeRl_StGiFy(a)
+# define STRINGIFY(a) PeRl_StGiFy(a)
+#endif
+#if 42 != 1 && 42 != 42
+# include "Bletch: How does this C preprocessor catenate tokens?"
+#endif
+
+/* CPPSTDIN:
+ * This symbol contains the first part of the string which will invoke
+ * the C preprocessor on the standard input and produce to standard
+ * output. Typical value of "cc -E" or "/lib/cpp", but it can also
+ * call a wrapper. See CPPRUN.
+ */
+/* CPPMINUS:
+ * This symbol contains the second part of the string which will invoke
+ * the C preprocessor on the standard input and produce to standard
+ * output. This symbol will have the value "-" if CPPSTDIN needs a minus
+ * to specify standard input, otherwise the value is "".
+ */
+/* CPPRUN:
+ * This symbol contains the string which will invoke a C preprocessor on
+ * the standard input and produce to standard output. It needs to end
+ * with CPPLAST, after all other preprocessor flags have been specified.
+ * The main difference with CPPSTDIN is that this program will never be a
+ * pointer to a shell wrapper, i.e. it will be empty if no preprocessor is
+ * available directly to the user. Note that it may well be different from
+ * the preprocessor used to compile the C program.
+ */
+/* CPPLAST:
+ * This symbol is intended to be used along with CPPRUN in the same manner
+ * symbol CPPMINUS is used with CPPSTDIN. It contains either "-" or "".
+ */
+#define CPPSTDIN ""
+#define CPPMINUS ""
+#define CPPRUN ""
+#define CPPLAST ""
+
+/* HAS_ACCESS:
+ * This manifest constant lets the C program know that the access()
+ * system call is available to check for accessibility using real UID/GID.
+ * (always present on UNIX.)
+ */
+/*#define HAS_ACCESS / **/
+
+/* CASTI32:
+ * This symbol is defined if the C compiler can cast negative
+ * or large floating point numbers to 32-bit ints.
+ */
+/*#define CASTI32 / **/
+
+/* CASTNEGFLOAT:
+ * This symbol is defined if the C compiler can cast negative
+ * numbers to unsigned longs, ints and shorts.
+ */
+/* CASTFLAGS:
+ * This symbol contains flags that say what difficulties the compiler
+ * has casting odd floating values to unsigned long:
+ * 0 = ok
+ * 1 = couldn't cast < 0
+ * 2 = couldn't cast >= 0x80000000
+ * 4 = couldn't cast in argument expression list
+ */
+/*#define CASTNEGFLOAT / **/
+#define CASTFLAGS 0 /**/
+
+/* VOID_CLOSEDIR:
+ * This symbol, if defined, indicates that the closedir() routine
+ * does not return a value.
+ */
+/*#define VOID_CLOSEDIR / **/
+
+/* HAS_CSH:
+ * This symbol, if defined, indicates that the C-shell exists.
+ */
+/* CSH:
+ * This symbol, if defined, contains the full pathname of csh.
+ */
+/*#define HAS_CSH / **/
+#ifdef HAS_CSH
+#define CSH "" /**/
+#endif
+
+/* DLSYM_NEEDS_UNDERSCORE:
+ * This symbol, if defined, indicates that we need to prepend an
+ * underscore to the symbol name before calling dlsym(). This only
+ * makes sense if you *have* dlsym, which we will presume is the
+ * case if you're using dl_dlopen.xs.
+ */
+/*#define DLSYM_NEEDS_UNDERSCORE / **/
+
+/* HAS_DRAND48_PROTO:
+ * This symbol, if defined, indicates that the system provides
+ * a prototype for the drand48() function. Otherwise, it is up
+ * to the program to supply one. A good guess is
+ * extern double drand48 _((void));
+ */
+/*#define HAS_DRAND48_PROTO / **/
+
+/* HAS_ENDGRENT:
+ * This symbol, if defined, indicates that the getgrent routine is
+ * available for finalizing sequential access of the group database.
+ */
+/*#define HAS_ENDGRENT / **/
+
+/* HAS_ENDHOSTENT:
+ * This symbol, if defined, indicates that the endhostent() routine is
+ * available to close whatever was being used for host queries.
+ */
+/*#define HAS_ENDHOSTENT / **/
+
+/* HAS_ENDNETENT:
+ * This symbol, if defined, indicates that the endnetent() routine is
+ * available to close whatever was being used for network queries.
+ */
+/*#define HAS_ENDNETENT / **/
+
+/* HAS_ENDPROTOENT:
+ * This symbol, if defined, indicates that the endprotoent() routine is
+ * available to close whatever was being used for protocol queries.
+ */
+/*#define HAS_ENDPROTOENT / **/
+
+/* HAS_ENDPWENT:
+ * This symbol, if defined, indicates that the getgrent routine is
+ * available for finalizing sequential access of the passwd database.
+ */
+/*#define HAS_ENDPWENT / **/
+
+/* HAS_ENDSERVENT:
+ * This symbol, if defined, indicates that the endservent() routine is
+ * available to close whatever was being used for service queries.
+ */
+/*#define HAS_ENDSERVENT / **/
+
+/* HAS_FD_SET:
+ * This symbol, when defined, indicates presence of the fd_set typedef
+ * in <sys/types.h>
+ */
+/*#define HAS_FD_SET / **/
+
+/* FLEXFILENAMES:
+ * This symbol, if defined, indicates that the system supports filenames
+ * longer than 14 characters.
+ */
+/*#define FLEXFILENAMES / **/
+
+/* HAS_FPOS64_T:
+ * This symbol will be defined if the C compiler supports fpos64_t.
+ */
+/*#define HAS_FPOS64_T / **/
+
+/* HAS_FREXPL:
+ * This symbol, if defined, indicates that the frexpl routine is
+ * available to break a long double floating-point number into
+ * a normalized fraction and an integral power of 2.
+ */
+/*#define HAS_FREXPL / **/
+
+/* HAS_STRUCT_FS_DATA:
+ * This symbol, if defined, indicates that the struct fs_data
+ * to do statfs() is supported.
+ */
+/*#define HAS_STRUCT_FS_DATA / **/
+
+/* HAS_FSEEKO:
+ * This symbol, if defined, indicates that the fseeko routine is
+ * available to fseek beyond 32 bits (useful for ILP32 hosts).
+ */
+/*#define HAS_FSEEKO / **/
+
+/* HAS_FSTATFS:
+ * This symbol, if defined, indicates that the fstatfs routine is
+ * available to stat filesystems by file descriptors.
+ */
+/*#define HAS_FSTATFS / **/
+
+/* HAS_FTELLO:
+ * This symbol, if defined, indicates that the ftello routine is
+ * available to ftell beyond 32 bits (useful for ILP32 hosts).
+ */
+/*#define HAS_FTELLO / **/
+
+/* Gconvert:
+ * This preprocessor macro is defined to convert a floating point
+ * number to a string without a trailing decimal point. This
+ * emulates the behavior of sprintf("%g"), but is sometimes much more
+ * efficient. If gconvert() is not available, but gcvt() drops the
+ * trailing decimal point, then gcvt() is used. If all else fails,
+ * a macro using sprintf("%g") is used. Arguments for the Gconvert
+ * macro are: value, number of digits, whether trailing zeros should
+ * be retained, and the output buffer.
+ * Possible values are:
+ * d_Gconvert='gconvert((x),(n),(t),(b))'
+ * d_Gconvert='gcvt((x),(n),(b))'
+ * d_Gconvert='sprintf((b),"%.*g",(n),(x))'
+ * The last two assume trailing zeros should not be kept.
+ */
+#define Gconvert(x,n,t,b) sprintf((b),"%.*g",(n),(x))
+
+/* HAS_GETCWD:
+ * This symbol, if defined, indicates that the getcwd routine is
+ * available to get the current working directory.
+ */
+/*#define HAS_GETCWD / **/
+
+/* HAS_GETESPWNAM:
+ * This symbol, if defined, indicates that the getespwnam system call is
+ * available to retrieve enchanced (shadow) password entries by name.
+ */
+/*#define HAS_GETESPWNAM / **/
+
+/* HAS_GETFSSTAT:
+ * This symbol, if defined, indicates that the getfsstat routine is
+ * available to stat filesystems in bulk.
+ */
+/*#define HAS_GETFSSTAT / **/
+
+/* HAS_GETGRENT:
+ * This symbol, if defined, indicates that the getgrent routine is
+ * available for sequential access of the group database.
+ */
+/*#define HAS_GETGRENT / **/
+
+/* HAS_GETHOSTBYADDR:
+ * This symbol, if defined, indicates that the gethostbyaddr() routine is
+ * available to look up hosts by their IP addresses.
+ */
+/*#define HAS_GETHOSTBYADDR / **/
+
+/* HAS_GETHOSTBYNAME:
+ * This symbol, if defined, indicates that the gethostbyname() routine is
+ * available to look up host names in some data base or other.
+ */
+/*#define HAS_GETHOSTBYNAME / **/
+
+/* HAS_GETHOSTENT:
+ * This symbol, if defined, indicates that the gethostent() routine is
+ * available to look up host names in some data base or another.
+ */
+/*#define HAS_GETHOSTENT / **/
+
+/* HAS_GETHOSTNAME:
+ * This symbol, if defined, indicates that the C program may use the
+ * gethostname() routine to derive the host name. See also HAS_UNAME
+ * and PHOSTNAME.
+ */
+/* HAS_UNAME:
+ * This symbol, if defined, indicates that the C program may use the
+ * uname() routine to derive the host name. See also HAS_GETHOSTNAME
+ * and PHOSTNAME.
+ */
+/* PHOSTNAME:
+ * This symbol, if defined, indicates the command to feed to the
+ * popen() routine to derive the host name. See also HAS_GETHOSTNAME
+ * and HAS_UNAME. Note that the command uses a fully qualified path,
+ * so that it is safe even if used by a process with super-user
+ * privileges.
+ */
+/* HAS_PHOSTNAME:
+ * This symbol, if defined, indicates that the C program may use the
+ * contents of PHOSTNAME as a command to feed to the popen() routine
+ * to derive the host name.
+ */
+/*#define HAS_GETHOSTNAME / **/
+/*#define HAS_UNAME / **/
+/*#define HAS_PHOSTNAME / **/
+#ifdef HAS_PHOSTNAME
+#define PHOSTNAME "" /* How to get the host name */
+#endif
+
+/* HAS_GETHOST_PROTOS:
+ * This symbol, if defined, indicates that <netdb.h> includes
+ * prototypes for gethostent(), gethostbyname(), and
+ * gethostbyaddr(). Otherwise, it is up to the program to guess
+ * them. See netdbtype.U for probing for various Netdb_xxx_t types.
+ */
+/*#define HAS_GETHOST_PROTOS / **/
+
+/* HAS_GETMNT:
+ * This symbol, if defined, indicates that the getmnt routine is
+ * available to get filesystem mount info by filename.
+ */
+/*#define HAS_GETMNT / **/
+
+/* HAS_GETMNTENT:
+ * This symbol, if defined, indicates that the getmntent routine is
+ * available to iterate through mounted file systems to get their info.
+ */
+/*#define HAS_GETMNTENT / **/
+
+/* HAS_GETNETBYADDR:
+ * This symbol, if defined, indicates that the getnetbyaddr() routine is
+ * available to look up networks by their IP addresses.
+ */
+/*#define HAS_GETNETBYADDR / **/
+
+/* HAS_GETNETBYNAME:
+ * This symbol, if defined, indicates that the getnetbyname() routine is
+ * available to look up networks by their names.
+ */
+/*#define HAS_GETNETBYNAME / **/
+
+/* HAS_GETNETENT:
+ * This symbol, if defined, indicates that the getnetent() routine is
+ * available to look up network names in some data base or another.
+ */
+/*#define HAS_GETNETENT / **/
+
+/* HAS_GETNET_PROTOS:
+ * This symbol, if defined, indicates that <netdb.h> includes
+ * prototypes for getnetent(), getnetbyname(), and
+ * getnetbyaddr(). Otherwise, it is up to the program to guess
+ * them. See netdbtype.U for probing for various Netdb_xxx_t types.
+ */
+/*#define HAS_GETNET_PROTOS / **/
+
+/* HAS_GETPROTOENT:
+ * This symbol, if defined, indicates that the getprotoent() routine is
+ * available to look up protocols in some data base or another.
+ */
+/*#define HAS_GETPROTOENT / **/
+
+/* HAS_GETPROTOBYNAME:
+ * This symbol, if defined, indicates that the getprotobyname()
+ * routine is available to look up protocols by their name.
+ */
+/* HAS_GETPROTOBYNUMBER:
+ * This symbol, if defined, indicates that the getprotobynumber()
+ * routine is available to look up protocols by their number.
+ */
+/*#define HAS_GETPROTOBYNAME / **/
+/*#define HAS_GETPROTOBYNUMBER / **/
+
+/* HAS_GETPROTO_PROTOS:
+ * This symbol, if defined, indicates that <netdb.h> includes
+ * prototypes for getprotoent(), getprotobyname(), and
+ * getprotobyaddr(). Otherwise, it is up to the program to guess
+ * them. See netdbtype.U for probing for various Netdb_xxx_t types.
+ */
+/*#define HAS_GETPROTO_PROTOS / **/
+
+/* HAS_GETPRPWNAM:
+ * This symbol, if defined, indicates that the getprpwnam system call is
+ * available to retrieve protected (shadow) password entries by name.
+ */
+/*#define HAS_GETPRPWNAM / **/
+
+/* HAS_GETPWENT:
+ * This symbol, if defined, indicates that the getpwent routine is
+ * available for sequential access of the passwd database.
+ * If this is not available, the older getpw() function may be available.
+ */
+/*#define HAS_GETPWENT / **/
+
+/* HAS_GETSERVENT:
+ * This symbol, if defined, indicates that the getservent() routine is
+ * available to look up network services in some data base or another.
+ */
+/*#define HAS_GETSERVENT / **/
+
+/* HAS_GETSERV_PROTOS:
+ * This symbol, if defined, indicates that <netdb.h> includes
+ * prototypes for getservent(), getservbyname(), and
+ * getservbyaddr(). Otherwise, it is up to the program to guess
+ * them. See netdbtype.U for probing for various Netdb_xxx_t types.
+ */
+/*#define HAS_GETSERV_PROTOS / **/
+
+/* HAS_GETSPNAM:
+ * This symbol, if defined, indicates that the getspnam system call is
+ * available to retrieve SysV shadow password entries by name.
+ */
+/*#define HAS_GETSPNAM / **/
+
+/* HAS_GETSERVBYNAME:
+ * This symbol, if defined, indicates that the getservbyname()
+ * routine is available to look up services by their name.
+ */
+/* HAS_GETSERVBYPORT:
+ * This symbol, if defined, indicates that the getservbyport()
+ * routine is available to look up services by their port.
+ */
+/*#define HAS_GETSERVBYNAME / **/
+/*#define HAS_GETSERVBYPORT / **/
+
+/* HAS_GNULIBC:
+ * This symbol, if defined, indicates to the C program that
+ * the GNU C library is being used.
+ */
+/*#define HAS_GNULIBC / **/
+#if defined(HAS_GNULIBC) && !defined(_GNU_SOURCE)
+# define _GNU_SOURCE
+#endif
+/* HAS_HASMNTOPT:
+ * This symbol, if defined, indicates that the hasmntopt routine is
+ * available to query the mount options of file systems.
+ */
+/*#define HAS_HASMNTOPT / **/
+
+/* HAS_HTONL:
+ * This symbol, if defined, indicates that the htonl() routine (and
+ * friends htons() ntohl() ntohs()) are available to do network
+ * order byte swapping.
+ */
+/* HAS_HTONS:
+ * This symbol, if defined, indicates that the htons() routine (and
+ * friends htonl() ntohl() ntohs()) are available to do network
+ * order byte swapping.
+ */
+/* HAS_NTOHL:
+ * This symbol, if defined, indicates that the ntohl() routine (and
+ * friends htonl() htons() ntohs()) are available to do network
+ * order byte swapping.
+ */
+/* HAS_NTOHS:
+ * This symbol, if defined, indicates that the ntohs() routine (and
+ * friends htonl() htons() ntohl()) are available to do network
+ * order byte swapping.
+ */
+/*#define HAS_HTONL / **/
+/*#define HAS_HTONS / **/
+/*#define HAS_NTOHL / **/
+/*#define HAS_NTOHS / **/
+
+/* HAS_ICONV:
+ * This symbol, if defined, indicates that the iconv routine is
+ * available to do character set conversions.
+ */
+/*#define HAS_ICONV / **/
+
+/* HAS_INT64_T:
+ * This symbol will defined if the C compiler supports int64_t.
+ * Usually the <inttypes.h> needs to be included, but sometimes
+ * <sys/types.h> is enough.
+ */
+/*#define HAS_INT64_T / **/
+
+/* HAS_ISASCII:
+ * This manifest constant lets the C program know that isascii
+ * is available.
+ */
+/*#define HAS_ISASCII / **/
+
+/* HAS_ISNAN:
+ * This symbol, if defined, indicates that the isnan routine is
+ * available to check whether a double is a NaN.
+ */
+/*#define HAS_ISNAN / **/
+
+/* HAS_ISNANL:
+ * This symbol, if defined, indicates that the isnanl routine is
+ * available to check whether a long double is a NaN.
+ */
+/*#define HAS_ISNANL / **/
+
+/* HAS_LCHOWN:
+ * This symbol, if defined, indicates that the lchown routine is
+ * available to operate on a symbolic link (instead of following the
+ * link).
+ */
+/*#define HAS_LCHOWN / **/
+
+/* HAS_LDBL_DIG:
+ * This symbol, if defined, indicates that this system's <float.h>
+ * or <limits.h> defines the symbol LDBL_DIG, which is the number
+ * of significant digits in a long double precision number. Unlike
+ * for DBL_DIG, there's no good guess for LDBL_DIG if it is undefined.
+ */
+/*#define HAS_LDBL_DIG / * */
+
+/* HAS_LONG_DOUBLE:
+ * This symbol will be defined if the C compiler supports long
+ * doubles.
+ */
+/* LONG_DOUBLESIZE:
+ * This symbol contains the size of a long double, so that the
+ * C preprocessor can make decisions based on it. It is only
+ * defined if the system supports long doubles.
+ */
+/*#define HAS_LONG_DOUBLE / **/
+#ifdef HAS_LONG_DOUBLE
+#define LONG_DOUBLESIZE 1 /**/
+#endif
+
+/* HAS_LONG_LONG:
+ * This symbol will be defined if the C compiler supports long long.
+ */
+/* LONGLONGSIZE:
+ * This symbol contains the size of a long long, so that the
+ * C preprocessor can make decisions based on it. It is only
+ * defined if the system supports long long.
+ */
+/*#define HAS_LONG_LONG / **/
+#ifdef HAS_LONG_LONG
+#define LONGLONGSIZE 1 /**/
+#endif
+
+/* HAS_LSEEK_PROTO:
+ * This symbol, if defined, indicates that the system provides
+ * a prototype for the lseek() function. Otherwise, it is up
+ * to the program to supply one. A good guess is
+ * extern off_t lseek(int, off_t, int);
+ */
+/*#define HAS_LSEEK_PROTO / **/
+
+/* HAS_MADVISE:
+ * This symbol, if defined, indicates that the madvise system call is
+ * available to map a file into memory.
+ */
+/*#define HAS_MADVISE / **/
+
+/* HAS_MEMCHR:
+ * This symbol, if defined, indicates that the memchr routine is available
+ * to locate characters within a C string.
+ */
+/*#define HAS_MEMCHR / **/
+
+/* HAS_MKDTEMP:
+ * This symbol, if defined, indicates that the mkdtemp routine is
+ * available to exclusively create a uniquely named temporary directory.
+ */
+/*#define HAS_MKDTEMP / **/
+
+/* HAS_MKSTEMP:
+ * This symbol, if defined, indicates that the mkstemp routine is
+ * available to exclusively create and open a uniquely named
+ * temporary file.
+ */
+/*#define HAS_MKSTEMP / **/
+
+/* HAS_MKSTEMPS:
+ * This symbol, if defined, indicates that the mkstemps routine is
+ * available to excluslvely create and open a uniquely named
+ * (with a suffix) temporary file.
+ */
+/*#define HAS_MKSTEMPS / **/
+
+/* HAS_MMAP:
+ * This symbol, if defined, indicates that the mmap system call is
+ * available to map a file into memory.
+ */
+/* Mmap_t:
+ * This symbol holds the return type of the mmap() system call
+ * (and simultaneously the type of the first argument).
+ * Usually set to 'void *' or 'cadd_t'.
+ */
+/*#define HAS_MMAP / **/
+#define Mmap_t /**/
+
+/* HAS_MODFL:
+ * This symbol, if defined, indicates that the modfl routine is
+ * available to split a long double x into a fractional part f and
+ * an integer part i such that |f| < 1.0 and (f + i) = x.
+ */
+/*#define HAS_MODFL / **/
+
+/* HAS_MPROTECT:
+ * This symbol, if defined, indicates that the mprotect system call is
+ * available to modify the access protection of a memory mapped file.
+ */
+/*#define HAS_MPROTECT / **/
+
+/* HAS_MSG:
+ * This symbol, if defined, indicates that the entire msg*(2) library is
+ * supported (IPC mechanism based on message queues).
+ */
+/*#define HAS_MSG / **/
+
+/* HAS_OFF64_T:
+ * This symbol will be defined if the C compiler supports off64_t.
+ */
+/*#define HAS_OFF64_T / **/
+
+/* HAS_OPEN3:
+ * This manifest constant lets the C program know that the three
+ * argument form of open(2) is available.
+ */
+/*#define HAS_OPEN3 / **/
+
+/* OLD_PTHREAD_CREATE_JOINABLE:
+ * This symbol, if defined, indicates how to create pthread
+ * in joinable (aka undetached) state. NOTE: not defined
+ * if pthread.h already has defined PTHREAD_CREATE_JOINABLE
+ * (the new version of the constant).
+ * If defined, known values are PTHREAD_CREATE_UNDETACHED
+ * and __UNDETACHED.
+ */
+/*#define OLD_PTHREAD_CREATE_JOINABLE / **/
+
+/* HAS_PTHREAD_YIELD:
+ * This symbol, if defined, indicates that the pthread_yield
+ * routine is available to yield the execution of the current
+ * thread. sched_yield is preferable to pthread_yield.
+ */
+/* SCHED_YIELD:
+ * This symbol defines the way to yield the execution of
+ * the current thread. Known ways are sched_yield,
+ * pthread_yield, and pthread_yield with NULL.
+ */
+/* HAS_SCHED_YIELD:
+ * This symbol, if defined, indicates that the sched_yield
+ * routine is available to yield the execution of the current
+ * thread. sched_yield is preferable to pthread_yield.
+ */
+/*#define HAS_PTHREAD_YIELD / **/
+#define SCHED_YIELD sched_yield() /**/
+/*#define HAS_SCHED_YIELD / **/
+
+/* HAS_SAFE_BCOPY:
+ * This symbol, if defined, indicates that the bcopy routine is available
+ * to copy potentially overlapping memory blocks. Otherwise you should
+ * probably use memmove() or memcpy(). If neither is defined, roll your
+ * own version.
+ */
+/*#define HAS_SAFE_BCOPY / **/
+
+/* HAS_SAFE_MEMCPY:
+ * This symbol, if defined, indicates that the memcpy routine is available
+ * to copy potentially overlapping memory blocks. Otherwise you should
+ * probably use memmove() or memcpy(). If neither is defined, roll your
+ * own version.
+ */
+/*#define HAS_SAFE_MEMCPY / **/
+
+/* HAS_SANE_MEMCMP:
+ * This symbol, if defined, indicates that the memcmp routine is available
+ * and can be used to compare relative magnitudes of chars with their high
+ * bits set. If it is not defined, roll your own version.
+ */
+/*#define HAS_SANE_MEMCMP / **/
+
+/* HAS_SEM:
+ * This symbol, if defined, indicates that the entire sem*(2) library is
+ * supported.
+ */
+/*#define HAS_SEM / **/
+
+/* HAS_SETGRENT:
+ * This symbol, if defined, indicates that the setgrent routine is
+ * available for initializing sequential access of the group database.
+ */
+/*#define HAS_SETGRENT / **/
+
+/* HAS_SETGROUPS:
+ * This symbol, if defined, indicates that the setgroups() routine is
+ * available to set the list of process groups. If unavailable, multiple
+ * groups are probably not supported.
+ */
+/*#define HAS_SETGROUPS / **/
+
+/* HAS_SETHOSTENT:
+ * This symbol, if defined, indicates that the sethostent() routine is
+ * available.
+ */
+/*#define HAS_SETHOSTENT / **/
+
+/* HAS_SETNETENT:
+ * This symbol, if defined, indicates that the setnetent() routine is
+ * available.
+ */
+/*#define HAS_SETNETENT / **/
+
+/* HAS_SETPROTOENT:
+ * This symbol, if defined, indicates that the setprotoent() routine is
+ * available.
+ */
+/*#define HAS_SETPROTOENT / **/
+
+/* HAS_SETPWENT:
+ * This symbol, if defined, indicates that the setpwent routine is
+ * available for initializing sequential access of the passwd database.
+ */
+/*#define HAS_SETPWENT / **/
+
+/* HAS_SETSERVENT:
+ * This symbol, if defined, indicates that the setservent() routine is
+ * available.
+ */
+/*#define HAS_SETSERVENT / **/
+
+/* HAS_SETVBUF:
+ * This symbol, if defined, indicates that the setvbuf routine is
+ * available to change buffering on an open stdio stream.
+ * to a line-buffered mode.
+ */
+/*#define HAS_SETVBUF / **/
+
+/* USE_SFIO:
+ * This symbol, if defined, indicates that sfio should
+ * be used.
+ */
+/*#define USE_SFIO / **/
+
+/* HAS_SHM:
+ * This symbol, if defined, indicates that the entire shm*(2) library is
+ * supported.
+ */
+/*#define HAS_SHM / **/
+
+/* HAS_SIGACTION:
+ * This symbol, if defined, indicates that Vr4's sigaction() routine
+ * is available.
+ */
+/*#define HAS_SIGACTION / **/
+
+/* HAS_SIGSETJMP:
+ * This variable indicates to the C program that the sigsetjmp()
+ * routine is available to save the calling process's registers
+ * and stack environment for later use by siglongjmp(), and
+ * to optionally save the process's signal mask. See
+ * Sigjmp_buf, Sigsetjmp, and Siglongjmp.
+ */
+/* Sigjmp_buf:
+ * This is the buffer type to be used with Sigsetjmp and Siglongjmp.
+ */
+/* Sigsetjmp:
+ * This macro is used in the same way as sigsetjmp(), but will invoke
+ * traditional setjmp() if sigsetjmp isn't available.
+ * See HAS_SIGSETJMP.
+ */
+/* Siglongjmp:
+ * This macro is used in the same way as siglongjmp(), but will invoke
+ * traditional longjmp() if siglongjmp isn't available.
+ * See HAS_SIGSETJMP.
+ */
+/*#define HAS_SIGSETJMP / **/
+#ifdef HAS_SIGSETJMP
+#define Sigjmp_buf sigjmp_buf
+#define Sigsetjmp(buf,save_mask) sigsetjmp((buf),(save_mask))
+#define Siglongjmp(buf,retval) siglongjmp((buf),(retval))
+#else
+#define Sigjmp_buf jmp_buf
+#define Sigsetjmp(buf,save_mask) setjmp((buf))
+#define Siglongjmp(buf,retval) longjmp((buf),(retval))
+#endif
+
+/* HAS_SOCKET:
+ * This symbol, if defined, indicates that the BSD socket interface is
+ * supported.
+ */
+/* HAS_SOCKETPAIR:
+ * This symbol, if defined, indicates that the BSD socketpair() call is
+ * supported.
+ */
+/* HAS_MSG_CTRUNC:
+ * This symbol, if defined, indicates that the MSG_CTRUNC is supported.
+ * Checking just with #ifdef might not be enough because this symbol
+ * has been known to be an enum.
+ */
+/* HAS_MSG_DONTROUTE:
+ * This symbol, if defined, indicates that the MSG_DONTROUTE is supported.
+ * Checking just with #ifdef might not be enough because this symbol
+ * has been known to be an enum.
+ */
+/* HAS_MSG_OOB:
+ * This symbol, if defined, indicates that the MSG_OOB is supported.
+ * Checking just with #ifdef might not be enough because this symbol
+ * has been known to be an enum.
+ */
+/* HAS_MSG_PEEK:
+ * This symbol, if defined, indicates that the MSG_PEEK is supported.
+ * Checking just with #ifdef might not be enough because this symbol
+ * has been known to be an enum.
+ */
+/* HAS_MSG_PROXY:
+ * This symbol, if defined, indicates that the MSG_PROXY is supported.
+ * Checking just with #ifdef might not be enough because this symbol
+ * has been known to be an enum.
+ */
+/* HAS_SCM_RIGHTS:
+ * This symbol, if defined, indicates that the SCM_RIGHTS is supported.
+ * Checking just with #ifdef might not be enough because this symbol
+ * has been known to be an enum.
+ */
+/*#define HAS_SOCKET / **/
+/*#define HAS_SOCKETPAIR / **/
+/*#define HAS_MSG_CTRUNC / **/
+/*#define HAS_MSG_DONTROUTE / **/
+/*#define HAS_MSG_OOB / **/
+/*#define HAS_MSG_PEEK / **/
+/*#define HAS_MSG_PROXY / **/
+/*#define HAS_SCM_RIGHTS / **/
+
+/* HAS_SQRTL:
+ * This symbol, if defined, indicates that the sqrtl routine is
+ * available to do long double square roots.
+ */
+/*#define HAS_SQRTL / **/
+
+/* USE_STAT_BLOCKS:
+ * This symbol is defined if this system has a stat structure declaring
+ * st_blksize and st_blocks.
+ */
+#ifndef USE_STAT_BLOCKS
+/*#define USE_STAT_BLOCKS / **/
+#endif
+
+/* HAS_STRUCT_STATFS_F_FLAGS:
+ * This symbol, if defined, indicates that the struct statfs
+ * does have the f_flags member containing the mount flags of
+ * the filesystem containing the file.
+ * This kind of struct statfs is coming from <sys/mount.h> (BSD 4.3),
+ * not from <sys/statfs.h> (SYSV). Older BSDs (like Ultrix) do not
+ * have statfs() and struct statfs, they have ustat() and getmnt()
+ * with struct ustat and struct fs_data.
+ */
+/*#define HAS_STRUCT_STATFS_F_FLAGS / **/
+
+/* HAS_STRUCT_STATFS:
+ * This symbol, if defined, indicates that the struct statfs
+ * to do statfs() is supported.
+ */
+/*#define HAS_STRUCT_STATFS / **/
+
+/* HAS_FSTATVFS:
+ * This symbol, if defined, indicates that the fstatvfs routine is
+ * available to stat filesystems by file descriptors.
+ */
+/*#define HAS_FSTATVFS / **/
+
+/* USE_STDIO_PTR:
+ * This symbol is defined if the _ptr and _cnt fields (or similar)
+ * of the stdio FILE structure can be used to access the stdio buffer
+ * for a file handle. If this is defined, then the FILE_ptr(fp)
+ * and FILE_cnt(fp) macros will also be defined and should be used
+ * to access these fields.
+ */
+/* FILE_ptr:
+ * This macro is used to access the _ptr field (or equivalent) of the
+ * FILE structure pointed to by its argument. This macro will always be
+ * defined if USE_STDIO_PTR is defined.
+ */
+/* STDIO_PTR_LVALUE:
+ * This symbol is defined if the FILE_ptr macro can be used as an
+ * lvalue.
+ */
+/* FILE_cnt:
+ * This macro is used to access the _cnt field (or equivalent) of the
+ * FILE structure pointed to by its argument. This macro will always be
+ * defined if USE_STDIO_PTR is defined.
+ */
+/* STDIO_CNT_LVALUE:
+ * This symbol is defined if the FILE_cnt macro can be used as an
+ * lvalue.
+ */
+/*#define USE_STDIO_PTR / **/
+#ifdef USE_STDIO_PTR
+#define FILE_ptr(fp) ((fp)->_IO_read_ptr)
+/*#define STDIO_PTR_LVALUE / **/
+#define FILE_cnt(fp) ((fp)->_IO_read_end - (fp)->_IO_read_ptr)
+/*#define STDIO_CNT_LVALUE / **/
+#endif
+
+/* USE_STDIO_BASE:
+ * This symbol is defined if the _base field (or similar) of the
+ * stdio FILE structure can be used to access the stdio buffer for
+ * a file handle. If this is defined, then the FILE_base(fp) macro
+ * will also be defined and should be used to access this field.
+ * Also, the FILE_bufsiz(fp) macro will be defined and should be used
+ * to determine the number of bytes in the buffer. USE_STDIO_BASE
+ * will never be defined unless USE_STDIO_PTR is.
+ */
+/* FILE_base:
+ * This macro is used to access the _base field (or equivalent) of the
+ * FILE structure pointed to by its argument. This macro will always be
+ * defined if USE_STDIO_BASE is defined.
+ */
+/* FILE_bufsiz:
+ * This macro is used to determine the number of bytes in the I/O
+ * buffer pointed to by _base field (or equivalent) of the FILE
+ * structure pointed to its argument. This macro will always be defined
+ * if USE_STDIO_BASE is defined.
+ */
+/*#define USE_STDIO_BASE / **/
+#ifdef USE_STDIO_BASE
+#define FILE_base(fp) ((fp)->_IO_read_base)
+#define FILE_bufsiz(fp) ((fp)->_IO_read_end - (fp)->_IO_read_base)
+#endif
+
+/* HAS_STRERROR:
+ * This symbol, if defined, indicates that the strerror routine is
+ * available to translate error numbers to strings. See the writeup
+ * of Strerror() in this file before you try to define your own.
+ */
+/* HAS_SYS_ERRLIST:
+ * This symbol, if defined, indicates that the sys_errlist array is
+ * available to translate error numbers to strings. The extern int
+ * sys_nerr gives the size of that table.
+ */
+/* Strerror:
+ * This preprocessor symbol is defined as a macro if strerror() is
+ * not available to translate error numbers to strings but sys_errlist[]
+ * array is there.
+ */
+/*#define HAS_STRERROR / **/
+/*#define HAS_SYS_ERRLIST / **/
+#define Strerror(e) strerror(e)
+
+/* HAS_STRTOLD:
+ * This symbol, if defined, indicates that the strtold routine is
+ * available to convert strings to long doubles.
+ */
+/*#define HAS_STRTOLD / **/
+
+/* HAS_STRTOLL:
+ * This symbol, if defined, indicates that the strtoll routine is
+ * available to convert strings to long longs.
+ */
+/*#define HAS_STRTOLL / **/
+
+/* HAS_STRTOULL:
+ * This symbol, if defined, indicates that the strtoull routine is
+ * available to convert strings to unsigned long longs.
+ */
+/*#define HAS_STRTOULL / **/
+
+/* HAS_STRTOUQ:
+ * This symbol, if defined, indicates that the strtouq routine is
+ * available to convert strings to unsigned long longs (quads).
+ */
+/*#define HAS_STRTOUQ / **/
+
+/* HAS_TELLDIR_PROTO:
+ * This symbol, if defined, indicates that the system provides
+ * a prototype for the telldir() function. Otherwise, it is up
+ * to the program to supply one. A good guess is
+ * extern long telldir _((DIR*));
+ */
+/*#define HAS_TELLDIR_PROTO / **/
+
+/* Time_t:
+ * This symbol holds the type returned by time(). It can be long,
+ * or time_t on BSD sites (in which case <sys/types.h> should be
+ * included).
+ */
+#define Time_t int /* Time type */
+
+/* HAS_TIMES:
+ * This symbol, if defined, indicates that the times() routine exists.
+ * Note that this became obsolete on some systems (SUNOS), which now
+ * use getrusage(). It may be necessary to include <sys/times.h>.
+ */
+/*#define HAS_TIMES / **/
+
+/* HAS_UNION_SEMUN:
+ * This symbol, if defined, indicates that the union semun is
+ * defined by including <sys/sem.h>. If not, the user code
+ * probably needs to define it as:
+ * union semun {
+ * int val;
+ * struct semid_ds *buf;
+ * unsigned short *array;
+ * }
+ */
+/* USE_SEMCTL_SEMUN:
+ * This symbol, if defined, indicates that union semun is
+ * used for semctl IPC_STAT.
+ */
+/* USE_SEMCTL_SEMID_DS:
+ * This symbol, if defined, indicates that struct semid_ds * is
+ * used for semctl IPC_STAT.
+ */
+/*#define HAS_UNION_SEMUN / **/
+/*#define USE_SEMCTL_SEMUN / **/
+/*#define USE_SEMCTL_SEMID_DS / **/
+
+/* HAS_USTAT:
+ * This symbol, if defined, indicates that the ustat system call is
+ * available to query file system statistics by dev_t.
+ */
+/*#define HAS_USTAT / **/
+
+/* HAS_VFORK:
+ * This symbol, if defined, indicates that vfork() exists.
+ */
+/*#define HAS_VFORK / **/
+
+/* Signal_t:
+ * This symbol's value is either "void" or "int", corresponding to the
+ * appropriate return type of a signal handler. Thus, you can declare
+ * a signal handler using "Signal_t (*handler)()", and define the
+ * handler using "Signal_t handler(sig)".
+ */
+#define Signal_t int /* Signal handler's return type */
+
+/* HAS_VPRINTF:
+ * This symbol, if defined, indicates that the vprintf routine is available
+ * to printf with a pointer to an argument list. If unavailable, you
+ * may need to write your own, probably in terms of _doprnt().
+ */
+/* USE_CHAR_VSPRINTF:
+ * This symbol is defined if this system has vsprintf() returning type
+ * (char*). The trend seems to be to declare it as "int vsprintf()". It
+ * is up to the package author to declare vsprintf correctly based on the
+ * symbol.
+ */
+#define HAS_VPRINTF /**/
+/*#define USE_CHAR_VSPRINTF / **/
+
+/* USE_DYNAMIC_LOADING:
+ * This symbol, if defined, indicates that dynamic loading of
+ * some sort is available.
+ */
+/*#define USE_DYNAMIC_LOADING / **/
+
+/* DOUBLESIZE:
+ * This symbol contains the size of a double, so that the C preprocessor
+ * can make decisions based on it.
+ */
+#define DOUBLESIZE 1 /**/
+
+/* EBCDIC:
+ * This symbol, if defined, indicates that this system uses
+ * EBCDIC encoding.
+ */
+/*#define EBCDIC / **/
+
+/* FFLUSH_NULL:
+ * This symbol, if defined, tells that fflush(NULL) does flush
+ * all pending stdio output.
+ */
+/* FFLUSH_ALL:
+ * This symbol, if defined, tells that to flush
+ * all pending stdio output one must loop through all
+ * the stdio file handles stored in an array and fflush them.
+ * Note that if fflushNULL is defined, fflushall will not
+ * even be probed for and will be left undefined.
+ */
+/*#define FFLUSH_NULL / **/
+/*#define FFLUSH_ALL / **/
+
+/* Fpos_t:
+ * This symbol holds the type used to declare file positions in libc.
+ * It can be fpos_t, long, uint, etc... It may be necessary to include
+ * <sys/types.h> to get any typedef'ed information.
+ */
+#define Fpos_t int /* File position type */
+
+/* Gid_t_f:
+ * This symbol defines the format string used for printing a Gid_t.
+ */
+#define Gid_t_f "lu" /**/
+
+/* Gid_t_sign:
+ * This symbol holds the signedess of a Gid_t.
+ * 1 for unsigned, -1 for signed.
+ */
+#define Gid_t_sign 1 /* GID sign */
+
+/* Gid_t_size:
+ * This symbol holds the size of a Gid_t in bytes.
+ */
+#define Gid_t_size 4 /* GID size */
+
+/* Gid_t:
+ * This symbol holds the return type of getgid() and the type of
+ * argument to setrgid() and related functions. Typically,
+ * it is the type of group ids in the kernel. It can be int, ushort,
+ * gid_t, etc... It may be necessary to include <sys/types.h> to get
+ * any typedef'ed information.
+ */
+#define Gid_t int /* Type for getgid(), etc... */
+
+/* Groups_t:
+ * This symbol holds the type used for the second argument to
+ * getgroups() and setgroups(). Usually, this is the same as
+ * gidtype (gid_t) , but sometimes it isn't.
+ * It can be int, ushort, gid_t, etc...
+ * It may be necessary to include <sys/types.h> to get any
+ * typedef'ed information. This is only required if you have
+ * getgroups() or setgroups()..
+ */
+#if defined(HAS_GETGROUPS) || defined(HAS_SETGROUPS)
+#define Groups_t int /* Type for 2nd arg to [sg]etgroups() */
+#endif
+
+/* DB_Prefix_t:
+ * This symbol contains the type of the prefix structure element
+ * in the <db.h> header file. In older versions of DB, it was
+ * int, while in newer ones it is u_int32_t.
+ */
+/* DB_Hash_t:
+ * This symbol contains the type of the prefix structure element
+ * in the <db.h> header file. In older versions of DB, it was
+ * int, while in newer ones it is size_t.
+ */
+#define DB_Hash_t u_int32_t /**/
+#define DB_Prefix_t size_t /**/
+
+/* I_GRP:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <grp.h>.
+ */
+/* GRPASSWD:
+ * This symbol, if defined, indicates to the C program that struct group
+ * in <grp.h> contains gr_passwd.
+ */
+/*#define I_GRP / **/
+/*#define GRPASSWD / **/
+
+/* I_ICONV:
+ * This symbol, if defined, indicates that <iconv.h> exists and
+ * should be included.
+ */
+/*#define I_ICONV / **/
+
+/* I_IEEEFP:
+ * This symbol, if defined, indicates that <ieeefp.h> exists and
+ * should be included.
+ */
+/*#define I_IEEEFP / **/
+
+/* I_INTTYPES:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <inttypes.h>.
+ */
+/*#define I_INTTYPES / **/
+
+/* I_MACH_CTHREADS:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <mach/cthreads.h>.
+ */
+/*#define I_MACH_CTHREADS / **/
+
+/* I_MNTENT:
+ * This symbol, if defined, indicates that <mntent.h> exists and
+ * should be included.
+ */
+/*#define I_MNTENT / **/
+
+/* I_NETDB:
+ * This symbol, if defined, indicates that <netdb.h> exists and
+ * should be included.
+ */
+/*#define I_NETDB / **/
+
+/* I_NETINET_TCP:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <netinet/tcp.h>.
+ */
+/*#define I_NETINET_TCP / **/
+
+/* I_POLL:
+ * This symbol, if defined, indicates that <poll.h> exists and
+ * should be included.
+ */
+/*#define I_POLL / **/
+
+/* I_PROT:
+ * This symbol, if defined, indicates that <prot.h> exists and
+ * should be included.
+ */
+/*#define I_PROT / **/
+
+/* I_PTHREAD:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <pthread.h>.
+ */
+/*#define I_PTHREAD / **/
+
+/* I_PWD:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <pwd.h>.
+ */
+/* PWQUOTA:
+ * This symbol, if defined, indicates to the C program that struct passwd
+ * contains pw_quota.
+ */
+/* PWAGE:
+ * This symbol, if defined, indicates to the C program that struct passwd
+ * contains pw_age.
+ */
+/* PWCHANGE:
+ * This symbol, if defined, indicates to the C program that struct passwd
+ * contains pw_change.
+ */
+/* PWCLASS:
+ * This symbol, if defined, indicates to the C program that struct passwd
+ * contains pw_class.
+ */
+/* PWEXPIRE:
+ * This symbol, if defined, indicates to the C program that struct passwd
+ * contains pw_expire.
+ */
+/* PWCOMMENT:
+ * This symbol, if defined, indicates to the C program that struct passwd
+ * contains pw_comment.
+ */
+/* PWGECOS:
+ * This symbol, if defined, indicates to the C program that struct passwd
+ * contains pw_gecos.
+ */
+/* PWPASSWD:
+ * This symbol, if defined, indicates to the C program that struct passwd
+ * contains pw_passwd.
+ */
+/*#define I_PWD / **/
+/*#define PWQUOTA / **/
+/*#define PWAGE / **/
+/*#define PWCHANGE / **/
+/*#define PWCLASS / **/
+/*#define PWEXPIRE / **/
+/*#define PWCOMMENT / **/
+/*#define PWGECOS / **/
+/*#define PWPASSWD / **/
+
+/* I_SHADOW:
+ * This symbol, if defined, indicates that <shadow.h> exists and
+ * should be included.
+ */
+/*#define I_SHADOW / **/
+
+/* I_SOCKS:
+ * This symbol, if defined, indicates that <socks.h> exists and
+ * should be included.
+ */
+/*#define I_SOCKS / **/
+
+/* I_SUNMATH:
+ * This symbol, if defined, indicates that <sunmath.h> exists and
+ * should be included.
+ */
+/*#define I_SUNMATH / **/
+
+/* I_SYSLOG:
+ * This symbol, if defined, indicates that <syslog.h> exists and
+ * should be included.
+ */
+/*#define I_SYSLOG / **/
+
+/* I_SYSMODE:
+ * This symbol, if defined, indicates that <sys/mode.h> exists and
+ * should be included.
+ */
+/*#define I_SYSMODE / **/
+
+/* I_SYS_MOUNT:
+ * This symbol, if defined, indicates that <sys/mount.h> exists and
+ * should be included.
+ */
+/*#define I_SYS_MOUNT / **/
+
+/* I_SYS_STATFS:
+ * This symbol, if defined, indicates that <sys/statfs.h> exists.
+ */
+/*#define I_SYS_STATFS / **/
+
+/* I_SYS_STATVFS:
+ * This symbol, if defined, indicates that <sys/statvfs.h> exists and
+ * should be included.
+ */
+/*#define I_SYS_STATVFS / **/
+
+/* I_SYSUIO:
+ * This symbol, if defined, indicates that <sys/uio.h> exists and
+ * should be included.
+ */
+/*#define I_SYSUIO / **/
+
+/* I_SYSUTSNAME:
+ * This symbol, if defined, indicates that <sys/utsname.h> exists and
+ * should be included.
+ */
+/*#define I_SYSUTSNAME / **/
+
+/* I_SYS_VFS:
+ * This symbol, if defined, indicates that <sys/vfs.h> exists and
+ * should be included.
+ */
+/*#define I_SYS_VFS / **/
+
+/* I_TIME:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <time.h>.
+ */
+/* I_SYS_TIME:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/time.h>.
+ */
+/* I_SYS_TIME_KERNEL:
+ * This symbol, if defined, indicates to the C program that it should
+ * include <sys/time.h> with KERNEL defined.
+ */
+#define I_TIME /**/
+/*#define I_SYS_TIME / **/
+/*#define I_SYS_TIME_KERNEL / **/
+
+/* I_USTAT:
+ * This symbol, if defined, indicates that <ustat.h> exists and
+ * should be included.
+ */
+/*#define I_USTAT / **/
+
+/* PERL_INC_VERSION_LIST:
+ * This variable specifies the list of subdirectories in over
+ * which perl.c:incpush() and lib/lib.pm will automatically
+ * search when adding directories to @INC, in a format suitable
+ * for a C initialization string. See the inc_version_list entry
+ * in Porting/Glossary for more details.
+ */
+#define PERL_INC_VERSION_LIST NULL /**/
+
+/* INSTALL_USR_BIN_PERL:
+ * This symbol, if defined, indicates that Perl is to be installed
+ * also as /usr/bin/perl.
+ */
+/*#define INSTALL_USR_BIN_PERL / **/
+
+/* PERL_PRIfldbl:
+ * This symbol, if defined, contains the string used by stdio to
+ * format long doubles (format 'f') for output.
+ */
+/* PERL_PRIgldbl:
+ * This symbol, if defined, contains the string used by stdio to
+ * format long doubles (format 'g') for output.
+ */
+/*#define PERL_PRIfldbl "llf" / **/
+/*#define PERL_PRIgldbl "llg" / **/
+
+/* Off_t:
+ * This symbol holds the type used to declare offsets in the kernel.
+ * It can be int, long, off_t, etc... It may be necessary to include
+ * <sys/types.h> to get any typedef'ed information.
+ */
+/* LSEEKSIZE:
+ * This symbol holds the number of bytes used by the Off_t.
+ */
+/* Off_t_size:
+ * This symbol holds the number of bytes used by the Off_t.
+ */
+#define Off_t int /* <offset> type */
+#define LSEEKSIZE 1 /* <offset> size */
+#define Off_t_size 1 /* <offset> size */
+
+/* Free_t:
+ * This variable contains the return type of free(). It is usually
+ * void, but occasionally int.
+ */
+/* Malloc_t:
+ * This symbol is the type of pointer returned by malloc and realloc.
+ */
+#define Malloc_t void * /**/
+#define Free_t int /**/
+
+/* MYMALLOC:
+ * This symbol, if defined, indicates that we're using our own malloc.
+ */
+/*#define MYMALLOC / **/
+
+/* Mode_t:
+ * This symbol holds the type used to declare file modes
+ * for systems calls. It is usually mode_t, but may be
+ * int or unsigned short. It may be necessary to include <sys/types.h>
+ * to get any typedef'ed information.
+ */
+#define Mode_t int /* file mode parameter for system calls */
+
+/* VAL_O_NONBLOCK:
+ * This symbol is to be used during open() or fcntl(F_SETFL) to turn on
+ * non-blocking I/O for the file descriptor. Note that there is no way
+ * back, i.e. you cannot turn it blocking again this way. If you wish to
+ * alternatively switch between blocking and non-blocking, use the
+ * ioctl(FIOSNBIO) call instead, but that is not supported by all devices.
+ */
+/* VAL_EAGAIN:
+ * This symbol holds the errno error code set by read() when no data was
+ * present on the non-blocking file descriptor.
+ */
+/* RD_NODATA:
+ * This symbol holds the return code from read() when no data is present
+ * on the non-blocking file descriptor. Be careful! If EOF_NONBLOCK is
+ * not defined, then you can't distinguish between no data and EOF by
+ * issuing a read(). You'll have to find another way to tell for sure!
+ */
+/* EOF_NONBLOCK:
+ * This symbol, if defined, indicates to the C program that a read() on
+ * a non-blocking file descriptor will return 0 on EOF, and not the value
+ * held in RD_NODATA (-1 usually, in that case!).
+ */
+#define VAL_O_NONBLOCK O_NONBLOCK
+#define VAL_EAGAIN EAGAIN
+#define RD_NODATA -1
+#undef EOF_NONBLOCK
+
+/* Netdb_host_t:
+ * This symbol holds the type used for the 1st argument
+ * to gethostbyaddr().
+ */
+/* Netdb_hlen_t:
+ * This symbol holds the type used for the 2nd argument
+ * to gethostbyaddr().
+ */
+/* Netdb_name_t:
+ * This symbol holds the type used for the argument to
+ * gethostbyname().
+ */
+/* Netdb_net_t:
+ * This symbol holds the type used for the 1st argument to
+ * getnetbyaddr().
+ */
+#define Netdb_host_t const char * /**/
+#define Netdb_hlen_t int /**/
+#define Netdb_name_t const char * /**/
+#define Netdb_net_t unsigned long /**/
+
+/* PERL_OTHERLIBDIRS:
+ * This variable contains a colon-separated set of paths for the perl
+ * binary to search for additional library files or modules.
+ * These directories will be tacked to the end of @INC.
+ * Perl will automatically search below each path for version-
+ * and architecture-specific directories. See PERL_INC_VERSION_LIST
+ * for more details.
+ */
+/*#define PERL_OTHERLIBDIRS "" / **/
+
+/* IVTYPE:
+ * This symbol defines the C type used for Perl's IV.
+ */
+/* UVTYPE:
+ * This symbol defines the C type used for Perl's UV.
+ */
+/* I8TYPE:
+ * This symbol defines the C type used for Perl's I8.
+ */
+/* U8TYPE:
+ * This symbol defines the C type used for Perl's U8.
+ */
+/* I16TYPE:
+ * This symbol defines the C type used for Perl's I16.
+ */
+/* U16TYPE:
+ * This symbol defines the C type used for Perl's U16.
+ */
+/* I32TYPE:
+ * This symbol defines the C type used for Perl's I32.
+ */
+/* U32TYPE:
+ * This symbol defines the C type used for Perl's U32.
+ */
+/* I64TYPE:
+ * This symbol defines the C type used for Perl's I64.
+ */
+/* U64TYPE:
+ * This symbol defines the C type used for Perl's U64.
+ */
+/* NVTYPE:
+ * This symbol defines the C type used for Perl's NV.
+ */
+/* IVSIZE:
+ * This symbol contains the sizeof(IV).
+ */
+/* UVSIZE:
+ * This symbol contains the sizeof(UV).
+ */
+/* I8SIZE:
+ * This symbol contains the sizeof(I8).
+ */
+/* U8SIZE:
+ * This symbol contains the sizeof(U8).
+ */
+/* I16SIZE:
+ * This symbol contains the sizeof(I16).
+ */
+/* U16SIZE:
+ * This symbol contains the sizeof(U16).
+ */
+/* I32SIZE:
+ * This symbol contains the sizeof(I32).
+ */
+/* U32SIZE:
+ * This symbol contains the sizeof(U32).
+ */
+/* I64SIZE:
+ * This symbol contains the sizeof(I64).
+ */
+/* U64SIZE:
+ * This symbol contains the sizeof(U64).
+ */
+/* NVSIZE:
+ * This symbol contains the sizeof(NV).
+ */
+/* NV_PRESERVES_UV:
+ * This symbol, if defined, indicates that a variable of type NVTYPE
+ * can preserve all the bits of a variable of type UVTYPE.
+ */
+/* NV_PRESERVES_UV_BITS:
+ * This symbol contains the number of bits a variable of type NVTYPE
+ * can preserve of a variable of type UVTYPE.
+ */
+#define IVTYPE long /**/
+#define UVTYPE unsigned long /**/
+#define I8TYPE char /**/
+#define U8TYPE unsigned char /**/
+#define I16TYPE short /**/
+#define U16TYPE unsigned short /**/
+#define I32TYPE long /**/
+#define U32TYPE unsigned long /**/
+#ifdef HAS_QUAD
+#define I64TYPE int64_t /**/
+#define U64TYPE uint64_t /**/
+#endif
+#define NVTYPE double /**/
+#define IVSIZE 4 /**/
+#define UVSIZE 4 /**/
+#define I8SIZE 1 /**/
+#define U8SIZE 1 /**/
+#define I16SIZE 2 /**/
+#define U16SIZE 2 /**/
+#define I32SIZE 4 /**/
+#define U32SIZE 4 /**/
+#ifdef HAS_QUAD
+#define I64SIZE 8 /**/
+#define U64SIZE 8 /**/
+#endif
+#define NVSIZE 8 /**/
+#undef NV_PRESERVES_UV
+#define NV_PRESERVES_UV_BITS
+
+/* IVdf:
+ * This symbol defines the format string used for printing a Perl IV
+ * as a signed decimal integer.
+ */
+/* UVuf:
+ * This symbol defines the format string used for printing a Perl UV
+ * as an unsigned decimal integer.
+ */
+/* UVof:
+ * This symbol defines the format string used for printing a Perl UV
+ * as an unsigned octal integer.
+ */
+/* UVxf:
+ * This symbol defines the format string used for printing a Perl UV
+ * as an unsigned hexadecimal integer.
+ */
+#define IVdf "ld" /**/
+#define UVuf "lu" /**/
+#define UVof "lo" /**/
+#define UVxf "lx" /**/
+
+/* Pid_t:
+ * This symbol holds the type used to declare process ids in the kernel.
+ * It can be int, uint, pid_t, etc... It may be necessary to include
+ * <sys/types.h> to get any typedef'ed information.
+ */
+#define Pid_t int /* PID type */
+
+/* PRIVLIB:
+ * This symbol contains the name of the private library for this package.
+ * The library is private in the sense that it needn't be in anyone's
+ * execution path, but it should be accessible by the world. The program
+ * should be prepared to do ~ expansion.
+ */
+/* PRIVLIB_EXP:
+ * This symbol contains the ~name expanded version of PRIVLIB, to be used
+ * in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+#define PRIVLIB "/usr/local/lib/perl5/5.6" /**/
+#define PRIVLIB_EXP "/usr/local/lib/perl5/5.6" /**/
+
+/* PTRSIZE:
+ * This symbol contains the size of a pointer, so that the C preprocessor
+ * can make decisions based on it. It will be sizeof(void *) if
+ * the compiler supports (void *); otherwise it will be
+ * sizeof(char *).
+ */
+#define PTRSIZE 1 /**/
+
+/* Drand01:
+ * This macro is to be used to generate uniformly distributed
+ * random numbers over the range [0., 1.[. You may have to supply
+ * an 'extern double drand48();' in your program since SunOS 4.1.3
+ * doesn't provide you with anything relevant in it's headers.
+ * See HAS_DRAND48_PROTO.
+ */
+/* Rand_seed_t:
+ * This symbol defines the type of the argument of the
+ * random seed function.
+ */
+/* seedDrand01:
+ * This symbol defines the macro to be used in seeding the
+ * random number generator (see Drand01).
+ */
+/* RANDBITS:
+ * This symbol indicates how many bits are produced by the
+ * function used to generate normalized random numbers.
+ * Values include 15, 16, 31, and 48.
+ */
+#define Drand01() ((rand() & 0x7FFF) / (double) ((unsigned long)1 << 15)) /**/
+#define Rand_seed_t int /**/
+#define seedDrand01(x) srand((Rand_seed_t)x) /**/
+#define RANDBITS 48 /**/
+
+/* SELECT_MIN_BITS:
+ * This symbol holds the minimum number of bits operated by select.
+ * That is, if you do select(n, ...), how many bits at least will be
+ * cleared in the masks if some activity is detected. Usually this
+ * is either n or 32*ceil(n/32), especially many little-endians do
+ * the latter. This is only useful if you have select(), naturally.
+ */
+#define SELECT_MIN_BITS 32 /**/
+
+/* Select_fd_set_t:
+ * This symbol holds the type used for the 2nd, 3rd, and 4th
+ * arguments to select. Usually, this is 'fd_set *', if HAS_FD_SET
+ * is defined, and 'int *' otherwise. This is only useful if you
+ * have select(), of course.
+ */
+#define Select_fd_set_t int /**/
+
+/* SIG_NAME:
+ * This symbol contains a list of signal names in order of
+ * signal number. This is intended
+ * to be used as a static array initialization, like this:
+ * char *sig_name[] = { SIG_NAME };
+ * The signals in the list are separated with commas, and each signal
+ * is surrounded by double quotes. There is no leading SIG in the signal
+ * name, i.e. SIGQUIT is known as "QUIT".
+ * Gaps in the signal numbers (up to NSIG) are filled in with NUMnn,
+ * etc., where nn is the actual signal number (e.g. NUM37).
+ * The signal number for sig_name[i] is stored in sig_num[i].
+ * The last element is 0 to terminate the list with a NULL. This
+ * corresponds to the 0 at the end of the sig_num list.
+ */
+/* SIG_NUM:
+ * This symbol contains a list of signal numbers, in the same order as the
+ * SIG_NAME list. It is suitable for static array initialization, as in:
+ * int sig_num[] = { SIG_NUM };
+ * The signals in the list are separated with commas, and the indices
+ * within that list and the SIG_NAME list match, so it's easy to compute
+ * the signal name from a number or vice versa at the price of a small
+ * dynamic linear lookup.
+ * Duplicates are allowed, but are moved to the end of the list.
+ * The signal number corresponding to sig_name[i] is sig_number[i].
+ * if (i < NSIG) then sig_number[i] == i.
+ * The last element is 0, corresponding to the 0 at the end of
+ * the sig_name list.
+ */
+#define SIG_NAME 0 /**/
+#define SIG_NUM 0 /**/
+
+/* SITEARCH:
+ * This symbol contains the name of the private library for this package.
+ * The library is private in the sense that it needn't be in anyone's
+ * execution path, but it should be accessible by the world. The program
+ * should be prepared to do ~ expansion.
+ * The standard distribution will put nothing in this directory.
+ * After perl has been installed, users may install their own local
+ * architecture-dependent modules in this directory with
+ * MakeMaker Makefile.PL
+ * or equivalent. See INSTALL for details.
+ */
+/* SITEARCH_EXP:
+ * This symbol contains the ~name expanded version of SITEARCH, to be used
+ * in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+#define SITEARCH "" /**/
+#define SITEARCH_EXP "" /**/
+
+/* SITELIB:
+ * This symbol contains the name of the private library for this package.
+ * The library is private in the sense that it needn't be in anyone's
+ * execution path, but it should be accessible by the world. The program
+ * should be prepared to do ~ expansion.
+ * The standard distribution will put nothing in this directory.
+ * After perl has been installed, users may install their own local
+ * architecture-independent modules in this directory with
+ * MakeMaker Makefile.PL
+ * or equivalent. See INSTALL for details.
+ */
+/* SITELIB_EXP:
+ * This symbol contains the ~name expanded version of SITELIB, to be used
+ * in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+/* SITELIB_STEM:
+ * This define is SITELIB_EXP with any trailing version-specific component
+ * removed. The elements in inc_version_list (inc_version_list.U) can
+ * be tacked onto this variable to generate a list of directories to search.
+ */
+#define SITELIB "" /**/
+#define SITELIB_EXP "" /**/
+#define SITELIB_STEM "" /**/
+
+/* Size_t_size:
+ * This symbol holds the size of a Size_t in bytes.
+ */
+#define Size_t_size 1 /* */
+
+/* Size_t:
+ * This symbol holds the type used to declare length parameters
+ * for string functions. It is usually size_t, but may be
+ * unsigned long, int, etc. It may be necessary to include
+ * <sys/types.h> to get any typedef'ed information.
+ */
+#define Size_t int /* length paramater for string functions */
+
+/* Sock_size_t:
+ * This symbol holds the type used for the size argument of
+ * various socket calls (just the base type, not the pointer-to).
+ */
+#define Sock_size_t int /**/
+
+/* SSize_t:
+ * This symbol holds the type used by functions that return
+ * a count of bytes or an error condition. It must be a signed type.
+ * It is usually ssize_t, but may be long or int, etc.
+ * It may be necessary to include <sys/types.h> or <unistd.h>
+ * to get any typedef'ed information.
+ * We will pick a type such that sizeof(SSize_t) == sizeof(Size_t).
+ */
+#define SSize_t int /* signed count of bytes */
+
+/* STARTPERL:
+ * This variable contains the string to put in front of a perl
+ * script to make sure (one hopes) that it runs with perl and not
+ * some shell.
+ */
+#define STARTPERL "" /**/
+
+/* HAS_STDIO_STREAM_ARRAY:
+ * This symbol, if defined, tells that there is an array
+ * holding the stdio streams.
+ */
+/* STDIO_STREAM_ARRAY:
+ * This symbol tells the name of the array holding the stdio streams.
+ * Usual values include _iob, __iob, and __sF.
+ */
+/*#define HAS_STDIO_STREAM_ARRAY / **/
+#define STDIO_STREAM_ARRAY
+
+/* Uid_t_f:
+ * This symbol defines the format string used for printing a Uid_t.
+ */
+#define Uid_t_f "lu" /**/
+
+/* Uid_t_sign:
+ * This symbol holds the signedess of a Uid_t.
+ * 1 for unsigned, -1 for signed.
+ */
+#define Uid_t_sign 1 /* UID sign */
+
+/* Uid_t_size:
+ * This symbol holds the size of a Uid_t in bytes.
+ */
+#define Uid_t_size 4 /* UID size */
+
+/* Uid_t:
+ * This symbol holds the type used to declare user ids in the kernel.
+ * It can be int, ushort, uid_t, etc... It may be necessary to include
+ * <sys/types.h> to get any typedef'ed information.
+ */
+#define Uid_t int /* UID type */
+
+/* USE_64_BIT_INT:
+ * This symbol, if defined, indicates that 64-bit integers should
+ * be used when available. If not defined, the native integers
+ * will be employed (be they 32 or 64 bits). The minimal possible
+ * 64-bitness is used, just enough to get 64-bit integers into Perl.
+ * This may mean using for example "long longs", while your memory
+ * may still be limited to 2 gigabytes.
+ */
+/* USE_64_BIT_ALL:
+ * This symbol, if defined, indicates that 64-bit integers should
+ * be used when available. If not defined, the native integers
+ * will be used (be they 32 or 64 bits). The maximal possible
+ * 64-bitness is employed: LP64 or ILP64, meaning that you will
+ * be able to use more than 2 gigabytes of memory. This mode is
+ * even more binary incompatible than USE_64_BIT_INT. You may not
+ * be able to run the resulting executable in a 32-bit CPU at all or
+ * you may need at least to reboot your OS to 64-bit mode.
+ */
+#ifndef USE_64_BIT_INT
+/*#define USE_64_BIT_INT / **/
+#endif
+
+#ifndef USE_64_BIT_ALL
+/*#define USE_64_BIT_ALL / **/
+#endif
+
+/* USE_LARGE_FILES:
+ * This symbol, if defined, indicates that large file support
+ * should be used when available.
+ */
+#ifndef USE_LARGE_FILES
+/*#define USE_LARGE_FILES / **/
+#endif
+
+/* USE_LONG_DOUBLE:
+ * This symbol, if defined, indicates that long doubles should
+ * be used when available.
+ */
+#ifndef USE_LONG_DOUBLE
+/*#define USE_LONG_DOUBLE / **/
+#endif
+
+/* USE_MORE_BITS:
+ * This symbol, if defined, indicates that 64-bit interfaces and
+ * long doubles should be used when available.
+ */
+#ifndef USE_MORE_BITS
+/*#define USE_MORE_BITS / **/
+#endif
+
+/* MULTIPLICITY:
+ * This symbol, if defined, indicates that Perl should
+ * be built to use multiplicity.
+ */
+#ifndef MULTIPLICITY
+/*#define MULTIPLICITY / **/
+#endif
+
+/* USE_PERLIO:
+ * This symbol, if defined, indicates that the PerlIO abstraction should
+ * be used throughout. If not defined, stdio should be
+ * used in a fully backward compatible manner.
+ */
+#ifndef USE_PERLIO
+/*#define USE_PERLIO / **/
+#endif
+
+/* USE_SOCKS:
+ * This symbol, if defined, indicates that Perl should
+ * be built to use socks.
+ */
+#ifndef USE_SOCKS
+/*#define USE_SOCKS / **/
+#endif
+
+/* USE_ITHREADS:
+ * This symbol, if defined, indicates that Perl should be built to
+ * use the interpreter-based threading implementation.
+ */
+/* USE_5005THREADS:
+ * This symbol, if defined, indicates that Perl should be built to
+ * use the 5.005-based threading implementation.
+ */
+/* OLD_PTHREADS_API:
+ * This symbol, if defined, indicates that Perl should
+ * be built to use the old draft POSIX threads API.
+ */
+/*#define USE_5005THREADS / **/
+/*#define USE_ITHREADS / **/
+#if defined(USE_5005THREADS) && !defined(USE_ITHREADS)
+#define USE_THREADS /* until src is revised*/
+#endif
+/*#define OLD_PTHREADS_API / **/
+
+/* PERL_VENDORARCH:
+ * If defined, this symbol contains the name of a private library.
+ * The library is private in the sense that it needn't be in anyone's
+ * execution path, but it should be accessible by the world.
+ * It may have a ~ on the front.
+ * The standard distribution will put nothing in this directory.
+ * Vendors who distribute perl may wish to place their own
+ * architecture-dependent modules and extensions in this directory with
+ * MakeMaker Makefile.PL INSTALLDIRS=vendor
+ * or equivalent. See INSTALL for details.
+ */
+/* PERL_VENDORARCH_EXP:
+ * This symbol contains the ~name expanded version of PERL_VENDORARCH, to be used
+ * in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+/*#define PERL_VENDORARCH "" / **/
+/*#define PERL_VENDORARCH_EXP "" / **/
+
+/* PERL_VENDORLIB_EXP:
+ * This symbol contains the ~name expanded version of VENDORLIB, to be used
+ * in programs that are not prepared to deal with ~ expansion at run-time.
+ */
+/* PERL_VENDORLIB_STEM:
+ * This define is PERL_VENDORLIB_EXP with any trailing version-specific component
+ * removed. The elements in inc_version_list (inc_version_list.U) can
+ * be tacked onto this variable to generate a list of directories to search.
+ */
+/*#define PERL_VENDORLIB_EXP "" / **/
+/*#define PERL_VENDORLIB_STEM "" / **/
+
+/* VOIDFLAGS:
+ * This symbol indicates how much support of the void type is given by this
+ * compiler. What various bits mean:
+ *
+ * 1 = supports declaration of void
+ * 2 = supports arrays of pointers to functions returning void
+ * 4 = supports comparisons between pointers to void functions and
+ * addresses of void functions
+ * 8 = suports declaration of generic void pointers
+ *
+ * The package designer should define VOIDUSED to indicate the requirements
+ * of the package. This can be done either by #defining VOIDUSED before
+ * including config.h, or by defining defvoidused in Myinit.U. If the
+ * latter approach is taken, only those flags will be tested. If the
+ * level of void support necessary is not present, defines void to int.
+ */
+#ifndef VOIDUSED
+#define VOIDUSED 1
+#endif
+#define VOIDFLAGS 1
+#if (VOIDFLAGS & VOIDUSED) != VOIDUSED
+#define void int /* is void to be avoided? */
+#define M_VOID /* Xenix strikes again */
+#endif
+
+/* PERL_XS_APIVERSION:
+ * This variable contains the version of the oldest perl binary
+ * compatible with the present perl. perl.c:incpush() and
+ * lib/lib.pm will automatically search in for older
+ * directories across major versions back to xs_apiversion.
+ * This is only useful if you have a perl library directory tree
+ * structured like the default one.
+ * See INSTALL for how this works.
+ * The versioned site_perl directory was introduced in 5.005,
+ * so that is the lowest possible value.
+ * Since this can depend on compile time options (such as
+ * bincompat) it is set by Configure. Other non-default sources
+ * of potential incompatibility, such as multiplicity, threads,
+ * debugging, 64bits, sfio, etc., are not checked for currently,
+ * though in principle we could go snooping around in old
+ * Config.pm files.
+ */
+/* PERL_PM_APIVERSION:
+ * This variable contains the version of the oldest perl
+ * compatible with the present perl. (That is, pure perl modules
+ * written for pm_apiversion will still work for the current
+ * version). perl.c:incpush() and lib/lib.pm will automatically
+ * search in for older directories across major versions
+ * back to pm_apiversion. This is only useful if you have a perl
+ * library directory tree structured like the default one. The
+ * versioned site_perl library was introduced in 5.005, so that's
+ * the default setting for this variable. It's hard to imagine
+ * it changing before Perl6. It is included here for symmetry
+ * with xs_apiveprsion -- the searching algorithms will
+ * (presumably) be similar.
+ * See the INSTALL file for how this works.
+ */
+#define PERL_XS_APIVERSION "5.005"
+#define PERL_PM_APIVERSION "5.005"
+
+#endif
diff --git a/uconfig.sh b/uconfig.sh
new file mode 100755
index 0000000000..d986b0dc7d
--- /dev/null
+++ b/uconfig.sh
@@ -0,0 +1,550 @@
+#!/bin/sh
+_a='.a'
+_o='.o'
+afs='false'
+alignbytes='4'
+apiversion='5.005'
+archlib='/usr/local/lib/perl5/5.6/unknown'
+archlibexp='/usr/local/lib/perl5/5.6/unknown'
+archname='unknown'
+bin='/usr/local/bin'
+bincompat5005='define'
+byteorder='12'
+castflags='0'
+charsize='1'
+clocktype='clock_t'
+cpp_stuff='42'
+crosscompile='undef'
+d_Gconvert='sprintf((b),"%.*g",(n),(x))'
+d_PRIEldbl='undef'
+d_PRIFldbl='undef'
+d_PRIGldbl='undef'
+d_PRIX64='undef'
+d_PRId64='undef'
+d_PRIeldbl='undef'
+d_PRIfldbl='undef'
+d_PRIgldbl='undef'
+d_PRIi64='undef'
+d_PRIo64='undef'
+d_PRIu64='undef'
+d_PRIx64='undef'
+d_access='undef'
+d_accessx='undef'
+d_alarm='undef'
+d_archlib='undef'
+d_atolf='undef'
+d_atoll='undef'
+d_attribut='undef'
+d_bcmp='undef'
+d_bcopy='undef'
+d_bincompat5005='undef'
+d_bsd='undef'
+d_bsdgetpgrp='undef'
+d_bsdsetpgrp='undef'
+d_bzero='undef'
+d_casti32='undef'
+d_castneg='undef'
+d_charvspr='undef'
+d_chown='undef'
+d_chroot='undef'
+d_chsize='undef'
+d_closedir='undef'
+d_const='undef'
+d_crypt='undef'
+d_csh='undef'
+d_cuserid='undef'
+d_dbl_dig='undef'
+d_difftime='undef'
+d_dirnamlen='undef'
+d_dlerror='undef'
+d_dlopen='undef'
+d_dlsymun='undef'
+d_dosuid='undef'
+d_drand48proto='undef'
+d_dup2='undef'
+d_eaccess='undef'
+d_endgrent='undef'
+d_endhent='undef'
+d_endnent='undef'
+d_endpent='undef'
+d_endpwent='undef'
+d_endsent='undef'
+d_endspent='undef'
+d_eofnblk='undef'
+d_eunice='undef'
+d_fchmod='undef'
+d_fchown='undef'
+d_fcntl='undef'
+d_fd_macros='undef'
+d_fd_set='undef'
+d_fds_bits='undef'
+d_fgetpos='undef'
+d_flexfnam='undef'
+d_flock='undef'
+d_fork='define'
+d_fpathconf='undef'
+d_fpos64_t='undef'
+d_fs_data_s='undef'
+d_fseeko='undef'
+d_fsetpos='undef'
+d_fstatfs='undef'
+d_fstatvfs='undef'
+d_ftello='undef'
+d_ftime='undef'
+d_getcwd='undef'
+d_getgrent='undef'
+d_getgrps='undef'
+d_gethbyaddr='undef'
+d_gethbyname='undef'
+d_gethent='undef'
+d_gethname='undef'
+d_gethostprotos='undef'
+d_getlogin='undef'
+d_getmnt='undef'
+d_getmntent='undef'
+d_getnbyaddr='undef'
+d_getnbyname='undef'
+d_getnent='undef'
+d_getnetprotos='undef'
+d_getpbyname='undef'
+d_getpbynumber='undef'
+d_getpent='undef'
+d_getpgid='undef'
+d_getpgrp2='undef'
+d_getpgrp='undef'
+d_getppid='undef'
+d_getprior='undef'
+d_getprotoprotos='undef'
+d_getpwent='undef'
+d_getsbyname='undef'
+d_getsbyport='undef'
+d_getsent='undef'
+d_getservprotos='undef'
+d_getspent='undef'
+d_getspnam='undef'
+d_gettimeod='undef'
+d_gnulibc='undef'
+d_grpasswd='undef'
+d_hasmntopt='undef'
+d_htonl='undef'
+d_iconv='undef'
+d_index='undef'
+d_inetaton='undef'
+d_int64t='undef'
+d_isascii='undef'
+d_killpg='undef'
+d_lchown='undef'
+d_ldbl_dig='undef'
+d_link='undef'
+d_locconv='undef'
+d_lockf='undef'
+d_longdbl='undef'
+d_longlong='undef'
+d_lstat='undef'
+d_mblen='undef'
+d_mbstowcs='undef'
+d_mbtowc='undef'
+d_memchr='undef'
+d_memcmp='undef'
+d_memcpy='undef'
+d_memmove='undef'
+d_memset='undef'
+d_mkdir='undef'
+d_mkdtemp='undef'
+d_mkfifo='undef'
+d_mkstemp='undef'
+d_mkstemps='undef'
+d_mktime='undef'
+d_mprotect='undef'
+d_msg='undef'
+d_msg_ctrunc='undef'
+d_msg_dontroute='undef'
+d_msg_oob='undef'
+d_msg_peek='undef'
+d_msg_proxy='undef'
+d_msgctl='undef'
+d_msgget='undef'
+d_msgrcv='undef'
+d_msgsnd='undef'
+d_msync='undef'
+d_munmap='undef'
+d_mymalloc='undef'
+d_nice='undef'
+d_nv_preserves_uv='undef'
+d_off64_t='undef'
+d_old_pthread_create_joinable='undef'
+d_oldpthreads='undef'
+d_oldsock='undef'
+d_open3='undef'
+d_pathconf='undef'
+d_pause='undef'
+d_phostname='undef'
+d_pipe='undef'
+d_poll='undef'
+d_portable='undef'
+d_pthread_yield='undef'
+d_pwage='undef'
+d_pwchange='undef'
+d_pwclass='undef'
+d_pwcomment='undef'
+d_pwexpire='undef'
+d_pwgecos='undef'
+d_pwpasswd='undef'
+d_pwquota='undef'
+d_quad='undef'
+d_readdir='undef'
+d_readlink='undef'
+d_rename='undef'
+d_rewinddir='undef'
+d_rmdir='undef'
+d_safebcpy='undef'
+d_safemcpy='undef'
+d_sanemcmp='undef'
+d_sched_yield='undef'
+d_scm_rights='undef'
+d_seekdir='undef'
+d_select='undef'
+d_sem='undef'
+d_semctl='undef'
+d_semctl_semid_ds='undef'
+d_semctl_semun='undef'
+d_semget='undef'
+d_semop='undef'
+d_setegid='undef'
+d_seteuid='undef'
+d_setgrent='undef'
+d_setgrps='undef'
+d_sethent='undef'
+d_setlinebuf='undef'
+d_setlocale='undef'
+d_setnent='undef'
+d_setpent='undef'
+d_setpgid='undef'
+d_setpgrp2='undef'
+d_setpgrp='undef'
+d_setprior='undef'
+d_setpwent='undef'
+d_setregid='undef'
+d_setresgid='undef'
+d_setresuid='undef'
+d_setreuid='undef'
+d_setrgid='undef'
+d_setruid='undef'
+d_setsent='undef'
+d_setsid='undef'
+d_setspent='undef'
+d_setvbuf='undef'
+d_sfio='undef'
+d_shm='undef'
+d_shmat='undef'
+d_shmatprototype='undef'
+d_shmctl='undef'
+d_shmdt='undef'
+d_shmget='undef'
+d_sigaction='undef'
+d_sigsetjmp='undef'
+d_socket='undef'
+d_sockpair='undef'
+d_sqrtl='undef'
+d_statblks='undef'
+d_statfs_f_flags='undef'
+d_statfs_s='undef'
+d_statvfs='undef'
+d_stdio_cnt_lval='undef'
+d_stdio_ptr_lval='undef'
+d_stdio_stream_array='undef'
+d_stdiobase='undef'
+d_stdstdio='undef'
+d_strchr='undef'
+d_strcoll='undef'
+d_strctcpy='undef'
+d_strerrm='strerror(e)'
+d_strerror='undef'
+d_strtod='undef'
+d_strtol='undef'
+d_strtold='undef'
+d_strtoll='undef'
+d_strtoul='undef'
+d_strtoull='undef'
+d_strtouq='undef'
+d_strxfrm='undef'
+d_suidsafe='undef'
+d_symlink='undef'
+d_syscall='undef'
+d_sysconf='undef'
+d_sysernlst=''
+d_syserrlst='undef'
+d_system='undef'
+d_tcgetpgrp='undef'
+d_tcsetpgrp='undef'
+d_telldir='undef'
+d_telldirproto='undef'
+d_time='undef'
+d_times='undef'
+d_truncate='undef'
+d_tzname='undef'
+d_umask='undef'
+d_uname='undef'
+d_union_semun='undef'
+d_ustat='undef'
+d_vendorbin='undef'
+d_vendorlib='undef'
+d_vfork='undef'
+d_void_closedir='undef'
+d_voidsig='undef'
+d_voidtty=''
+d_volatile='undef'
+d_vprintf='define'
+d_wait4='undef'
+d_waitpid='undef'
+d_wcstombs='undef'
+d_wctomb='undef'
+d_xenix='undef'
+db_hashtype='u_int32_t'
+db_prefixtype='size_t'
+defvoidused=1
+direntrytype='struct dirent'
+doublesize=1
+drand01="((rand() & 0x7FFF) / (double) ((unsigned long)1 << 15))"
+eagain='EAGAIN'
+ebcdic='undef'
+fflushNULL='undef'
+fflushall='undef'
+firstmakefile='makefile'
+fpossize='4'
+fpostype=int
+freetype=int
+gidformat='"lu"'
+gidsign='1'
+gidsize='4'
+gidtype=int
+groupstype=int
+h_fcntl='false'
+h_sysfile='true'
+i16size='2'
+i16type='short'
+i32size='4'
+i32type='long'
+i64size='8'
+i64type='int64_t'
+i8size='1'
+i8type='char'
+i_arpainet='undef'
+i_bsdioctl=''
+i_db='undef'
+i_dbm='undef'
+i_dirent='undef'
+i_dld='undef'
+i_dlfcn='undef'
+i_fcntl='undef'
+i_float='undef'
+i_gdbm='undef'
+i_grp='undef'
+i_iconv='undef'
+i_inttypes='undef'
+i_limits='undef'
+i_locale='undef'
+i_machcthr='undef'
+i_malloc='undef'
+i_math='undef'
+i_memory='undef'
+i_mntent='undef'
+i_ndbm='undef'
+i_netdb='undef'
+i_neterrno='undef'
+i_netinettcp='undef'
+i_niin='undef'
+i_poll='undef'
+i_pthread='undef'
+i_pwd='undef'
+i_rpcsvcdbm='undef'
+i_sfio='undef'
+i_sgtty='undef'
+i_shadow='undef'
+i_socks='undef'
+i_stdarg='define'
+i_stddef='undef'
+i_stdlib='undef'
+i_string='define'
+i_sysaccess='undef'
+i_sysdir='undef'
+i_sysfile='undef'
+i_sysfilio='undef'
+i_sysin='undef'
+i_sysioctl='undef'
+i_syslog='undef'
+i_sysmount='undef'
+i_sysndir='undef'
+i_sysparam='undef'
+i_sysresrc='undef'
+i_syssecrt='undef'
+i_sysselct='undef'
+i_syssockio=''
+i_sysstat='define'
+i_sysstatfs='undef'
+i_sysstatvfs='undef'
+i_systime='undef'
+i_systimek='undef'
+i_systimes='undef'
+i_systypes='undef'
+i_sysuio='undef'
+i_sysun='undef'
+i_sysvfs='undef'
+i_syswait='undef'
+i_termio='undef'
+i_termios='undef'
+i_time='define'
+i_unistd='undef'
+i_ustat='undef'
+i_utime='undef'
+i_values='undef'
+i_varargs='undef'
+i_varhdr='stdarg.h'
+i_vfork='undef'
+ignore_versioned_solibs='y'
+installstyle='lib/perl5'
+installusrbinperl='undef'
+intsize='4'
+intsize=1
+ivdformat='"ld"'
+ivsize='4'
+ivtype='long'
+lib_ext='.a'
+longdblsize=1
+longlongsize=1
+longsize=1
+lseeksize=1
+lseektype=int
+malloctype='int*'
+malloctype='void *'
+modetype='mode_t'
+modetype=int
+multiarch='undef'
+myarchname='unknown'
+myuname='unknown'
+netdb_hlen_type='int'
+netdb_host_type='const char *'
+netdb_name_type='const char *'
+netdb_net_type='unsigned long'
+nroff='nroff'
+nvsize='8'
+nvtype='double'
+o_nonblock='O_NONBLOCK'
+obj_ext='.o'
+optimize='-O2'
+orderlib='false'
+osname='unknown'
+phostname='hostname'
+pidtype=int
+pm_apiversion='5.005'
+privlib='/usr/local/lib/perl5/5.6'
+privlibexp='/usr/local/lib/perl5/5.6'
+prototype='undef'
+ptrsize=1
+quadkind='4'
+quadtype='int64_t'
+randbits='48'
+randfunc='drand48'
+randseedtype='int'
+rd_nodata='-1'
+sPRIEldbl='"llE"'
+sPRIFldbl='"llF"'
+sPRIGldbl='"llG"'
+sPRIX64='"LX"'
+sPRId64='"Ld"'
+sPRIeldbl='"lle"'
+sPRIfldbl='"llf"'
+sPRIgldbl='"llg"'
+sPRIi64='"Li"'
+sPRIo64='"Lo"'
+sPRIu64='"Lu"'
+sPRIx64='"Lx"'
+sched_yield='sched_yield()'
+scriptdir='/usr/local/bin'
+scriptdirexp='/usr/local/bin'
+seedfunc='srand'
+selectminbits='32'
+selecttype=int
+shmattype='void *'
+shortsize=1
+sig_count='64'
+sig_name_init='0'
+sig_num_init='0'
+signal_t=int
+sizetype=int
+sizesize=1
+ssizetype=int
+stdchar=char
+stdio_base='((fp)->_IO_read_base)'
+stdio_bufsiz='((fp)->_IO_read_end - (fp)->_IO_read_base)'
+stdio_cnt='((fp)->_IO_read_end - (fp)->_IO_read_ptr)'
+stdio_filbuf=''
+stdio_ptr='((fp)->_IO_read_ptr)'
+stdio_stream_array=''
+timetype=int
+touch='touch'
+u16size='2'
+u16type='unsigned short'
+u32size='4'
+u32type='unsigned long'
+u64size='8'
+u64type='uint64_t'
+u8size='1'
+u8type='unsigned char'
+uidformat='"lu"'
+uidsign='1'
+uidsize='4'
+uidtype=int
+uquadtype='uint64_t'
+use5005threads='undef'
+use64bits='undef'
+usedl='undef'
+useithreads='undef'
+uselargefiles='undef'
+uselongdouble='undef'
+uselonglong='undef'
+usemorebits='undef'
+usemultiplicity='undef'
+usemymalloc='n'
+usenm='false'
+useopcode='true'
+useperlio='undef'
+useposix='true'
+usesfio='false'
+useshrplib='false'
+usesocks='undef'
+usethreads='undef'
+usevendorprefix='undef'
+usevfork='false'
+uvoformat='"lo"'
+uvsize='4'
+uvtype='unsigned long'
+uvuformat='"lu"'
+uvxformat='"lx"'
+voidflags=1
+xs_apiversion='5.005'
+d_getfsstat='undef'
+d_int64_t='undef'
+d_lseekproto='undef'
+d_madvise='undef'
+d_mmap='undef'
+use64bitint='undef'
+use64bitall='undef'
+d_vendorarch='undef'
+d_vendorarch='undef'
+i_ieeefp='undef'
+i_sunmath='undef'
+i_sysmode='undef'
+i_sysutsname='undef'
+d_frexpl='undef'
+d_modfl='undef'
+d_getespwnam='undef'
+d_getprpwnam='undef'
+d_isnan='undef'
+d_isnanl='undef'
+i_prot='undef'
+d_perl_otherlibdirs='undef'
+inc_version_list_init='NULL'
+socksizetype='int'
+
+
diff --git a/unixish.h b/unixish.h
index 1168d297b6..7b8ef164c0 100644
--- a/unixish.h
+++ b/unixish.h
@@ -5,6 +5,8 @@
* here.
*/
+#ifndef PERL_MICRO
+
/* HAS_IOCTL:
* This symbol, if defined, indicates that the ioctl() routine is
* available to set I/O characteristics
@@ -33,6 +35,8 @@
#define HAS_KILL
#define HAS_WAIT
+
+#endif /* !PERL_MICRO */
/* USEMYBINMODE
* This symbol, if defined, indicates that the program should
diff --git a/utf8.c b/utf8.c
index 223f5ac634..76eb932f2d 100644
--- a/utf8.c
+++ b/utf8.c
@@ -791,7 +791,7 @@ Perl_swash_fetch(pTHX_ SV *sv, U8 *ptr)
if (hv == PL_last_swash_hv &&
klen == PL_last_swash_klen &&
- (!klen || memEQ(ptr,PL_last_swash_key,klen)) )
+ (!klen || memEQ((char *)ptr,(char *)PL_last_swash_key,klen)) )
{
tmps = PL_last_swash_tmps;
slen = PL_last_swash_slen;
diff --git a/util.c b/util.c
index a5cd95419d..8962fff609 100644
--- a/util.c
+++ b/util.c
@@ -16,6 +16,7 @@
#define PERL_IN_UTIL_C
#include "perl.h"
+#ifndef PERL_MICRO
#if !defined(NSIG) || defined(M_UNIX) || defined(M_XENIX)
#include <signal.h>
#endif
@@ -23,6 +24,7 @@
#ifndef SIG_ERR
# define SIG_ERR ((Sighandler_t) -1)
#endif
+#endif
/* XXX If this causes problems, set i_unistd=undef in the hint file. */
#ifdef I_UNISTD
@@ -87,7 +89,7 @@ Perl_safesysmalloc(MEM_SIZE size)
if ((long)size < 0)
Perl_croak_nocontext("panic: malloc");
#endif
- ptr = PerlMem_malloc(size?size:1); /* malloc(0) is NASTY on our system */
+ ptr = (Malloc_t)PerlMem_malloc(size?size:1); /* malloc(0) is NASTY on our system */
PERL_ALLOC_CHECK(ptr);
DEBUG_m(PerlIO_printf(Perl_debug_log, "0x%"UVxf": (%05ld) malloc %ld bytes\n",PTR2UV(ptr),(long)PL_an++,(long)size));
if (ptr != Nullch)
@@ -131,7 +133,7 @@ Perl_safesysrealloc(Malloc_t where,MEM_SIZE size)
if ((long)size < 0)
Perl_croak_nocontext("panic: realloc");
#endif
- ptr = PerlMem_realloc(where,size);
+ ptr = (Malloc_t)PerlMem_realloc(where,size);
PERL_ALLOC_CHECK(ptr);
DEBUG_m(PerlIO_printf(Perl_debug_log, "0x%"UVxf": (%05ld) rfree\n",PTR2UV(where),(long)PL_an++));
@@ -184,7 +186,7 @@ Perl_safesyscalloc(MEM_SIZE count, MEM_SIZE size)
Perl_croak_nocontext("panic: calloc");
#endif
size *= count;
- ptr = PerlMem_malloc(size?size:1); /* malloc(0) is NASTY on our system */
+ ptr = (Malloc_t)PerlMem_malloc(size?size:1); /* malloc(0) is NASTY on our system */
PERL_ALLOC_CHECK(ptr);
DEBUG_m(PerlIO_printf(Perl_debug_log, "0x%"UVxf": (%05ld) calloc %ld x %ld bytes\n",PTR2UV(ptr),(long)PL_an++,(long)count,(long)size));
if (ptr != Nullch) {
@@ -1000,7 +1002,8 @@ Perl_fbm_instr(pTHX_ unsigned char *big, register unsigned char *bigend, SV *lit
if ( SvTAIL(littlestr)
&& (bigend - big == littlelen - 1)
&& (littlelen == 1
- || (*big == *little && memEQ(big, little, littlelen - 1))))
+ || (*big == *little &&
+ memEQ((char *)big, (char *)little, littlelen - 1))))
return (char*)big;
return Nullch;
}
@@ -1168,7 +1171,8 @@ Perl_fbm_instr(pTHX_ unsigned char *big, register unsigned char *bigend, SV *lit
}
check_end:
if ( s == bigend && (table[-1] & FBMcf_TAIL)
- && memEQ(bigend - littlelen, oldlittle - littlelen, littlelen) )
+ && memEQ((char *)(bigend - littlelen),
+ (char *)(oldlittle - littlelen), littlelen) )
return (char*)bigend - littlelen;
return Nullch;
}
@@ -1283,7 +1287,8 @@ Perl_screaminstr(pTHX_ SV *bigstr, SV *littlestr, I32 start_shift, I32 end_shift
return (char*)big;
big -= stop_pos;
if (*big == first
- && ((stop_pos == 1) || memEQ(big + 1, little, stop_pos - 1)))
+ && ((stop_pos == 1) ||
+ memEQ((char *)(big + 1), (char *)little, stop_pos - 1)))
return (char*)big;
return Nullch;
}
@@ -2491,7 +2496,7 @@ dup2(int oldfd, int newfd)
}
#endif
-
+#ifndef PERL_MICRO
#ifdef HAS_SIGACTION
Sighandler_t
@@ -2594,6 +2599,7 @@ Perl_rsignal_restore(pTHX_ int signo, Sigsave_t *save)
}
#endif /* !HAS_SIGACTION */
+#endif /* !PERL_MICRO */
/* VMS' my_pclose() is in VMS.c; same with OS/2 */
#if (!defined(DOSISH) || defined(HAS_FORK) || defined(AMIGAOS)) && !defined(VMS) && !defined(__OPEN_VM) && !defined(EPOC) && !defined(MACOS_TRADITIONAL)
@@ -2635,15 +2641,19 @@ Perl_my_pclose(pTHX_ PerlIO *ptr)
#ifdef UTS
if(PerlProc_kill(pid, 0) < 0) { return(pid); } /* HOM 12/23/91 */
#endif
+#ifndef PERL_MICRO
rsignal_save(SIGHUP, SIG_IGN, &hstat);
rsignal_save(SIGINT, SIG_IGN, &istat);
rsignal_save(SIGQUIT, SIG_IGN, &qstat);
+#endif
do {
pid2 = wait4pid(pid, &status, 0);
} while (pid2 == -1 && errno == EINTR);
+#ifndef PERL_MICRO
rsignal_restore(SIGHUP, &hstat);
rsignal_restore(SIGINT, &istat);
rsignal_restore(SIGQUIT, &qstat);
+#endif
if (close_failed) {
SETERRNO(saved_errno, saved_vaxc_errno);
return -1;
@@ -3661,7 +3671,7 @@ Perl_get_opargs(pTHX)
PPADDR_t*
Perl_get_ppaddr(pTHX)
{
- return &PL_ppaddr;
+ return (PPADDR_t*)PL_ppaddr;
}
#ifndef HAS_GETENV_LEN
diff --git a/vms/descrip_mms.template b/vms/descrip_mms.template
index 77772c95ef..9f3173ab62 100644
--- a/vms/descrip_mms.template
+++ b/vms/descrip_mms.template
@@ -266,13 +266,13 @@ FULLLIBS2 = $(LIBS2)|$(THRLIBS1)|$(THRLIBS2)
#### End of system configuration section. ####
c0 = $(MALLOC_C) $(SOCKC) av.c deb.c doio.c doop.c dump.c globals.c gv.c
-c1 = hv.c mg.c miniperlmain.c op.c perl.c perlio.c perly.c pp.c pp_ctl.c
+c1 = hv.c mg.c miniperlmain.c op.c perl.c perlapi.c perlio.c perly.c pp.c pp_ctl.c
c2 = pp_hot.c pp_sys.c regcomp.c regexec.c run.c scope.c sv.c taint.c
c3 = toke.c universal.c utf8.c util.c vms.c xsutils.c
c = $(c0) $(c1) $(c2) $(c3)
obj0 = $(MALLOC_O) $(SOCKO) av$(O) deb$(O) doio$(O) doop$(O) dump$(O)
-obj1 = globals$(O) gv$(O) hv$(O) mg$(O) miniperlmain$(O) op$(O) perl$(O)
+obj1 = globals$(O) gv$(O) hv$(O) mg$(O) miniperlmain$(O) op$(O) perl$(O) perlapi$(O)
obj2 = perlio$(O) perly$(O) pp$(O) pp_ctl$(O) pp_hot$(O) pp_sys$(O) regcomp$(O)
obj3 = regexec$(O) run$(O) scope$(O) sv$(O) taint$(O) toke$(O) universal$(O)
obj4 = utf8$(O) util$(O) vms$(O) xsutils$(O)
@@ -1083,6 +1083,8 @@ gv$(O) : gv.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsy
$(CC) $(CORECFLAGS) $(MMS$SOURCE)
hv$(O) : hv.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h perl.h regexp.h sv.h util.h form.h gv.h cv.h opnames.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
$(CC) $(CORECFLAGS) $(MMS$SOURCE)
+malloc$(O) : malloc.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h perl.h regexp.h sv.h util.h form.h gv.h cv.h opnames.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
+ $(CC) $(CORECFLAGS) $(MMS$SOURCE)
mg$(O) : mg.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h perl.h regexp.h sv.h util.h form.h gv.h cv.h opnames.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
$(CC) $(CORECFLAGS) $(MMS$SOURCE)
miniperlmain$(O) : miniperlmain.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h perl.h regexp.h sv.h util.h form.h gv.h cv.h opnames.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
@@ -1091,6 +1093,8 @@ op$(O) : op.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsy
$(CC) $(CORECFLAGS) $(MMS$SOURCE)
perl$(O) : perl.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h perl.h regexp.h sv.h util.h form.h gv.h cv.h opnames.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h patchlevel.h intrpvar.h thrdvar.h
$(CC) $(CORECFLAGS) $(MMS$SOURCE)
+perlapi$(O) : perlapi.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h perl.h regexp.h sv.h util.h form.h gv.h cv.h opnames.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h patchlevel.h intrpvar.h thrdvar.h
+ $(CC) $(CORECFLAGS) $(MMS$SOURCE)
perlio$(O) : perlio.c config.h extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h perl.h regexp.h sv.h util.h form.h gv.h cv.h opnames.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
$(CC) $(CORECFLAGS) $(MMS$SOURCE)
perlmain$(O) : perlmain.c extern.h perl.h config.h embed.h handy.h vmsish.h $(SOCKH) iperlsys.h perlsdio.h perl.h regexp.h sv.h util.h form.h gv.h cv.h opnames.h op.h cop.h av.h hv.h mg.h scope.h warnings.h utf8.h perly.h thread.h pp.h proto.h pp_proto.h opcode.h embedvar.h intrpvar.h thrdvar.h perlvars.h patchlevel.h
diff --git a/vms/vms.c b/vms/vms.c
index de4a374637..8a85d61195 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -79,6 +79,16 @@ struct itmlst_3 {
unsigned short int *retlen;
};
+#define do_fileify_dirspec(a,b,c) mp_do_fileify_dirspec(aTHX_ a,b,c)
+#define do_pathify_dirspec(a,b,c) mp_do_pathify_dirspec(aTHX_ a,b,c)
+#define do_tovmsspec(a,b,c) mp_do_tovmsspec(aTHX_ a,b,c)
+#define do_tovmspath(a,b,c) mp_do_tovmspath(aTHX_ a,b,c)
+#define do_rmsexpand(a,b,c,d,e) mp_do_rmsexpand(aTHX_ a,b,c,d,e)
+#define do_tounixspec(a,b,c) mp_do_tounixspec(aTHX_ a,b,c)
+#define do_tounixpath(a,b,c) mp_do_tounixpath(aTHX_ a,b,c)
+#define expand_wild_cards(a,b,c,d) mp_expand_wild_cards(aTHX_ a,b,c,d)
+#define getredirection(a,b) mp_getredirection(aTHX_ a,b)
+
static char *__mystrtolower(char *str)
{
if (str) for (; *str; ++str) *str= tolower(*str);
@@ -103,7 +113,7 @@ static struct dsc$descriptor_s VMScmd = {0,DSC$K_DTYPE_T,DSC$K_CLASS_S,Nullch};
/*{{{int vmstrnenv(const char *lnm, char *eqv, unsigned long int idx, struct dsc$descriptor_s **tabvec, unsigned long int flags) */
int
-vmstrnenv(const char *lnm, char *eqv, unsigned long int idx,
+Perl_vmstrnenv(pTHX_ const char *lnm, char *eqv, unsigned long int idx,
struct dsc$descriptor_s **tabvec, unsigned long int flags)
{
char uplnm[LNM$C_NAMLENGTH+1], *cp1, *cp2;
@@ -240,7 +250,7 @@ vmstrnenv(const char *lnm, char *eqv, unsigned long int idx,
/*{{{ int my_trnlnm(const char *lnm, char *eqv, unsigned long int idx)*/
/* Define as a function so we can access statics. */
-int my_trnlnm(const char *lnm, char *eqv, unsigned long int idx)
+int Perl_my_trnlnm(pTHX_ const char *lnm, char *eqv, unsigned long int idx)
{
return vmstrnenv(lnm,eqv,idx,fildev,
#ifdef SECURE_INTERNAL_GETENV
@@ -757,13 +767,13 @@ my_crypt(const char *textpasswd, const char *usrname)
/*}}}*/
-static char *do_rmsexpand(char *, char *, int, char *, unsigned);
-static char *do_fileify_dirspec(char *, char *, int);
-static char *do_tovmsspec(char *, char *, int);
+static char *mp_do_rmsexpand(pTHX_ char *, char *, int, char *, unsigned);
+static char *mp_do_fileify_dirspec(pTHX_ char *, char *, int);
+static char *mp_do_tovmsspec(pTHX_ char *, char *, int);
/*{{{int do_rmdir(char *name)*/
int
-do_rmdir(char *name)
+Perl_do_rmdir(pTHX_ char *name)
{
char dirfile[NAM$C_MAXRSS+1];
int retval;
@@ -1110,7 +1120,7 @@ popen_completion_ast(struct pipe_details *thispipe)
}
static unsigned long int setup_cmddsc(char *cmd, int check_img);
-static void vms_execfree();
+static void vms_execfree(pTHX);
static PerlIO *
safe_popen(char *cmd, char *mode)
@@ -1157,7 +1167,7 @@ safe_popen(char *cmd, char *mode)
0, popen_completion_ast,info,0,0,0));
}
- vms_execfree();
+ vms_execfree(aTHX);
if (!handler_set_up) {
_ckvmssts(sys$dclexh(&pipe_exitblock));
handler_set_up = TRUE;
@@ -1315,10 +1325,10 @@ my_gconvert(double val, int ndig, int trail, char *buf)
* rmesexpand() returns the address of the resultant string if
* successful, and NULL on error.
*/
-static char *do_tounixspec(char *, char *, int);
+static char *mp_do_tounixspec(pTHX_ char *, char *, int);
static char *
-do_rmsexpand(char *filespec, char *outbuf, int ts, char *defspec, unsigned opts)
+mp_do_rmsexpand(pTHX_ char *filespec, char *outbuf, int ts, char *defspec, unsigned opts)
{
static char __rmsexpand_retbuf[NAM$C_MAXRSS+1];
char vmsfspec[NAM$C_MAXRSS+1], tmpfspec[NAM$C_MAXRSS+1];
@@ -1453,9 +1463,9 @@ do_rmsexpand(char *filespec, char *outbuf, int ts, char *defspec, unsigned opts)
}
/*}}}*/
/* External entry points */
-char *rmsexpand(char *spec, char *buf, char *def, unsigned opt)
+char *Perl_rmsexpand(pTHX_ char *spec, char *buf, char *def, unsigned opt)
{ return do_rmsexpand(spec,buf,0,def,opt); }
-char *rmsexpand_ts(char *spec, char *buf, char *def, unsigned opt)
+char *Perl_rmsexpand_ts(pTHX_ char *spec, char *buf, char *def, unsigned opt)
{ return do_rmsexpand(spec,buf,1,def,opt); }
@@ -1494,7 +1504,7 @@ char *rmsexpand_ts(char *spec, char *buf, char *def, unsigned opt)
*/
/*{{{ char *fileify_dirspec[_ts](char *path, char *buf)*/
-static char *do_fileify_dirspec(char *dir,char *buf,int ts)
+static char *mp_do_fileify_dirspec(pTHX_ char *dir,char *buf,int ts)
{
static char __fileify_retbuf[NAM$C_MAXRSS+1];
unsigned long int dirlen, retlen, addmfd = 0, hasfilename = 0;
@@ -1806,13 +1816,13 @@ static char *do_fileify_dirspec(char *dir,char *buf,int ts)
} /* end of do_fileify_dirspec() */
/*}}}*/
/* External entry points */
-char *fileify_dirspec(char *dir, char *buf)
+char *Perl_fileify_dirspec(pTHX_ char *dir, char *buf)
{ return do_fileify_dirspec(dir,buf,0); }
-char *fileify_dirspec_ts(char *dir, char *buf)
+char *Perl_fileify_dirspec_ts(pTHX_ char *dir, char *buf)
{ return do_fileify_dirspec(dir,buf,1); }
/*{{{ char *pathify_dirspec[_ts](char *path, char *buf)*/
-static char *do_pathify_dirspec(char *dir,char *buf, int ts)
+static char *mp_do_pathify_dirspec(pTHX_ char *dir,char *buf, int ts)
{
static char __pathify_retbuf[NAM$C_MAXRSS+1];
unsigned long int retlen;
@@ -1992,13 +2002,13 @@ static char *do_pathify_dirspec(char *dir,char *buf, int ts)
} /* end of do_pathify_dirspec() */
/*}}}*/
/* External entry points */
-char *pathify_dirspec(char *dir, char *buf)
+char *Perl_pathify_dirspec(pTHX_ char *dir, char *buf)
{ return do_pathify_dirspec(dir,buf,0); }
-char *pathify_dirspec_ts(char *dir, char *buf)
+char *Perl_pathify_dirspec_ts(pTHX_ char *dir, char *buf)
{ return do_pathify_dirspec(dir,buf,1); }
/*{{{ char *tounixspec[_ts](char *path, char *buf)*/
-static char *do_tounixspec(char *spec, char *buf, int ts)
+static char *mp_do_tounixspec(pTHX_ char *spec, char *buf, int ts)
{
static char __tounixspec_retbuf[NAM$C_MAXRSS+1];
char *dirend, *rslt, *cp1, *cp2, *cp3, tmp[NAM$C_MAXRSS+1];
@@ -2122,11 +2132,11 @@ static char *do_tounixspec(char *spec, char *buf, int ts)
} /* end of do_tounixspec() */
/*}}}*/
/* External entry points */
-char *tounixspec(char *spec, char *buf) { return do_tounixspec(spec,buf,0); }
-char *tounixspec_ts(char *spec, char *buf) { return do_tounixspec(spec,buf,1); }
+char *Perl_tounixspec(pTHX_ char *spec, char *buf) { return do_tounixspec(spec,buf,0); }
+char *Perl_tounixspec_ts(pTHX_ char *spec, char *buf) { return do_tounixspec(spec,buf,1); }
/*{{{ char *tovmsspec[_ts](char *path, char *buf)*/
-static char *do_tovmsspec(char *path, char *buf, int ts) {
+static char *mp_do_tovmsspec(pTHX_ char *path, char *buf, int ts) {
static char __tovmsspec_retbuf[NAM$C_MAXRSS+1];
char *rslt, *dirend;
register char *cp1, *cp2;
@@ -2266,11 +2276,11 @@ static char *do_tovmsspec(char *path, char *buf, int ts) {
} /* end of do_tovmsspec() */
/*}}}*/
/* External entry points */
-char *tovmsspec(char *path, char *buf) { return do_tovmsspec(path,buf,0); }
-char *tovmsspec_ts(char *path, char *buf) { return do_tovmsspec(path,buf,1); }
+char *Perl_tovmsspec(pTHX_ char *path, char *buf) { return do_tovmsspec(path,buf,0); }
+char *Perl_tovmsspec_ts(pTHX_ char *path, char *buf) { return do_tovmsspec(path,buf,1); }
/*{{{ char *tovmspath[_ts](char *path, char *buf)*/
-static char *do_tovmspath(char *path, char *buf, int ts) {
+static char *mp_do_tovmspath(pTHX_ char *path, char *buf, int ts) {
static char __tovmspath_retbuf[NAM$C_MAXRSS+1];
int vmslen;
char pathified[NAM$C_MAXRSS+1], vmsified[NAM$C_MAXRSS+1], *cp;
@@ -2294,12 +2304,12 @@ static char *do_tovmspath(char *path, char *buf, int ts) {
} /* end of do_tovmspath() */
/*}}}*/
/* External entry points */
-char *tovmspath(char *path, char *buf) { return do_tovmspath(path,buf,0); }
-char *tovmspath_ts(char *path, char *buf) { return do_tovmspath(path,buf,1); }
+char *Perl_tovmspath(pTHX_ char *path, char *buf) { return do_tovmspath(path,buf,0); }
+char *Perl_tovmspath_ts(pTHX_ char *path, char *buf) { return do_tovmspath(path,buf,1); }
/*{{{ char *tounixpath[_ts](char *path, char *buf)*/
-static char *do_tounixpath(char *path, char *buf, int ts) {
+static char *mp_do_tounixpath(pTHX_ char *path, char *buf, int ts) {
static char __tounixpath_retbuf[NAM$C_MAXRSS+1];
int unixlen;
char pathified[NAM$C_MAXRSS+1], unixified[NAM$C_MAXRSS+1], *cp;
@@ -2323,8 +2333,8 @@ static char *do_tounixpath(char *path, char *buf, int ts) {
} /* end of do_tounixpath() */
/*}}}*/
/* External entry points */
-char *tounixpath(char *path, char *buf) { return do_tounixpath(path,buf,0); }
-char *tounixpath_ts(char *path, char *buf) { return do_tounixpath(path,buf,1); }
+char *Perl_tounixpath(pTHX_ char *path, char *buf) { return do_tounixpath(path,buf,0); }
+char *Perl_tounixpath_ts(pTHX_ char *path, char *buf) { return do_tounixpath(path,buf,1); }
/*
* @(#)argproc.c 2.2 94/08/16 Mark Pizzolato (mark@infocomm.com)
@@ -2369,10 +2379,10 @@ static void add_item(struct list_item **head,
char *value,
int *count);
-static void expand_wild_cards(char *item,
- struct list_item **head,
- struct list_item **tail,
- int *count);
+static void mp_expand_wild_cards(pTHX_ char *item,
+ struct list_item **head,
+ struct list_item **tail,
+ int *count);
static int background_process(int argc, char **argv);
@@ -2380,7 +2390,7 @@ static void pipe_and_fork(char **cmargv);
/*{{{ void getredirection(int *ac, char ***av)*/
static void
-getredirection(int *ac, char ***av)
+mp_getredirection(pTHX_ int *ac, char ***av)
/*
* Process vms redirection arg's. Exit if any error is seen.
* If getredirection() processes an argument, it is erased
@@ -2630,7 +2640,7 @@ static void add_item(struct list_item **head,
++(*count);
}
-static void expand_wild_cards(char *item,
+static void mp_expand_wild_cards(pTHX_ char *item,
struct list_item **head,
struct list_item **tail,
int *count)
@@ -2984,7 +2994,7 @@ vms_image_init(int *argcp, char ***argvp)
*/
/*{{{int trim_unixpath(char *fspec, char *wildspec, int opts)*/
int
-trim_unixpath(char *fspec, char *wildspec, int opts)
+Perl_trim_unixpath(pTHX_ char *fspec, char *wildspec, int opts)
{
char unixified[NAM$C_MAXRSS+1], unixwild[NAM$C_MAXRSS+1],
*template, *base, *end, *cp1, *cp2;
@@ -3143,7 +3153,7 @@ trim_unixpath(char *fspec, char *wildspec, int opts)
*/
/*{{{ DIR *opendir(char*name) */
DIR *
-opendir(char *name)
+Perl_opendir(pTHX_ char *name)
{
DIR *dd;
char dir[NAM$C_MAXRSS+1];
@@ -3397,7 +3407,7 @@ my_vfork()
static void
-vms_execfree() {
+vms_execfree(pTHX) {
if (PL_Cmd) {
if (PL_Cmd != VMScmd.dsc$a_pointer) Safefree(PL_Cmd);
PL_Cmd = Nullch;
@@ -3647,7 +3657,7 @@ vms_do_exec(char *cmd)
Perl_warner(aTHX_ WARN_EXEC,"Can't exec \"%*s\": %s",
VMScmd.dsc$w_length, VMScmd.dsc$a_pointer, Strerror(errno));
}
- vms_execfree();
+ vms_execfree(aTHX);
}
return FALSE;
@@ -3712,7 +3722,7 @@ do_spawn(char *cmd)
Strerror(errno));
}
}
- vms_execfree();
+ vms_execfree(aTHX);
return substs;
} /* end of do_spawn() */
@@ -4858,7 +4868,7 @@ my_getlogin()
*/
/*{{{int rmscopy(char *src, char *dst, int preserve_dates)*/
int
-rmscopy(char *spec_in, char *spec_out, int preserve_dates)
+Perl_rmscopy(pTHX_ char *spec_in, char *spec_out, int preserve_dates)
{
char vmsin[NAM$C_MAXRSS+1], vmsout[NAM$C_MAXRSS+1], esa[NAM$C_MAXRSS],
rsa[NAM$C_MAXRSS], ubf[32256];
diff --git a/vms/vmsish.h b/vms/vmsish.h
index 382e314743..104eabce1e 100644
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -91,43 +91,63 @@
#define DONT_DECLARE_STD 1
/* Our own contribution to PerlShr's global symbols . . . */
-#define vmstrnenv Perl_vmstrnenv
-#define my_trnlnm Perl_my_trnlnm
#define my_getenv_len Perl_my_getenv_len
#define prime_env_iter Perl_prime_env_iter
#define vmssetenv Perl_vmssetenv
#if !defined(PERL_IMPLICIT_CONTEXT)
+#define my_trnlnm Perl_my_trnlnm
+#define vmstrnenv Perl_vmstrnenv
#define my_setenv Perl_my_setenv
#define my_getenv Perl_my_getenv
+#define tounixspec Perl_tounixspec
+#define tounixspec_ts Perl_tounixspec_ts
+#define tovmsspec Perl_tovmsspec
+#define tovmsspec_ts Perl_tovmsspec_ts
+#define tounixpath Perl_tounixpath
+#define tounixpath_ts Perl_tounixpath_ts
+#define tovmspath Perl_tovmspath
+#define tovmspath_ts Perl_tovmspath_ts
+#define do_rmdir Perl_do_rmdir
+#define fileify_dirspec Perl_fileify_dirspec
+#define fileify_dirspec_ts Perl_fileify_dirspec_ts
+#define pathify_dirspec Perl_pathify_dirspec
+#define pathify_dirspec_ts Perl_pathify_dirspec_ts
+#define trim_unixpath Perl_trim_unixpath
+#define opendir Perl_opendir
+#define rmscopy Perl_rmscopy
#else
+#define my_trnlnm(a,b,c) Perl_my_trnlnm(aTHX_ a,b,c)
+#define vmstrnenv(a,b,c,d,e) Perl_vmstrnenv(aTHX_ a,b,c,d,e)
#define my_setenv(a,b) Perl_my_setenv(aTHX_ a,b)
#define my_getenv(a,b) Perl_my_getenv(aTHX_ a,b)
+#define tounixspec(a,b) Perl_tounixspec(aTHX_ a,b)
+#define tounixspec_ts(a,b) Perl_tounixspec_ts(aTHX_ a,b)
+#define tovmsspec(a,b) Perl_tovmsspec(aTHX_ a,b)
+#define tovmsspec_t(a,b) Perl_tovmsspec_ts(aTHX_ a,b)
+#define tounixpath(a,b) Perl_tounixpath(aTHX_ a,b)
+#define tounixpath_ts(a,b) Perl_tounixpath_ts(aTHX_ a,b)
+#define tovmspath(a,b) Perl_tovmspath(aTHX_ a,b)
+#define tovmspath_ts(a,b) Perl_tovmspath_ts(aTHX_ a,b)
+#define do_rmdir(a) Perl_do_rmdir(aTHX_ a)
+#define fileify_dirspec(a,b) Perl_fileify_dirspec(aTHX_ a,b)
+#define fileify_dirspec_ts(a,b) Perl_fileify_dirspec_ts(aTHX_ a,b)
+#define pathify_dirspec Perl_pathify_dirspec
+#define pathify_dirspec_ts Perl_pathify_dirspec_ts
+#define rmsexpand(a,b,c,d) Perl_rmsexpand(aTHX_ a,b,c,d)
+#define rmsexpand_ts(a,b,c,d) Perl_rmsexpand_ts(aTHX_ a,b,c,d)
+#define trim_unixpath(a,b,c) Perl_trim_unixpath(aTHX_ a,b,c)
+#define opendir(a) Perl_opendir(aTHX_ a)
+#define rmscopy(a,b,c) Perl_rmscopy(aTHX_ a,b,c)
#endif
#define my_crypt Perl_my_crypt
#define my_waitpid Perl_my_waitpid
#define my_gconvert Perl_my_gconvert
-#define do_rmdir Perl_do_rmdir
#define kill_file Perl_kill_file
#define my_mkdir Perl_my_mkdir
#define my_chdir Perl_my_chdir
#define my_tmpfile Perl_my_tmpfile
#define my_utime Perl_my_utime
-#define rmsexpand Perl_rmsexpand
-#define rmsexpand_ts Perl_rmsexpand_ts
-#define fileify_dirspec Perl_fileify_dirspec
-#define fileify_dirspec_ts Perl_fileify_dirspec_ts
-#define pathify_dirspec Perl_pathify_dirspec
-#define pathify_dirspec_ts Perl_pathify_dirspec_ts
-#define tounixspec Perl_tounixspec
-#define tounixspec_ts Perl_tounixspec_ts
-#define tovmsspec Perl_tovmsspec
-#define tovmsspec_ts Perl_tovmsspec_ts
-#define tounixpath Perl_tounixpath
-#define tounixpath_ts Perl_tounixpath_ts
-#define tovmspath Perl_tovmspath
-#define tovmspath_ts Perl_tovmspath_ts
#define vms_image_init Perl_vms_image_init
-#define opendir Perl_opendir
#define readdir Perl_readdir
#define telldir Perl_telldir
#define seekdir Perl_seekdir
@@ -145,7 +165,6 @@
#define cando_by_name Perl_cando_by_name
#define flex_fstat Perl_flex_fstat
#define flex_stat Perl_flex_stat
-#define trim_unixpath Perl_trim_unixpath
#define my_vfork Perl_my_vfork
#define vms_do_aexec Perl_vms_do_aexec
#define vms_do_exec Perl_vms_do_exec
@@ -158,7 +177,6 @@
#define my_getpwent Perl_my_getpwent
#define my_endpwent Perl_my_endpwent
#define my_getlogin Perl_my_getlogin
-#define rmscopy Perl_rmscopy
#define init_os_extras Perl_init_os_extras
/* Delete if at all possible, changing protections if necessary. */
@@ -638,40 +656,62 @@ void prime_env_iter (void);
void init_os_extras ();
/* prototype section start marker; `typedef' passes through cpp */
typedef char __VMS_PROTOTYPES__;
-int vmstrnenv (const char *, char *, unsigned long int, struct dsc$descriptor_s **, unsigned long int);
-int my_trnlnm (const char *, char *, unsigned long int);
#if !defined(PERL_IMPLICIT_CONTEXT)
char * Perl_my_getenv (const char *, bool);
+int Perl_vmstrnenv (const char *, char *, unsigned long int, struct dsc$descriptor_s **, unsigned long int);
+int Perl_my_trnlnm (const char *, char *, unsigned long int);
+char * Perl_tounixspec (char *, char *);
+char * Perl_tounixspec_ts (char *, char *);
+char * Perl_tovmsspec (char *, char *);
+char * Perl_tovmsspec_ts (char *, char *);
+char * Perl_tounixpath (char *, char *);
+char * Perl_tounixpath_ts (char *, char *);
+char * Perl_tovmspath (char *, char *);
+char * Perl_tovmspath_ts (char *, char *);
+int Perl_do_rmdir (char *);
+char * Perl_fileify_dirspec (char *, char *);
+char * Perl_fileify_dirspec_ts (char *, char *);
+char * Perl_pathify_dirspec (char *, char *);
+char * Perl_pathify_dirspec_ts (char *, char *);
+char * Perl_rmsexpand (char *, char *, char *, unsigned);
+char * Perl_rmsexpand_ts (char *, char *, char *, unsigned);
+int Perl_trim_unixpath (char *, char*, int);
+DIR * Perl_opendir (char *);
+int Perl_rmscopy (char *, char *, int);
#else
+int Perl_vmstrnenv (pTHX_ const char *, char *, unsigned long int, struct dsc$descriptor_s **, unsigned long int);
char * Perl_my_getenv (pTHX_ const char *, bool);
+int Perl_my_trnlnm (pTHX_ const char *, char *, unsigned long int);
+char * Perl_tounixspec (pTHX_ char *, char *);
+char * Perl_tounixspec_ts (pTHX_ char *, char *);
+char * Perl_tovmsspec (pTHX_ char *, char *);
+char * Perl_tovmsspec_ts (pTHX_ char *, char *);
+char * Perl_tounixpath (pTHX_ char *, char *);
+char * Perl_tounixpath_ts (pTHX_ char *, char *);
+char * Perl_tovmspath (pTHX_ char *, char *);
+char * Perl_tovmspath_ts (pTHX_ char *, char *);
+int Perl_do_rmdir (pTHX_ char *);
+char * Perl_fileify_dirspec (pTHX_ char *, char *);
+char * Perl_fileify_dirspec_ts (pTHX_ char *, char *);
+char * Perl_pathify_dirspec (pTHX_ char *, char *);
+char * Perl_pathify_dirspec_ts (pTHX_ char *, char *);
+char * Perl_rmsexpand (pTHX_ char *, char *, char *, unsigned);
+char * Perl_rmsexpand_ts (pTHX_ char *, char *, char *, unsigned);
+int Perl_trim_unixpath (pTHX_ char *, char*, int);
+DIR * Perl_opendir (pTHX_ char *);
+int Perl_rmscopy (pTHX_ char *, char *, int);
#endif
char * my_getenv_len (const char *, unsigned long *, bool);
int vmssetenv (char *, char *, struct dsc$descriptor_s **);
char * my_crypt (const char *, const char *);
Pid_t my_waitpid (Pid_t, int *, int);
char * my_gconvert (double, int, int, char *);
-int do_rmdir (char *);
int kill_file (char *);
int my_mkdir (char *, Mode_t);
int my_chdir (char *);
FILE * my_tmpfile (void);
int my_utime (char *, struct utimbuf *);
-char * rmsexpand (char *, char *, char *, unsigned);
-char * rmsexpand_ts (char *, char *, char *, unsigned);
-char * fileify_dirspec (char *, char *);
-char * fileify_dirspec_ts (char *, char *);
-char * pathify_dirspec (char *, char *);
-char * pathify_dirspec_ts (char *, char *);
-char * tounixspec (char *, char *);
-char * tounixspec_ts (char *, char *);
-char * tovmsspec (char *, char *);
-char * tovmsspec_ts (char *, char *);
-char * tounixpath (char *, char *);
-char * tounixpath_ts (char *, char *);
-char * tovmspath (char *, char *);
-char * tovmspath_ts (char *, char *);
void vms_image_init (int *, char ***);
-DIR * opendir (char *);
struct dirent * readdir (DIR *);
long telldir (DIR *);
void seekdir (DIR *, long);
@@ -691,7 +731,6 @@ int my_sigprocmask (int, sigset_t *, sigset_t *);
I32 cando_by_name (I32, Uid_t, char *);
int flex_fstat (int, Stat_t *);
int flex_stat (const char *, Stat_t *);
-int trim_unixpath (char *, char*, int);
int my_vfork ();
bool vms_do_aexec (SV *, SV **, SV **);
bool vms_do_exec (char *);
@@ -704,7 +743,6 @@ struct passwd * my_getpwuid (Uid_t uid);
struct passwd * my_getpwent ();
void my_endpwent ();
char * my_getlogin ();
-int rmscopy (char *, char *, int);
typedef char __VMS_SEPYTOTORP__;
/* prototype section end marker; `typedef' passes through cpp */
View Lorry Controller Status