"Sub declaration cost reduced from ~500 to ~100 bytes"
Msg-ID:  <199805050607.CAA02050@monk.mps.ohio-state.edu>
 Files:  gv.h gv.c op.c

p4raw-id: //depot/maint-5.004/perl@965

"while($x=<>) no longer warns (implicit defined added)"
Msg-ID:  <199805051035.LAA27365@pluto.tiuk.ti.com>
 Files:  MANIFEST op.c t/op/defins.t

p4raw-id: //depot/maint-5.004/perl@949

"Fix PERL_DESTRUCT_LEVEL core dumps"
Msg-ID:  <199805062301.TAA24599@aatma.engin.umich.edu>
 Files:  perl.c sv.c t/op/misc.t

p4raw-id: //depot/maint-5.004/perl@946

"5.004_04-m2 Cleanup of test failures"
Msg-ID:  <199805070416.AAA03082@aatma.engin.umich.edu>
 Files:  t/op/die_exit.t t/op/ipcmsg.t t/op/ipcsem.t t/op/taint.t
         win32/config.bc win32/config.vc

p4raw-id: //depot/maint-5.004/perl@944

[difference between patch application from Change 913 and Change 922]

 ------  DOCUMENTATION  ------

 Title:  "tweak doc for C<do FILENAME>"
  From:  Gurusamy Sarathy <gsar@engin.umich.edu>
Msg-ID:  <199805090017.UAA06888@aatma.engin.umich.edu>
 Files:  pod/perlfunc.pod

 ------  PORTABILITY - GENERAL  ------

 Title:  "Add Porting/patching.pod document"
  From:  Daniel Grisinger <dgris@tdrenterprises.com>
Msg-ID:  <199805030305.XAA16147@relay.pair.com>
 Files:  MANIFEST Porting/patching.pod

 Title:  "Add VMS specifics to Porting/makerel"
  From:  Charles Bailey <BAILEY@newman.upenn.edu>
Msg-ID:  <01IWDK1LONRQ0026P0@cor.newman.upenn.edu>,
         <199804271732.SAA13762@toad.ig.co.uk>,
         <9804250212.AA27695@forte.com>
 Files:  Porting/makerel

p4raw-link: @913 on //depot/maint-5.004/perl: 91b1e15505068510ec71d8e011102933bbe41b37
p4raw-id: //depot/maint-5.004/perl@922

Add VMS specifics to Porting/makerel

Funny - I had intended to submit a patch against _04 to fix
File::Path::mkpath() which had a nasty problem (especially on VMS).
A closer look at the 04-m1 source revealed that the necessary
change is already in there (thanks!).

I did, however, encounter build troubles on VMS one of which involved
the new save_helem() and save_aelem() in pp.c pp_hot.c not having
prototypes.  I hand applied the proto.h fix from Gurusamy Sarathy in:

  http://www.rosat.mpe-garching.mpg.de/
    mailing-lists/perl-porters/1998-03/msg00469.html

and got further along to:

MCR Sys$Disk:[]miniperl.exe "-I[.lib]" ConfigPM.
Create/Directory [.lib.VMS_AXP.5_00404]
%CREATE-I-EXISTS, [.LIB.VMS_AXP.5_00404] already exists
Copy [.LIB]CONFIG.PM [.LIB.VMS_AXP.5_00404]CONFIG.PM
%MMS-F-GWKNOPRN, There are no known sources for the current target [.EXT.DYNALOADER]DYNALOADER.PM.

Unfortunately the .PL-ification of Dynaloader.pm was not accounted for
in the VMS Makefile.  The enclosed patch to vms/descrip.mms fixes that.

I realize that there have been many patches to vms related files recently,
perhaps including vms/descrip.mms.  Unfortunately I have not had the time
to check if this change was already suggested and/or incorporated into
the archive (though I did search the p5p and vmsp archives at
www.rosat.mpe-garching.mpg.de for the string '_pl' but saw nothing relevant
to vms).  Apologies to the pumpking for any inconvenience (and
congratulations on the new baby :-).

Do note that the change to PERL_VERSION reflected in this patch
ought to be upped (via C<s/00404/00405/>) before releasing this
as _05.

Peter Prymmer
pvhp@forte.com

Single file affected: vms/descrip.mms
Apply with: patch -p0 < this_patch

Credited: Peter Prymmer <pvhp@forte.com>

p5p-msgid: 9804250212.AA27695@forte.com

hints/machten.sh: disable semctl(), align with devel version

semctl(.., .., IPC_STATUS, ..) hangs the system on MachTen 4.1.  Here's a
patch to make hints/machten.sh assert that semctl() isn't available.  The
patch also brings the maintenance track hints file into line with that in
the development track, which is slightly more up-to-date.

p5p-msgid: v03110701b175fc029eb1@[195.95.102.115]

Fix File::Find::finddepth typo in trial 2 release

Subject: 5.004_04-m2: File::Find::finddepth is gone

It looks just like a typo. I've added a test to findfind.t too.

p5p-msgid: sfcbttflsjz.fsf@dubravka.in-berlin.de

Clarify Termios usage in POSIX.pod

The included patch removes some ambiguity from the POSIX::Termios
documentation.

p5p-msgid: 199805101952.PAA12738@ns.netrus.net

Reduce rm command line length in pod/Makefile

Subject: [PATCH] Re: mostly OK: perl 5.00404 +MAINT_TRIAL_2 on sun4-solaris

:This is a success report for perl from h.sanden@elsevier.nl,
:generated with the help of perlbug 1.20 running under perl 5.00404.
:
:Perl reported to build mostly OK on this system: op/ipc* both failed
:under 'make test', but succeeded when run individually. I assume this
:failure relates to the problems noted by Jarkko - I don't have time
:to investigate this right now.

Building the same with DEBUGGING passed all tests (additional configure
option '-Dccflags="-g -DDEBUGGING"').

I also note that 'make clean' in ./pod is producing an 'rm' line
2181 characters long: patch below splits the line into 3. (I assume
the Makefile isn't generated.)

p5p-msgid: 199805041423.QAA13199@dorlas.elsevier.nl

Document integer pragma effect on % operator

Jon Orwant <orwant@media.mit.edu> writes:

> Of course I expect "use integer" to use integers for everything.
> I don't see why that should change the value of -534 % 210.
>
> Here's what perlmod says:
>
>    Binary "%" computes the modulus of two numbers.  Given integer operands $a
>    and $b: If $b is positive, then $a % $b is $a minus the largest multiple of
>    $b that is not greater than $a.  If $b is negative, then $a % $b is $a
>    minus the smallest multiple of $b that is not less than $a (i.e. the result
>    will be less than or equal to zero).
>
> $a is -534.  $b is 210.  The largest multiple of 210 not greater than -534
> is -630.  Ergo, -534 % 210 is -534 - -630, or 96.
>
> But if you "use integer", you get -114.  Arithmetic Most Foul.

I think it should stay the way it is.  Perhaps we should apply this
documentation patch.

p5p-msgid: m3yawjmzhx.fsf@furu.g.aas.no

Remove dead code from pod2man

This fragment of code was left behind when the .IX fix was made to
pod2man.    Since the X<> construct isn't used anywhere in the core pods,
this is currently something of a non-bug.    It also means that this patch
is untested.  :-)

p5p-msgid: E0yXmuT-0006Ll-00@ursa.cus.cam.ac.uk

Improve docs for warning about code after an exec()

I wrote
> This probably ought to be in   perldoc -f exec.

    ... and here it is.

Credited: Chaim Frenkel <chaimf@concentric.net>

p5p-msgid: E0yYUit-0003yb-00@taurus.cus.cam.ac.uk

perlvar.pod buglet E<EVMSERR>

Besides the already reported two IPC tests that fail on Digital Unix
make install gave:
  ...
  ../pod/pod2man: Unknown escape in paragraph 156 of perlvar.pod: ``E<EVMSERR>''
  ...

Jarkko posted a patch for _59 back in Feb (last hunk in
http://www.rosat.mpe-garching.mpg.de/mailing-lists/perl-porters/1998-02/msg01933.html
):

...

p5p-msgid: 9805041415.AA22185@o09.xray.mpe.mpg.de

incorrect return value for hv_iterinit

On Sat, 02 May 1998 16:29:22 EDT, "SynaptiCAD, Inc." wrote:
>While doing so and debugging the wrapper we found an error in the
>hv_iterinit function. It doesn't say in the code, but in
>Srinivasan's "Advanced perl Programming" book he indicates that
>the return value is the number of elements placed in the hash table
>(which seems logical). The error is that the routine is returning xhv_fill
>instead of xhv_keys. There is actually a comment on the line that
>is suggesting this line be changed, but it looks like it never was
>made (at leat not in the latest developer update on CPAN).

It's in now.  In one corner of the repository.

p5p-msgid: 199805031848.OAA20618@aatma.engin.umich.edu

Update MANIFEST for trial 2.
(Porting/Contract lib/Tie/Handle.pm t/op/tiehandle.t)

p4raw-id: //depot/maint-5.004/perl@913

Add t/op/tiehandle.t as xtext to repository (see change 911)

p4raw-id: //depot/maint-5.004/perl@912

 Title:  "Add ERRSV, ERRHV, DEFSV and SAVE_DEFSV for XS 5.005 compatibility"
  From:  timbo@ig.co.uk (Tim Bunce)
Msg-ID:  <199804200854.JAA01482@toad.ig.co.uk>
 Files:  perl.h

 Title:  "Add WRITE & CLOSE to TIEHANDLE"
  From:  Graham Barr <gbarr@pobox.com>
Msg-ID:  <34F63DC8.CA95670F@pobox.com>
 Files:  pod/perltie.pod lib/Tie/Handle.pm pp_sys.c t/op/tiehandle.t

p4raw-id: //depot/maint-5.004/perl@911

[difference between patch application from Change 909 and Change 910]

 Title: "Add warning for Illegal hex digit"
 Files:  util.c

   (applied based on p5p patch as
   b4ee34b7d8ab5b92f2ad7436c47c467977ad1238, this is the difference)

p4raw-link: @909 on //depot/maint-5.004/perl@909: 8b3d696ffd11cf2e49f6eaa575b829ab0a55352d
p4raw-id: //depot/maint-5.004/perl@910

Document changed local($a[$i],$b{$j}) behaviour re delete/splice

Just a quick doc update; I've presumed that given the split discussion
on p5p the original fix will stay around.

p5p-msgid: 01IVMVIHNZ36001NKH@cor.newman.upenn.edu

Fix printf segmentation fault

At 12:52 pm -0400 28/4/98, Ilya Zakharevich wrote:
>Hugo van der Sanden writes:
>> Using 5.004_05t1, the below gives an assertion failure:
>>   for ($i=0; $i<124; ++$i) {
>>       $data{$i}++;
>>   }
>>   foreach (0 .. 123) {
>>       @x = split(" ",undef);
>>       printf("%s%3d %s%6d\n",$x[0],$x[1],$x[2],$_);
>>   }
>> Run inside gdb with '-w /home/hsanden/t0', I get:
>>   Name "main::data" used only once: possible typo at /home/hsanden/t0 line 2.
>>   Use of uninitialized value at /home/hsanden/t0 line 5.
>>   assertion botched: *(unsigned int *)((caddr_t)Perl_op + Perl_op->ovu.ovu_size + 1 - sizeof (unsigned int)) == 0x55555555
>
>For those who have never seen it: This is a memory overrun.  Write was
>performed after an end of the malloced area.

Thanks Ilya - I hadn't seen it before.

I understand, I think, why it is happening: the $x[??] arguments to printf
are being compiled to pp_aelemfast, which pushes on the stack without
bounds checking - the second one exactly fills the stack, so the third
writes past the end; the final $_ is pp_gvsv, which does an EXTEND(sp, 1),
which grows the stack, copying all that it knows about, but leaving a
gap for the past-the-end value - this causes the SEGV when the overwrite
hasn't been trapped by the assertion.

I'm not sure whether AELEMFAST is supposed to EXTEND - if it is, the patch
below will suffice. If not, then presumably room on the stack is supposed
to be guaranteed at the time of generation of the op, which is in
op.c:peep() case OP_GV: I can't see there any attempt to check expected
stack depth.

I can certainly see the value of optimising the printf to something along
the lines of:
  EXTEND SP, 5
  MARK
  CONSTFAST
  AELEMFAST
  AELEMFAST
  AELEMFAST
  SCALARFAST
  PRINTF

.. but I suspect that isn't what 'FAST' is supposed to mean.

Patch is to 5.004_04, and passes all tests (and the above failure case)
here; it might be worth adding the failure case to op/misc.t if it is
at least reasonably likely to fail in the same place in the future - if
so, only the last four lines should be required.

p5p-msgid: l03130300b16bebdbc314@[194.222.64.89]

perl_call_method() bug fix (corrupt op pointer)

[this patch] fixes a bug in perl_call_method().
If "op" was null before a call and then it was set to point to a local
variable "myop" it mast be restored back to null.

p5p-msgid: 510415F72ECFD111A31700A0C9B3CCDE3098@efx98digmasa.bremer-inc.com

Add warning for Illegal hex digit

Ok, here's a real patch for the hex warning from earlier.

Credited: Stephen Potter <spp@psasolar.colltech.com>
Credited: Tim Bunce <Tim.Bunce@ig.co.uk>

p5p-msgid: 199804232219.SAA02267@spp.users.ds.net

"Change Ilya's do_binmode to K&R prototype and move to doio.c"
 Files:  doio.c util.c

p4raw-id: //depot/maint-5.004/perl@909

Fix File::Basename to not untaint results (using new //t flag)

Credited: Tom Phoenix <rootbeer@teleport.com>

p4raw-id: //depot/maint-5.004/perl@907

Runtime Carp verbosity without aliasing

[as previous commit 7670b0aa522aabb98eb031aad22c217b308ccecb, but as
applied]

Runtime Carp verbosity without aliasing

Subject: Carp verbosity

Speaking of Carp, how about this small change?

p5p-msgid: H00000e50003936c@MHS

[core language changes]

 Title:  "5.004_04m5t1: Fix dangling references in LVs", "Fix dangling
         references in LVs"
Msg-ID:  <199804010541.AAA32615@Orb.Nashua.NH.US>,
         <19980422164037.D29222@perl.org>
 Files:  embed.h keywords.h opcode.h perl.h proto.h doop.c global.sym mg.c
         pp.c sv.c

 Title:  "Fix SvGMAGIC typo in change 904"
 Files:  doop.c

p4raw-id: //depot/maint-5.004/perl@906

[difference between patch application from Change 904 and Change 905]

seems like a test accounting disagreement with
42293d100c3b3a50a5b957fd6ecc510157b5de47

p4raw-link: @904 on //depot/maint-5.004/perl: 0af7994b889ad0dfcacb011f16f9e3c77a9292b9
p4raw-id: //depot/maint-5.004/perl@905

Allow but ignore embedded /...(?o).../ in regexp

Subject: [PATCH] Re: Regex weirdness

:    I found some true strangeness in 5.004_04 which doesn't occur in
:5.004_64.  I didn't find any patches which obviously meant to fix it,
:so just in case:
:
:        $string = "aa bb cc";
:
:        foreach ('aa', 'bb', '(?o)aa', 'bb', 'aa', '(?o)aa') {
:            if ($string =~ /($_)/) { print "yes:  $_\n" }
:            else                   { print "no:   $_\n" }
:        }
:
:    produces, in 5.004_04:
:
:        yes:  aa
:        yes:  bb
:        yes:  (?o)aa
:        no:   bb
:        yes:  aa
:        yes:  (?o)aa
:
:    but in 5.004_64, it does the right thing (given that the right
:thing is to ignore (?o) directives)

Patch below makes 5.004_05t1 do that.

:    Can somebody say for sure that the root problem has been
:addressed, or shall I look for more subtle examples?

Depends which root problem - the patch below fixes the problem of
'5.004 doesn't ignore (?o)' (though perhaps it should be ignoring
(?g) as well?). The devel branch solution is rather different since
(as I understand it) it can attach flags to a particular subexpression
of the regexp, so that I believe this:

  /($_)(?:(?o)($_))/ foreach qw( a b );

will match "aa" the first time and "ba" the second. I guess the
'root cause' of the difference between the _05t1 and the _64
behaviour is that the devel branch rightly accepts patches that
the maint branch rightly refuses, and regexps represent an area
of major change in that respect.

[Later] Nope, I was wrong: the above code matches "aa" and "bb" in
5.004_64. I guess that because /o wasn't set on the top level, it
has already thrown away the old compiled regexp before it might
have got as far as seeing /o on the subexpression.

[Even later]
There seems to be an additional oddity with the 5.004_05t1 status
quo, since this:

  foreach $a (qw(a b)) { foreach $b (qw(a b)) {
    printf "$a$a =~ $b$b: %s\n", (("$a$a" =~ /$b((?o)$b)/) ? 'yes' : 'no');
  }}

prints this:

  aa =~ aa: yes
  aa =~ bb: aa
  bb =~ aa: bb
  bb =~ bb: bb

.. so looking for more subtle examples might still be fruitful. With the
below patch the above code prints the same results as 5.004_64, matching
yes/no/no/yes.

p5p-msgid: 199804201243.OAA08244@dorlas.elsevier.nl

Don't accidentally untaint target of s///

Good news and bad news.

Good news: This patch seems to fix the bug.

Bad news:  I can't get a test into taint.t that reliably fails
           under 5.004_04.  My only good test is a small program:
            $ perl -T -e 'my $x = $^X; $x =~ s/e/e/; join("",$x), kill 0'
           Something reliable and appropriate for taint.t would
           be greatly appreciated.

p5p-msgid: 19980310151756.24767@cyprus

New regex flag //t to leave $1 etc. tainted

This patch adds the Tim-originated //t flag to leave $1 etc. tainted.
This should be forward-ported to the development track (_6*); I'm not
set up for that right now, so maybe someone else could do it.  It'll
be easier if you apply my other recent taint-related patches first.

(This patch was drop-dead easy; the hardest part was finding another
flag bit for PMOPs.)

Credited: Tim Bunce <Tim.Bunce@ig.co.uk>

p5p-msgid: 19980310192640.37826@cyprus

[difference between patch application from Change 897 and Change 904]

 ------  CORE LANGUAGE  ------

 Title:  "Protect join() against double reads on undef and SvGMAGICALs"
  From:  Chip Salzenberg <chip@perlsupport.com>, Tim Bunce
         <Tim.Bunce@ig.co.uk>
Msg-ID:  <19980424080630.D13985@perl.org>
 Files:  doop.c

 Title:  "fixes for various noises under PERL_DESTRUCT_LEVEL"
  From:  Gurusamy Sarathy <gsar@engin.umich.edu>
Msg-ID:  <199804231926.PAA23969@aatma.engin.umich.edu>
 Files:  perl.c

 Title:  "Fix nice_chunk memory leak"
  From:  Gurusamy Sarathy <gsar@engin.umich.edu>
Msg-ID:  <199804052347.TAA15699@aatma.engin.umich.edu>
 Files:  sv.c

 ------  DOCUMENTATION  ------

 Title:  "perlcall is Perl from C, not C from Perl"
  From:  Steve A Fink <sfink@cs.berkeley.edu>
 Files:  pod/perlembed.pod

 Title:  "(repost) new text for perlsec", "new text for perlsec"
  From:  Tom Phoenix <rootbeer@teleport.com>
Msg-ID:  <Pine.GSO.3.96.980423161605.5518N-100000@user2.teleport.com>
 Files:  pod/perlsec.pod

 ------  EXTENSIONS  ------

 Title:  "NDBM_File man page needs Fcntl"
  From:  "Danny R. Faught" <faught@mailhost.rsn.hp.com>
Msg-ID:  <199707011500.IAA00601@palrel3.hp.com>
 Files:  ext/NDBM_File/NDBM_File.pm

 ------  LIBRARY  ------

 Title:  "Documentation discrepancy: pragmatic modules"
  From:  "M.J.T. Guy" <mjtg@cus.cam.ac.uk>, h.sanden@elsevier.nl (Hugo van der Sanden)
Msg-ID:  <199804221525.RAA12695@dorlas.elsevier.nl>,
         <E0ySPhk-00034f-00@taurus.cus.cam.ac.uk>
 Files:  lib/strict.pm lib/subs.pm lib/vars.pm

 ------  PORTABILITY - GENERAL  ------

 Title:  "Updated hints file for svr4"
  From:  Andy Dougherty <doughera@lafcol.lafayette.edu>
Msg-ID:  <Pine.SUN.3.96.980423110522.26621A-100000@newton.phys>
 Files:  hints/svr4.sh

 Title:  "Pumpkin update -- shared libperl.so location"
  From:  Andy Dougherty <doughera@lafcol.lafayette.edu>
Msg-ID:  <Pine.SUN.3.96.980424115837.6222A-100000@newton.phys>
 Files:  Porting/pumpkin.pod

 ------  UTILITIES  ------

 Title:  "Major update to h2ph.PL"
  From:  Billy <wdconsta@cs.adelaide.edu.au>
Msg-ID:  <Pine.SV4.3.93.980424031837.20782A-200000@ermintrude.teaching.cs.adelaide.edu.au>
 Files:  utils/h2ph.PL

p4raw-link: @897 on //depot/maint-5.004/perl: f06f9b6fc5a686f0169ee2a91b32d5e7125a44ae
p4raw-id: //depot/maint-5.004/perl@904

Dynaloader build on VMS

Funny - I had intended to submit a patch against _04 to fix
File::Path::mkpath() which had a nasty problem (especially on VMS).
A closer look at the 04-m1 source revealed that the necessary
change is already in there (thanks!).

I did, however, encounter build troubles on VMS one of which involved
the new save_helem() and save_aelem() in pp.c pp_hot.c not having
prototypes.  I hand applied the proto.h fix from Gurusamy Sarathy in:

  http://www.rosat.mpe-garching.mpg.de/
    mailing-lists/perl-porters/1998-03/msg00469.html

and got further along to:

MCR Sys$Disk:[]miniperl.exe "-I[.lib]" ConfigPM.
Create/Directory [.lib.VMS_AXP.5_00404]
%CREATE-I-EXISTS, [.LIB.VMS_AXP.5_00404] already exists
Copy [.LIB]CONFIG.PM [.LIB.VMS_AXP.5_00404]CONFIG.PM
%MMS-F-GWKNOPRN, There are no known sources for the current target [.EXT.DYNALOADER]DYNALOADER.PM.

Unfortunately the .PL-ification of Dynaloader.pm was not accounted for
in the VMS Makefile.  The enclosed patch to vms/descrip.mms fixes that.

I realize that there have been many patches to vms related files recently,
perhaps including vms/descrip.mms.  Unfortunately I have not had the time
to check if this change was already suggested and/or incorporated into
the archive (though I did search the p5p and vmsp archives at
www.rosat.mpe-garching.mpg.de for the string '_pl' but saw nothing relevant
to vms).  Apologies to the pumpking for any inconvenience (and
congratulations on the new baby :-).

Credited: Tim Bunce <timbo@ig.co.uk>

p5p-msgid: 9804250212.AA27695@forte.com

perl compile fix for AIX 4.3

Perl does not compile under AIX 4.3 due to two problems. First,
in an attempt to make the DNS resolver thread safe h_errno is
not a simple variable any more, it is a define. This causes the
definition in pp_sys.c to fail. Second the XCOFF header files
remove some useful definitions that the dynamic loader in dl_aix.xs
did rely upon. The following is a patch that fixes both problems.

p5p-msgid: 199804261611.SAA34728@ans.helios.de

IO::Socket->socketpair broken (typo)

An obvious typo makes IO::Socket->socketpair() return bogus results.
Here's the patch:

p5p-msgid: 19980425224535.2807.qmail@bigred.inka.de

Clarify require "Foo::Bar" non-bareword issue

Subject: require doc problem patch

Since I was red with shame because I didn't eyeball the FM enough to
spot the "bareword" part with the require function, I'm providing a patch
to the perlfunc man to clarify this problem that
was discussed heavily on perl5porters list.

Here we go :

p5p-msgid: 199804231527.AA153445256@ss7serv.grenoble.hp.com

perl.c fixes for -DUNEXEC

I have sucessfully snagged unexelf.c from GNU emacs-20.2 and included it
w/ perl and -DUNEXEC to get "perl -u" to work.  I'm a happy camper.

Included are the fixes required.

p5p-msgid: 199710152146.OAA07283@mr-ed.jpl.nasa.gov

-2.0 vs. -2 (was Number representations)

According to Ilya Zakharevich:
> Tuomas Lukka writes:
> > Still, the fact that the differenct between {-2 and -2.0} and
> > {2 and 2.0} is not the same is disconcerting...
>
> Much more, it is a bug.  The feature that *constants* 2 and 2.0 mean
> different things in Perl was added by Larry per my request, to make
> Math::PARI possible.  Now Math::PDI (sp?) uses this too.

Under the assumption that Larry really does want them different, this
patch should serve:

Credited: Chip Salzenberg <chip@atlantic.net>

p5p-msgid: 19980309185652.11231@cyprus

Better error message for require failure

*sigh* try three. Incorporates the suggestion by Sarathy to drop the 'the' in
'locate the file', and correct a braindead mis-syncronization error in the last
patch.

Never has there been so much grief over two words of plain text...

p5p-msgid: 199804240047.SAA24155@den-mdev1.co.csgsystems.com

[difference between patch application from Change 896 and Change 897]

 ------  CORE LANGUAGE  ------

 Title:  "fix for "Unbalanced string table refcount""
  From:  Gurusamy Sarathy <gsar@engin.umich.edu>
Msg-ID:  <199804042251.RAA25527@aatma.engin.umich.edu>
 Files:  sv.c

   (applied based on p5p message as 45b0f2da05a0069bf1df601ff96ee525f651b435)

 Title:  "Add fourth arg to substr: substr EXPR,OFFSET,LEN,REPLACEMENT"
  From:  Gisle Aas <gisle@aas.no>
Msg-ID:  <m3g1jglqtm.fsf@furu.g.aas.no>
 Files:  pod/perlfunc.pod Todo opcode.pl pp.c t/op/substr.t

 Title:  "Odd number of elements in hash list."
  From:  Tom Phoenix <rootbeer@teleport.com>
Msg-ID:  <Pine.GSO.3.96.980328151929.29336D-100000@user2.teleport.com>
 Files:  MANIFEST pod/perldiag.pod pp.c pp_hot.c t/op/hashwarn.t

   (applied based on p5p message as 4e6dd09136b96d3e6f8fc8cf5af2dc3e32c65eec)

 Title:  "bidirectional pipe warning blues"
  From:  pmarquess@bfsec.bt.co.uk (Paul Marquess)
Msg-ID:  <9804082151.AA20399@claudius.bfsec.bt.co.uk>
 Files:  doio.c

   (applied based on p5p message as 610d1f920220f1a98002175088e769d3d561e68a)

 Title:  "warning for: bless $foo, """
  From:  Joshua.Pritikin@NewYork2.dmg.deuba.com
Msg-ID:  <H00000e5000378a0@MHS>
 Files:  pod/perldiag.pod pp.c

 ------  DOCUMENTATION  ------

 Title:  "long list of man page nitpicks"
  From:  Greg Bacon <gbacon@mickey.cs.uah.edu>, Tom Christiansen
         <tchrist@jhereg.perl.com>
Msg-ID:  <199804221844.NAA08338@pluto.cs.uah.edu>,
         <199804222204.QAA20805@jhereg.perl.com>
 Files:  pod/perlapio.pod pod/perlcall.pod pod/perldebug.pod pod/perldelta.pod
         pod/perldiag.pod pod/perlembed.pod pod/perlfaq2.pod
         pod/perlfaq3.pod pod/perlfaq4.pod pod/perlfaq5.pod
         pod/perlfaq7.pod pod/perlfaq8.pod pod/perlform.pod
         pod/perlfunc.pod pod/perlguts.pod pod/perlipc.pod
         pod/perllocale.pod pod/perlmodlib.pod pod/perlop.pod
         pod/perlre.pod pod/perlref.pod pod/perlrun.pod
         pod/perlstyle.pod pod/perlsub.pod pod/perlsyn.pod
         pod/perltoot.pod pod/perlvar.pod pod/perlxs.pod
         pod/pod2man.PL

   [one change was applied as
    d340c03c5edfa005a10d99f0986879c79286ca07]

 Title:  "document that system() does not set $! when it fails"
  From:  "Mark R. Levinson" <mrl@isc.upenn.edu>
Msg-ID:  <199803011946.OAA31942@anaximander.dccs.upenn.edu>
 Files:  pod/perlfunc.pod

 Title:  "Fix pod/roffitall execute permission"
  From:  lvirden@cas.org
Msg-ID:  <1997Nov17.132031.2589892@cor.newman>
 Files:  pod/roffitall

 Title:  "document when split ignores trailing empty fields"
  From:  Hugo van der Sanden <hv@crypt0.demon.co.uk>
Msg-ID:  <l03130300b14fac832b77@[194.222.64.89]>
 Files:  pod/perlfunc.pod

 ------  EXTENSIONS  ------

 Title:  "Buglet in Opcode.pm documentation"
  From:  Horst von Brand <vonbrand@sleipnir.valparaiso.cl>
Msg-ID:  <199804170349.XAA32445@sleipnir.valparaiso.cl>
 Files:  ext/Opcode/Opcode.pm

   (applied based on p5p message as eff8350db965b7b9ea400107c5d354b9651e0a46)

 Title:  "Failure to append to perllocal.pod should not be fatal"
  From:  koenig@kulturbox.de (Andreas J. Koenig)
Msg-ID:  <sfciuogy67x.fsf@dubravka.in-berlin.de>
 Files:  lib/ExtUtils/MM_Unix.pm

 ------  PORTABILITY - GENERAL  ------

 Title:  "Add Social Contract (2nd Draft) as Porting/Contract"
  From:  Russ Allbery <rra@stanford.edu>
Msg-ID:  <m3btw66n8i.fsf@windlord.Stanford.EDU>
 Files:  Porting/Contract

 Title:  "VMS patches to 5.004_03"
  From:  Charles Bailey <BAILEY@newman.upenn.edu>
Msg-ID:  <01IVYJS0L8D200209B@cor.newman.upenn.edu>
 Files:  vms/vms.c

 Title:  "hints/netbsd.sh - enable vfork"
  From:  Andy Dougherty <doughera@lafcol.lafayette.edu>
Msg-ID:  <Pine.SUN.3.96.980417110749.19327B-100000@newton.phys>
 Files:  hints/netbsd.sh

p4raw-link: @896 on //depot/maint-5.004/perl: 0562b9ae2b0eff79632fc0164c13c34c06a019e2
p4raw-id: //depot/maint-5.004/perl@897

support find2perl -follow

it's been tried before by better people than i, i'm sure, but here's a
patch for find2perl (well, find2perl.PL) that implements the -follow
option; i tested it very *very* trivially, and it seemed to work (it gave
the same output as "find -follow" anyway)...

how it works:

we have a hash (%already_seen) which stores which files we've seen (it
uses "$dev,$ino" as the hash key - that's unique for each file, i figure),
but only records it in the hash if the file we're looking at isn't a
directory (that what find seems to do)... also, all lstat() calls become
stat() calls with -follow... no doubt the special case "-follow -type l"
should be considered, but i didn't think of it at the time... anyway,
enjoy...

p5p-msgid: Pine.SV4.3.93.980408005903.24081A-100000@ermintrude.teaching.cs.adelaide.edu.au

Config: Irix 5 hints

cc under Irix 5 needs a bigger kick in the pants to optimize toke.c:

p5p-msgid: 199804061712.NAA22823@O2.chapin.edu

win32 tweaks (signals and crypt support)

This clears up a couple of problems in trial1:
   - reinstates common signals to avoid noises from libraries
   - build support for enabling crypt() was busted

p5p-msgid: 199804170505.BAA06413@aatma.engin.umich.edu

ptags broken

Note that whoever changed the style of declaration of global variables
did not fix emacs/ptags.

Patch follows,
Enjoy,

p5p-msgid: 199804120208.WAA29264@monk.mps.ohio-state.edu

ormaments method in Term/ReadLine.pm causes warning with string arg.

p5p-msgid: 199804061519.AAA21907@mail.fb3.so-net.ne.jp

lib/Pod/Html.pm

Perl5 Porters,

The lib/Pod/Html.pm patch below reduces weblint errors and warnings of
pod2html output by an order of magnitude.  Some highlights (by line):
  16     use Config for $Config{perladmin} later
  20     s/Pod::HTML/Pod::Html/
  24     s/Pod::HTML/Pod::Html/
 305     $title =~ s/\s+$//
 319-21  Remove parenthetical clause from $title
 331     Add <LINK REV="made" HREF="mailto:$Config{perladmin}"> to head
 374     s/\s+$// from =head[1-6] heading
 376     s/\s+$// from =item text
 397     Move <P> before $text
 786     Escape ["&<>] in $title
 860     Escape ["&<>] in $convert
 903-13  Fix <UL> bullet lists
 922-32  Fix <OL> numbered lists
 941-51  Fix <DL> definition lists
1126     Fix $rest == 0 (q.v. perlembed.pod C<0>, perllocale.pod I<0>)
1284-87  Convert e-mail addresses beautifully (q.v. perltoc CREDITS)
1289     Escape " in $word too
1292     Escape " in $word too
1436     Escape ["&<>] in $str
1506     Avoid trailing </DL>

Also, I think the stanza at lines 1288-90:
} elsif ($word !~ /[a-z]/ && $word =~ /[A-Z]/) {  # all uppercase?
    $word = html_escape($word) if $word =~ /["&<>]/;
    $word = "\n<FONT SIZE=-1>$word</FONT>" if $netscape;
should be changed for the following reasons:
1) It shrinks one-letter words (e.g. A and I)
2) It is English-specific (Merkin hegemony!)
3) It introduces Netscape-specific HTML

p5p-msgid: 199710170718.DAA25472@staff1.cso.uiuc.edu

chat2.pl fix

This patch came from one of the VMSPerlers, and seems generally
applicable.

p5p-msgid: 01IVMVF507PO001NKH@cor.newman.upenn.edu

Comments added to Carp.pm

I've added a bunch of comments to Carp.pm, partly in an effort to
better help me understand what's going on and also in response to a
question for such an annotated Carp.pm on c.l.p.misc.

No changes to the code or user documentation have been made which
makes it a pretty boring patch really.  Here it is all the same.

Credited: Chip Salzenberg <chip@perlsupport.com>
Credited: Tom Christiansen <tchrist@jhereg.perl.com>

p5p-msgid: 980409182357.ZM21638@bandanna

Benchmark.pm: add run-for-some-time mode

Release III.

p5p-msgid: 199804080647.JAA15136@alpha.hut.fi

glibc2.0.6 missing MSG_* <sys/socket.h> defines.

This is a patch suitable for the maintenance track; a similar patch
is already in 5.004_64, but that version relies on a config.h variable
HAS_GNULIBC that is not available in 5.004_04.  This version uses
__GLIBC__, which ought to be perfectly fine.

In glibc2.0.6 systems, the various MSG_* #defines in <sys/socket.h>
are no longer #defines.  Instead, they are enums.
I have received confirmation (bug libc/545) that they will again be
#defined in 2.0.7, but I suspect that we ought to expect to
encounter 2.0.6 and the various 2.0.7-prereleases for quite a while.

p5p-msgid: Pine.SUN.3.96.980406113950.3166L-100000@newton.phys

Install extensions with bootstrap (again) in $archlib

Fixes the problem I've reported in

http://www.rosat.mpe-garching.mpg.de/mailing-lists/perl-porters/1998-03/msg01297.html

Now files in blib/lib gets (again) installed into the architecture depended
library tree if there are files in blib/arch.

I've tested the patch with 5.004_64 on Digital Unix.  Patch should also
be okay for 5.004_05mt1 (no build out of the box here so I just has a look
at ExtUtils/Install.pm source).

Credited: Andreas J. Koenig <koenig@kulturbox.de>

p5p-msgid: 9804061909.AA12675@o09.xray.mpe.mpg.de

Document that IO.pm does not load IO::Select etc

This is the change I have put in the IO distribution.

p5p-msgid: 353B48F1.64E35A63@ti.com

Buglet in Opcode.pm documentation

Patch tells all:

p5p-msgid: 199804170349.XAA32445@sleipnir.valparaiso.cl

long list of man page nitpicks

In message <199804221620.RAA05691@toad.ig.co.uk>,
    Tim Bunce writes:
: I'd be very grateful if someone could convert this into a patch (diff)
: file that I could apply to the docs.

I know Tom keeps the perlfaq stuff under his own revision control, so
I've done the perlfaq patch separately.

I didn't address trigraphish comments or breaking on dashes.

Credited: Tom Christiansen <tchrist@jhereg.perl.com>

p5p-msgid: 199804221844.NAA08338@pluto.cs.uah.edu
private-msgid: 199804222204.QAA20805@jhereg.perl.com

fix-up of previous perlre.pod patch

Thus it was written in the epistle of Hugo van der Sanden,
> Subject:     Re: [PATCH] perlre.pod
> Sent:        3/3/98 1:14 am
> To:          Ted Ashton, ashted@southern.edu
>
> >+use this for lookbehind.  If you are looking for a "bar" which isn't
> preceeded
> >+"foo", C</(?!foo)bar/> will not do what you want.  That's because
>
> s/preceeded/preceded/
> s/"foo"/by a "foo"/
>
> Hugo
>

Ah, quite true.  Here's another with the above fixed and with the paragraph
split into two.

p5p-msgid: 199803031540.KAA09388@ns.southern.edu

Mention SWIG in perlxs.pod

Subject: Embedding perl, was Re: RULING: while ($x = <>)

On Wed, 8 Apr 1998 fsg@ultranet.com wrote:

> 1.  Embedding perl usefully is very hard.  As documented in Gisle's
> web page, the internal data structures are arcane and have many subtle
> special cases -- and you have to know a large quantity of them in order
> to do even minor gluing.  As a result, the barrier to entry is steep.

What he said.

This isn't a comprehensive solution, but from I've seen of SWIG, it seems
to be extremely useful for at least the minor glue cases. Perhaps the
perlembed and/or perlxs pods should point to SWIG?

A doc patch to mention SWIG is included below. (Note that I have far too
little real experience with using SWIG to know how appropriate this is.
It's just worked, and worked well, for everything that I wanted so far.)

In the best of worlds, both the perl core implementation and XS would be
cleaned and simplified. Not easy tasks.

p5p-msgid: Pine.HPP.3.96.980408154956.20990K-100000@brooksie.CS.Berkeley.EDU

unimplemented umask() should return undef not die

Subject: [PATCH] umask() does not match Camel

umask() behavior is not consistent with the Camel; see, e.g., symlink()'s
documentation, which suggest nesting the call in an eval { }.  This patch
(against 5.004_62) corrects the discrepancy, won't break one-liners, and
clarifies the mud somewhat:

p5p-msgid: 199803120515.VAA08660@chapin.edu

stale pointers after realloc (MEXTEND in pp_print and pp_prtf)

Gurusamy Sarathy writes:
> The compiler builds (after a few changes to the Makefile).
> At some point xsubpp dumped core while generating
> Makefile from Makefile.PL.  It would seem there is a bug to be
> fixed in perl.  (I temporarily got around this by changing
> C<print @InitFileCode> to C<print join "", @InitFileCode>
> in xsubpp.)

[cc'ed to perl5-porters]

I ran across exactly that symptom in December. It turned out to be a
very hard-to-find bug which I fixed in:

    Change 361 on 1997/12/12 by mbeattie@localhost

    pp_print and pp_prtf handling of tied file handles used EXTEND
    instead of MEXTEND leading to core dumps. This fix needs
    propagating back to the maintenance branch.

After fixing it, I did a check to see if anything else was doing an
extend and then using a cached MARK but didn't see anything. Are you
sure the latest perl still causes the problem?

p4raw-link: @361 on //depot/perl: 0da8b9e680048dc3905038cf517a053580d0b299
p5p-msgid: 199801191107.LAA17979@sable.ox.ac.uk

bidirectional pipe warning blues

When Perl detects the use of a bidirectional pipe it will warn about it
(if warnings are enabled) and silently turn it into a writeable pipe.

For example once perl is finished with this bit of code

    open (F, "| true |") ;

it will actually send "true |" to the shell for execution.

On my SunOS box this isn't a problem. Unfortunately Linux which uses
bash is another story.  It spits out this warning

    sh: -c: line 2: syntax error: unexpected end of file

Here is a patch to shut up the warning by zapping the terminating "|".

p5p-msgid: 9804082151.AA20399@claudius.bfsec.bt.co.uk

another destruct_level fix

On Mon, 30 Mar 1998 23:47:55 +0200, Jan-Pieter Cornet wrote:
>Another fix to prevent coredumps when running with an increased
>destruct_level:
  [...]
>I believe that this fixes a typo or thinko of the original coder.

That's not accurate, I'm afraid.

>                                                                 Could the
>guilty party please stand up and confess in shame, or, in case I'm wrong,
>flame me for ruining their artistically crafted code and present the
>proper fix while doing so?

The HeVAL() slot of the string table contains a reference count (which
is not an IV for efficiency reasons).  The right value to signify a
reference count of zero is Nullsv, not &sv_undef.

At the time that code was written, hv_free_ent() didn't expect
HeVAL(entry) to contain a valid SV.  Someone changed that assumption.

>                          (I know that HeVAL of a HE in the strtab shouldn't
>contain an SV*, but hv_free_ent can't stand non-SV* values there, and
>I didn't know a better fix. This probably leaks hek_key[]s, but then again,
>that's the whole purpose of this code, to detect those leaks).

The "right" fix is to patch hv_free_ent() with:

p5p-msgid: 199804030105.UAA04400@aatma.engin.umich.edu

Odd number of elements in hash list.

On Thu, 26 Mar 1998, Ed Jordan wrote:

> Perl should probably give a more specific warning where a hash is
> initialised with a single element which is a hash-ref,

Okay. :-)

This patch changes the text of the warning given when warnings are on and
a hash is initialized with a single element which is either a hashref or
arrayref, typically like this.

    %hash = { qw/ I used curlies instead of parens / };
    %hash = [ qw/ This mistake is somewhat less common / ];

(At the same time, I've exorcized the oxymoron "hash list" from the
diagnostics.)

It should be okay to add to the _05 release, since it's not a _new_
warning, just a change in the text of the existing one.

p5p-msgid: Pine.GSO.3.96.980328151929.29336D-100000@user2.teleport.com

Allow more lenient switch processing

This patch fixes two things:

1. scripts beginning with #! that mention perl on the first line
   and have a -i flag stop reading flags after the -i.  So,
#!   perl -iorig -nl
   won't see the -nl

2. On AIX (shudder), scripts that start like #!/bin/perl -l -n -s
   and are executed directly die with
Unrecognized switch: - -n -s  (-h will show valid options).
   This is because on AIX, what gets run is
/bin/perl '-l -n -s' <script_name>

   I don't think it does any harm to allow args like '-l -n -s', with
   single blanks between flags to be valid, since presently they
   aren't.  Two blanks between switches ends switch processing.
   But perhaps it shouldn't.  Another thing that really bothers me
   is the double switch processing that goes on with #! lines: first
   when argv is scanned and again when the #! line is scanned.  It
   really shouldn't happen, and can cause unexpected results.  Toke.c
   should probably skip over the first part of the #! line that
   exactly matches argv[1].  I think that was Chip's idea from a
   while back.

The patch does _not_ fix the error msg that results from

#!/bin/perl -z

Can't emulate -z on #! line at /tmp/t line 1.

This msg should be "Invalid option -z on #! line ...", but I presume
other valid options can't be emulated on the #! line, hence this msg.
I'm a bit confused by the split option handling duties shared by the
reswitch code and the moreswitches sub in perl.c, so I'm not sure what
the right thing to do is.  It looks like moreswitches is mainly for
#! line flag processing, but does double duty for argv switch processing.
I considered making moreswitches take an additional arg that tells it
whether it's doing argv or #! processing, but became lazy: but in a
bad way :)

[ This morass of switch processing code should be rewritten, IMOSVHO.
  And much better commented. ]

p5p-msgid: 199803251638.LAA22664@gateway.grumman.com

fix for "Unbalanced string table refcount"

There was a hole in the refcounting of GvSTASH(), illustrated by
this testcase (run under PERL_DESTRUCT_LEVEL=1):

   $bar = *a; $foo = *bar; $bar = *foo; $bar = ""; $foo = "";

defstash is never destroyed as a result of this, and the
the string-table remains populated till the very end.

Now the testsuite should run clean under PERL_DESTRUCT_LEVEL
except for the two "Scalars leaked" messages.

p5p-msgid: 199804042251.RAA25527@aatma.engin.umich.edu

[inseperable changes between Change 887 and Change 896]

 Assorted patches:

 ------  CORE LANGUAGE  ------

 Title:  "Fix semctl for Linux, Sun and SVR4"
  From:  Graham Barr <gbarr@ti.com>, lvirden@cas.org (Larry W. Virden, x2487)
Msg-ID:  <3484247D.BB036D39@ti.com>, <9712021313.AA11495@cas.org>
 Files:  doio.c

 Title:  "C<dSP> entails using C<SP>, not C<sp>"
  From:  Gurusamy Sarathy <gsar@engin.umich.edu>
Msg-ID:  <199803070149.UAA12217@aatma.engin.umich.edu>
 Files:  pod/perlcall.pod pod/perlembed.pod pod/perlguts.pod pod/perlxs.pod
         doio.c doop.c ext/DB_File/DB_File.xs
         ext/DynaLoader/dl_dld.xs ext/Opcode/Opcode.xs
         ext/POSIX/POSIX.xs ext/Socket/Socket.xs gv.c
         lib/ExtUtils/typemap mg.c os2/OS2/REXX/REXX.xs
         win32/win32.c

 Title:  "Misleading error on close of unopened handle"
  From:  "M.J.T. Guy" <mjtg@cus.cam.ac.uk>
Msg-ID:  <E0y4R07-0003PH-00@ursa.cus.cam.ac.uk>
 Files:  doio.c

 Title:  "h_errno might not be an int"
  From:  Andy Dougherty <doughera@lafcol.lafayette.edu>
Msg-ID:  <Pine.SUN.3.96.980325165059.22255D-100000@newton.phys>
 Files:  pp_sys.c

 Title:  "SEGV compiling localised lexical in perl5.004_05t1"
  From:  Gurusamy Sarathy <gsar@engin.umich.edu>, h.sanden@elsevier.nl (Hugo
         van der Sanden)
Msg-ID:  <199803171530.QAA24053@dorlas.elsevier.nl>,
         <199803171727.MAA05234@aatma.engin.umich.edu>
 Files:  op.c t/op/misc.t

 ------  LIBRARY AND EXTENSIONS  ------

 Title:  "Cwd.pm: abs_path() and fast_abs_path() plus code merge"
  From:  Graham Barr <gbarr@ti.com>
Msg-ID:  <3482F365.4A0486BA@ti.com>
 Files:  lib/Cwd.pm

 Title:  "efficient version of strict.pm"
  From:  koenig@anna.mind.de (Andreas J. Koenig)
Msg-ID:  <sfcpvonhdnc.fsf@anna.in-berlin.de>
 Files:  lib/strict.pm

 Title:  "Socket occasional SEGV in pack_sockaddr_un"
  From:  Trevor Blackwell <tlb@viaweb.com>
Msg-ID:  <199710281804.NAA09632@wagg.viaweb.com>
 Files:  ext/Socket/Socket.xs

p4raw-link: @887 on //depot/maint-5.004/perl: 6cdf74fe31f049dc2164dbb9e6242179d4b8ee1f
p4raw-id: //depot/maint-5.004/perl@896

Fix bug in locale.t

I am oh _so_ ashamed.

p5p-msgid: 199801042148.XAA08599@alpha.hut.fi

fix various problems with backticks on win32

Several people have complained that qx// misbehaves on win32.
It doesn't honor PERL5SHELL (like the docs claim), and it
wants to start a shell even when it doesn't need to.  This
patch fixes such problems by providing our own popen()/pclose().

p5p-msgid: 199803070705.CAA15945@aatma.engin.umich.edu

mv-if-diff

There is a bug with mv-if-diff which is fixed by the following patch.

At the moment, this bug is hidden because all calls to mv-if-diff
are "sh mv-if-diff tmp ..." !

p5p-msgid: 14572.9803271806@tempest.cise.npl.co.uk

'use Env' on WinNT/95 fails

On Wed, 25 Mar 1998 14:22:54 GMT, Lewis Tsao wrote:
>Given the following:
>
>        use Env;
>
>Perl reports error saying:
>
>Modification of a read-only value attempted at C:\PERL\lib/vars.pm
>line 48.
>BEGIN failed--compilation aborted at (eval 1) line 2.
>BEGIN failed--compilation aborted at ....
>
>I think the problem here is 'keys(%ENV)' in env.pm picks up empty
>values resulting in empty variable '$ '. This does not appear to
>happen under Unix.
>
>A work round appears to ignore empty '$sym' in vars::import inside
>the foreach loop.

This fix should be applicable to the maintenance branch as well.

p5p-msgid: 199803280511.AAA15933@aatma.engin.umich.edu

Allow POSIX to export nice()

Subject: Re: initgroups() and setgroups() for POSIX.pm

[...], nice() is in POSIX.pod and POSIX.xs, but not in POSIX.pm
so you can't easily import it.  Ridiculously trivial patch:

p5p-msgid: eclg1kf5yf0.fsf@ws010.dp.intel.com

bug in Class::Struct

I am detached from the net and am consequently unable to test the
following situaton with any later releases, but at least under 5.004_01,
the Class::Struct module has a brief but critical bug.  It isn't testing
against the proper class when assigning to a structure element that is
a class.

This can be demo'd in the following pair of samples.  This one worked ok:

    use Class::Struct qw(struct);
    my($folks, $dad);
    struct Person => [name => '$', age  => '$'];
    struct Family => {head => 'Person', homes => '@'};
    $folks  = 'Family'->new();
    $dad    = $folks->head;
    $dad->name("John");
    $dad->age("34");
    printf("%s's age is %d\n", $folks->head->name, $folks->head->age);

But this one blows up:

    use Class::Struct qw(struct);
    my($folks, $dad);
    struct Person => [name => '$', age  => '$'];
    struct Family => {head => 'Person', homes => '@'};
    $folks  = 'Family'->new();
    $dad    = 'Person'->new();
    $dad->name("John");
    $dad->age("34");
    $folks->head($dad);
    printf("%s's age is %d\n", $folks->head->name, $folks->head->age);

The following one-word patch fixes the problem.

p5p-msgid: 199803290814.KAA05699@toy.perl.com

Warning on mis-use of 'use lib'

It's too common for someone to mis-use 'use lib' something like this:

    use lib '/home/mydir/.lib/CGI.pm';

Thus this patch. Cheers!

Credited: M.J.T. Guy <mjtg@cus.cam.ac.uk>
Credited: Chip Salzenberg <chip@atlantic.net>

p5p-msgid: Pine.GSO.3.96.980126192445.22284N-100000@user2.teleport.com

File::Find rewrite

This combines find and finddepth into one function.  The main advantage
is that this change allows addition of other configuration options (when
I posted an experimental patch earlier people found 8-10 different options
they wanted from find) except "bydepth" at later time.

Additional advantage is that this merge simplifies maintainance by reducing
number of mostly identical code.

Additionally, with this patch Config.pm and File::Basename will be required
only if needed.

Here is the speed comparison: on test runs over a directory with 65000
files in 4300 subdirectories the deviation of runtime (either with or
without the patch, after 3 runs to suck all into HD cache) was +-0.5%,
and the slowdown after the patch is applied is circa 1%, so the

p5p-msgid: 199803052344.SAA01008@monk.mps.ohio-state.edu

Math/BigInt.pm, fixed use of undefined value.

With -w, Math::BigInt spits out warning under certain conditions
about use of undefined values, when adding/subtracting numbers.
Here's a patch. (Against 5.004_04).

p5p-msgid: 19980313052452.27365.qmail@betelgeuse.wayne.fnx.com

unpacking negatives on Alpha

 >  > (0) ~ > perl -e 'print unpack("i",pack("i",-1)),"\n"'
 >  > 4294967295
 >  > (0) ~ >
 >  > Should print -1.
 >
 > Looks like an optimizer bug of Digitals GEM based cc.  Compiling
 > pp.c with no optimization

Here's the start of my personal history working around optimizer
bugs (not counting switching off -O).  Patch against 5.004_04.

o09(0) ~/data9/perlsrc/5.004_04/standard/t > perl op/pack.t | tail -2
ok 29
not ok 30
o09(0) ~/data9/perlsrc/5.004_04/standard/t > ../perl op/pack.t | tail -2
ok 29
ok 30
o09(0) ~/data9/cpan/build/C-DynaLib-0.51/DynaLib > perl test.pl
1..3
ok 1
ok 2
not ok 3; expected "[-65 5000000000 string]", got "[4294967231 5000000000 string]"
o09(0) ~/data9/cpan/build/C-DynaLib-0.51/DynaLib > ~/data9/perlsrc/5.004_04/standard/perl test.pl
1..3
ok 1
ok 2
ok 3

Still no little test case for Digitals Hot Line.  Maybe next time.

p5p-msgid: 9710201503.AA24797@o09.xray.mpe.mpg.de

two trivial tweaks to 5.004m5t1

p5p-msgid: 199803060553.AAA28461@aatma.engin.umich.edu

Tainting propagates from nowhere

On Thu, 12 Mar 1998 13:47:16 EST, Chip Salzenberg wrote:
>> ---------- Forwarded message ----------
>> Date: Thu, 9 Oct 1997 10:47:28 -0700 (PDT)
>> From: Tom Phoenix <rootbeer@teleport.com>
>> To: perlbug@perl.com
>> Subject: Tainting propagates from nowhere
>>
>>     $ perl -Tw
>>     sub wazzat { substr "@_", 0 }
>>     wazzat $0; # $0 is tainted
>>
>>     kill 0, wazzat(); # This shouldn't be
>>     <Ctrl-D>
>>     Insecure dependency in kill while running with -T switch at - line 4.

This is due to the reuse of TARG _within_ an op. vec() also suffers from
it. Other ops may have the problem also, but I haven't gone looking.  Of
course, since the problem is a conservative one ("too much paranoia"),
there's no cause for alarm.

p5p-msgid: 199803140411.XAA09343@aatma.engin.umich.edu

Statement unlikely to be reached warning

ldrop@wall.org (Larry Wall) wrote:
>: Trevor Blackwell <tlb@viaweb.com> wrote:
>: >I propose that the following operators should not generate the
>: >"unlikely to be reached" warning in the shadow of an operator like
>: >exec:
>: >
>: >   exit
>: >   warn
>: >   die
>: >   print
>:
>: "Die" already has that property.  Adding it to "exit" and "warn"
>: sounds reasonable.  I think that "print" should not have that
>: property, because it's quite possible that somebody who mistakenly
>: calls "exec" just happens to put an unrelated "print" statement next.
>
>Sounds reasonable to me.

Okay, here's a patch over 5.004_04:

p5p-msgid: 1997Dec24.171511.2683516@cor.newman

Stale SP in pp_substr

Another problem involving SvPV(), uncovered by STRESS_REALLOC.

p5p-msgid: m0yFsTS-000EZpC@alias-2.pr.mcs.net

Revised taint hole closer

Oops!  I'd forgotten that allowing tainted values in multi-argument
exec() and system() is a _feature_.  Mea culpa....

Here's a revised patch that doesn't break that feature:

Credited: Ilya Zakharevich <ilya@math.ohio-state.edu>

p5p-msgid: 19980310222127.09350@cyprus

Add HAS_GNULIBC define

Subject: [PATCH 5.004_04-m1] Add HAS_GNULIBC define

Configure already computes it anyway, so we might as well get set up to
use it in POSIX.xs.

p5p-msgid: Pine.SUN.3.96.980305115202.9180K-100000@newton.phys

Confusing error from perl -e "x'"

If one forgets a string delimiting apostrophe, one may
get a confusing error message.  For example

perl -e "x'"

reports:

Bad name after x:: at -e line 1.

There's no double colon in there.

I'm aware that ' is an ancient synonymn for ::, but I think
this message is confusing for users who haven't used perl4.

p5p-msgid: 1998Mar25.174320.2866352@cor.newman.upenn.edu

Make autouse -w-safe

This removes the the documented bugs of autouse.pm (together with the
description ;-).  This is checked with _55, but may work with _04
as well.

Enjoy,

p5p-msgid: 199803030236.VAA13244@monk.mps.ohio-state.edu

Consider @ARGV to be plain files if inplace (-i)

As someone (?) recently observed, Perl's magical handling of filenames
like "ls|" and "|tee foo bar" doesn't make a lot of sense in inplace
editing mode (the -i command line option).

This patch disables magic names in inplace mode.  I tested it on a
file named "echo abc|"; I ended up with files named "echo abc|" and
"echo abc|~".

(Boy am I glad I already did the scutwork for the sysopen()
operator....)

p5p-msgid: 199802042106.QAA04082@nielsenmedia.com

Conservative C<*x = undef> patch

This fits what Tim said he wants:  C<undef *x> clears out everything
in *x, but C<*x = undef> just generates a warning.

p5p-msgid: 19980310163310.48509@cyprus

Additional regex-cache patch

Trial 1 of 5.004_05 includes a patch from me that partially fixes a
bug with detection of duplicate regexes.  At the time I made the
patch, I thought a complete fix was impossible.  However, Ilya has
just pointed out to me that it is possible after all.

Therefore, this patch should be added to to 5.004_05 and also to the
dev track.

p5p-msgid: 19980305104831.38100@cyprus

[inseperable changes between Change 886 and Change 887]

 ------  CORE LANGUAGE  ------

 Title:  "Re: die exits with 0"
  From:  Robin Barker <rmb1@cise.npl.co.uk>
 Files:  perl.c t/op/die_exit.t

 Title:  "for semctl on solaris"
  From:  Graham Barr <gbarr@ti.com>
Msg-ID:  <34624B80.C014E841@ti.com>
 Files:  doio.c t/op/ipcmsg.t t/op/ipcsem.t

 ------  DOCUMENTATION  ------

 Title:  "Add more 'see also's to perlre.pod.", "Perl regexp /g modifier bug"
  From:  Ilya Zakharevich <ilya@math.ohio-state.edu>, epeschko@den-mdev1 (Ed
         Peschko), pjr@watcher.telstra.com.au (Peter Richardson)
Msg-ID:  <199803050000.LAA11476@watcher.telecom.com.au>,
         <199803050231.VAA19128@monk.mps.ohio-state.edu>,
         <199803050605.XAA09785@den-mdev1.co.csgsystems.com>
 Files:  pod/perlre.pod

 ------  LIBRARY AND EXTENSIONS  ------

 Title:  "Update Getopt::Long to 2.16"
  From:  JVromans@Squirrel.nl (Johan Vromans), Johan Vromans
         <jvromans@squirrel.nl>
Msg-ID:  <13571.48089.726787.147769@plume.nl.compuware.com>,
         <13572.6847.863219.973795@phoenix.squirrel.nl>
 Files:  lib/Getopt/Long.pm

 Title:  "Very *evil* File::CheckTree behavior! (now uses warn/die not
         print/exit)"
  From:  Eryq <eryq@zeegee.com>, Randal Schwartz <merlyn@stonehenge.com>
Msg-ID:  <34B542FD.190A@zeegee.com>, <8cen2i9k6f.fsf@gadget.cscaper.com>
 Files:  lib/File/CheckTree.pm

 ------  OTHER CHANGES  ------

 Title:  "Add ./emacs/ptags"
  From:  Ilya Zakharevich <ilya@math.ohio-state.edu>
Msg-ID:  <199803150847.DAA08196@monk.mps.ohio-state.edu>
 Files:  emacs/ptags

 ------  TESTS  ------

 Title:  "Avoid stat test failure from build in /tmp (tmpfs)", "Build in /tmp"
  From:  Andy Dougherty <doughera@newton.phys.lafayette.edu>, Greg Bacon
         <gbacon@adtran.com>, pudge@pobox.com (Chris Nandor)
Msg-ID:  <199710171616.LAA13435@crp-201.adtran.com>,
         <Pine.SUN.3.96.971017171023.2349A-100000@newton.phys>,
         <v02130515b06be80f1486@[205.228.240.16]>
 Files:  t/op/stat.t

 Title:  "for failure with lib/timelocal"
  From:  "M.J.T. Guy" <mjtg@cus.cam.ac.uk>, jan.dubois@ibm.net (Jan Dubois)
Msg-ID:  <34c78f61.2529827@smtp1.ibm.net>,
         <E0xvdfI-00057d-00@ursa.cus.cam.ac.uk>
 Files:  t/lib/timelocal.t

 Title:  "Make "localhost" related failures more clear"
  From:  Paul Hoffman <phoffman@proper.com>
Msg-ID:  <199801201859.KAA05686@mail.proper.com>
 Files:  t/lib/io_sock.t t/lib/io_udp.t

 ------  UTILITIES  ------

p4raw-link: @886 on //depot/maint-5.004/perl: 6dba07070c2cb08ffbc6e00eff60e8f5fc9a7ee8
p4raw-id: //depot/maint-5.004/perl@887

Let h2xs read multiple header files

I've found it useful to modify h2xs so that it can read multiple
header files in one fell swoop.  In case people think this is a useful
feature, here's the patch that I made.

Credited: Andy Dougherty <doughera@lafcol.lafayette.edu>

p5p-msgid: Pine.SOL.3.95.980310091946.25236A-100000@interact

Fixed Text/Wrap.pm bugs (2)

I recently found two bugs with Text::Wrap::wrap().

  A) Use of /m attribute
  ----------------------
  This causes long words to be moved to end of document.
  The example below shows a two test runs with old and new code.

  B) long word split and die
  --------------------------
  You currently still die if a long word on the first line exists.
  The long words split code only operates on subsequent lines.

After a bit of thought and a chat with Tim Bunce (on the other side of
the room) I decided to restructure the logic to simplify things a bit.
I believe that the output should not have changed for typical usage but
would appreciate more thorough testing.

[snip]

p5p-msgid: 199709291548.QAA08645@toad.ig.co.uk

New Text::ParseWords

I've finally taken the time to fix several embarassing problems with
Text::ParseWords (most of them caused by yours truly).  This version
should be included in the Perl distribution as soon as humanly
possible.

Bugs fixed in this release include (but are not limited to):

-- Handling of trailing null fields and fields
   resolving to "false"

-- Unpaired backslashes no longer cause syntax errors

-- No Carp dependencies, does not die() on error

-- No longer an autoloader, since use of the module
   generally requires 80-90% of the module be loaded anyway

Functional improvements/changes include

-- new @nested_quotewords() function which returns list
   of lists, rather than a single long list

-- parsing is no longer a character-by-character affair,
   so performance is significantly improved

-- semantics of $keep are expanded to include /bin/sh-like
   collapsing of backslashes and special "delimiters" keyword
   for preserving delimiters in addition to tokens

-- additional documentation included, documentation updated

-- many more regression tests in parsewords.t

It's better in all ways and I'm tired of fielding bug reports on the old
version.  Let's use this one!

BigFloat - small neagtive numbers cause panic

Christopher Bailey wrote:
:the following snippet
:
:use Math::BigFloat;
:
:$x = new Math::BigFloat("-0.05");
:$y = new Math::BigFloat("3.4071");
:$z = $x + $y;
:
:causes a panic in Math::BigFloat.pm
:(any number less than -0.1 is the same)
:
:The problem appears to be in the fnorm sub, which returns 'nan'

The problem is actually in stringify, which fails to convert from the
normalised form "-5E-2" correctly:
  work% perl -le 'use Math::BigFloat; print Math::BigFloat->new("-0.05")'
  .-5
  work%

The attached patch appears to fix it:
  work% perl -Mlib=. -le 'use Math::BigFloat; print Math::BigFloat->new("-0.05")'
  -.05
  work%

p5p-msgid: 199711201325.NAA09732@crypt.compulink.co.uk

More toke.c commentary; fix oddity

Fills in some more detail about scan_const. Also collapses the
remarkably strange construct:

  ... (lex_inwhat & OP_TRANS) ? "" : ""

.. which I can only assume is there for hysterical reasons.

p5p-msgid: 199803251022.LAA01308@dorlas.elsevier.nl

[inseperable changes between Change 872 and Change 886]

Changes relating primarily to portability.

 ------  LIBRARY AND EXTENSIONS  ------

 Title:  "ExtUtils/MM_Unix.pm changed to use ld -rpath on IRIX"
  From:  "W. Phillip Moore" <wpm@ms.com>
Msg-ID:  <199712011738.MAA21139@zappa.morgan.com>
 Files:  lib/ExtUtils/MM_Unix.pm

 Title:  ""ODBM_File.c", line 275: NULL undefined"
  From:  pmarquess@bfsec.bt.co.uk (Paul Marquess)
Msg-ID:  <9803091310.AA23264@claudius.bfsec.bt.co.uk>
 Files:  ext/ODBM_File/ODBM_File.xs

 ------  PORTABILITY - GENERAL  ------

 Title:  "osname=unixware, osvers=2.03, archname=i386-unixware
         d_casti32=undef"
  From:  Tom Hughes <tom@compton.demon.co.uk>
Msg-ID:  <465398da47%tom@compton.demon.co.uk>
 Files:  hints/svr4.sh

 Title:  "hints/bsdos.sh patch for BSDI 3.1"
  From:  Jan-Pieter Cornet <johnpc@xs4all.nl>
Msg-ID:  <6fbip6$3cp$1@xs1.xs4all.nl>
 Files:  hints/bsdos.sh

 Title:  "Remove BIND_NOSTART from DynaLoader for HP"
  From:  Keong Lim <Keong.Lim@sr.com.au>
Msg-ID:  <01BD1D03.53B65E90@sieplan2.sr.com.au>
 Files:  ext/DynaLoader/dl_hpux.xs

 Title:  "5.004_(04|63)] Close VMS security hole"
  From:  Charles Bailey <BAILEY@newman.upenn.edu>
Msg-ID:  <01IV6LRJCSSC0009C4@cor.newman.upenn.edu>
 Files:  vms/vms.c

 Title:  "Perl5.004_04m4t4 *almost* makes it for VMS", "Updated
         vms/perly_c.vms and vms/perly_h.vms"
  From:  Andy Dougherty <doughera@newton.phys.lafayette.edu>, Dan Sugalski
         <sugalskd@osshe.edu>, larry@wall.org (Larry Wall)
Msg-ID:  <199710151650.JAA29185@wall.org>,
         <3.0.3.32.19971014150404.02fdef78@osshe.edu>,
         <Pine.SUN.3.96.971015121704.28456F-100000@newton.phys>
 Files:  vms/perly_c.vms

 Title:  "VMS patches to 5.004_03 (excluding installperl and timelocal.t)"
  From:  Charles Bailey <BAILEY@newman.upenn.edu>
Msg-ID:  <01INZT9G2LZS0006YW@cor.newman.upenn.edu>
 Files:  lib/File/Basename.pm lib/File/Path.pm vms/config.vms vms/descrip.mms
         vms/genconfig.pl vms/test.com vms/vms.c vms/ext/Filespec.pm
         vms/ext/filespec.t

 Title:  "hints/linux.sh (MkLinux / PPC)"
  From:  pudge@pobox.com (Chris Nandor)
Msg-ID:  <v0213050cb06c19682a25@[205.228.240.28]>
 Files:  hints/linux.sh

 Title:  "new hints/solaris_2.sh"
  From:  "M.J.T. Guy" <mjtg@cus.cam.ac.uk>
Msg-ID:  <E0xw80h-0005SV-00@ursa.cus.cam.ac.uk>
 Files:  hints/solaris_2.sh

p4raw-link: @872 on //depot/maint-5.004/perl: 0b85608df162729d39cb0f96c9f88c7de0a3ceab
p4raw-id: //depot/maint-5.004/perl@886

[Linux] POSIX::_[PS]C_.+ bug (add HINT_SC_EXIST)

This is a bug report for perl from oiwa@is.s.u-tokyo.ac.jp,
generated with the help of perlbug 1.20 running under perl 5.00404.

p5p-msgid: 199712251923.EAA08260@tjms1f.is.s.u-tokyo.ac.jp

hpux.sh hints file clarification suggestion

Line 47 of the hpux.sh hints file indicates a work-around for
fixing a "too much defining problem". I would like to offer a
clarification to this for those who may not be aware that the
information listed is a SINGLE ccflag entry, not a list of entries
(separated by commas). The original and suggested clarifications
are list below:

ORIGINAL:
# If you get a message about "too much defining", you might have to
# add the following to your ccflags: '-Wp,-H256000'

# If you get a message about "too much defining", as may happen
# in HPUX < 10, you might have to append a single entry to your
# ccflags: '-Wp,-H256000'
# NOTE: This is a single entry (-W takes the argument 'p,-H256000').

Hopefully with the official end of HPUX 9.X support in Dec. 1998,
this will no longer be much of a problem. You can't imagine how much
time I spent with variations of this ccflag before I got it to work.
This may be due to by newness to cc flags in 9.X, but who knows...

Thanks,
Matt Groener, mwg@qad.com

[Please do not change anything below this line]

p5p-msgid: 199802192351.QAA09096@jhereg.perl.com

Re: VMSperl crashes on -Mblib argument

In article <Pine.OSF.3.95.971202100338.26409B-100000@sula.pensam.dk>, Henrik Tougaard <ht.000@foa.dk> writes:
> Whenever I try to use perl "-Mblib" all I get is a register dump.
>
> %SYSTEM-F-ACCVIO, access violation, reason mask=04, virtual address=7702BEA8,
> PC=8048EC2C, PS=0000001B
>
>   Improperly handled condition, images exit forced.
> and so on.

Got it -- blib.pm was expecting Unix syntax, so passed a mixed VMS-Unix syntax
filespec into do_fileify_dirspec(), which triggered an infinite recursion.
Patch appended.

Normally these routines don't look to see whether the input is mixed VMS-Unix
(GIGO), but this is an unusually nasty case, so the patch includes a check
for it.

> I haven't been able do get a debugging version of perl do work properly, so I
> don't know if I can reproduce the error under the debugger.

Hmm.  What problems have you run into?

p5p-msgid: 1997Dec10.004439.2635060@cor.newman

Updated, non-wordwrapped, patch to README.VMS

Here's a patch to README.VMS to bring it up to snuff. Suitable
for both 5.004_05 and 5.004_5x.

p5p-msgid: 3.0.5.32.19980213133828.0092c870@osshe.edu

Re: Perl online documentation on OpenVMS

This patch was taken against the 5.004_04.

Peter Prymmer

p5p-msgid: 9803192143.AA28120@forte.com

5.004_04-m1] Linux shouldn't use -lnet

Linux systems don't have a libnet that's relevant for Perl.  Kaffe
installs one, but it apparently only confuses Configure :-).

p5p-msgid: Pine.SUN.3.96.980305115843.9180M-100000@newton.phys

5.004_04-m1] Allow overrides in hints/openbsd.sh

Allow Configure command-line overrides in new hints/openbsd.sh file.

p5p-msgid: Pine.SUN.3.96.980305115956.9180N-100000@newton.phys