Adrian M. Enache [Mon, 22 Dec 2003 23:22:12 +0000]
re-fix [perl #24508] without speed regression.
keep an eye on this.
p4raw-id: //depot/perl@21951
Adrian M. Enache [Mon, 22 Dec 2003 23:19:25 +0000]
sanitize some macros - based on Chip Salzenberg suggestions and
on the way GNU people use the gcc-ish 'blocks in parens'
p4raw-id: //depot/perl@21950
Mike Pomraning [Mon, 22 Dec 2003 01:52:08 +0000]
Re: Smoke [5.8.2] 21930 FAIL(t) MSWin32 5.1 Service Pack 1 (x86/1 cpu)
Message-ID: <Pine.LNX.4.58.
0312220116520.17374@localhost.localdomain>
From: Mike Pomraning <mjp@pilcrow.madison.wi.us>
p4raw-id: //depot/perl@21948
Jarkko Hietaniemi [Mon, 22 Dec 2003 21:57:34 +0000]
doc nits
Message-Id: <
20031222195734.GA29441@vipunen.hut.fi>
p4raw-id: //depot/perl@21946
Craig A. Berry [Sun, 21 Dec 2003 23:07:13 +0000]
configure.com archname tweak
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <
3FE67C01.1000704@mac.com>
p4raw-id: //depot/perl@21944
Mike Guy [Fri, 19 Dec 2003 17:17:11 +0000]
[perl #24651] Taint bug with multiple backticks in ref consturctors
Message-Id: <E1AXOFT-0007DE-7q@draco.cus.cam.ac.uk>
p4raw-id: //depot/perl@21942
Dominique Quatravaux [Tue, 16 Dec 2003 15:03:24 +0000]
Fix a side-effect of bug #24674 in the perl debugger.
Subject: [perl #24674] 5.x odd taint bug
From: Dominique Quatravaux (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.7_01-24674-68456.11.
3124667849085@perl.org>
p4raw-id: //depot/perl@21940
Dorner Thomas [Wed, 17 Dec 2003 15:41:17 +0000]
Perl 5.8.3 patches from the BS2000 port
Message-ID: <
6727B1DACFCDD311A757009027CA8D69044B673A@Ex02.inhouse.start.de>
p4raw-id: //depot/perl@21938
Adrian M. Enache [Sat, 20 Dec 2003 21:37:03 +0000]
after back-references, restricted hashes.
see http://nntp.perl.org/group/perl.perl5.porters/86497
this is hopefully only a temporary solution.
p4raw-id: //depot/perl@21937
Adrian M. Enache [Sat, 20 Dec 2003 21:32:37 +0000]
fix [perl #24660], [perl #24663].
p4raw-id: //depot/perl@21936
Rafael Garcia-Suarez [Sat, 20 Dec 2003 21:21:50 +0000]
Upgrade to Time::Local 1.07_94
p4raw-id: //depot/perl@21935
Craig A. Berry [Thu, 18 Dec 2003 18:19:43 +0000]
OpenVMS I64 support
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <
3FE2441F.2070603@mac.com>
Date: Thu, 18 Dec 2003 18:19:43 -0600
p4raw-id: //depot/perl@21933
Nicholas Clark [Sat, 20 Dec 2003 19:57:51 +0000]
remove duplicate PERL_HASH (as spotted by Enache Adrian in
<
20031220124854.GA1265@ratsnest.hole> )
p4raw-id: //depot/perl@21932
Nicholas Clark [Sat, 20 Dec 2003 18:58:06 +0000]
Solaris gconvert() doesn't like ndigits == 0. Currently we have no
Configure test for troublesome gconvert(), so for now simply avoid
the optimisation that calls gconvert() in this case.
p4raw-id: //depot/perl@21931
Rafael Garcia-Suarez [Fri, 19 Dec 2003 08:36:11 +0000]
Upgrade to CGI.pm 3.01
p4raw-id: //depot/perl@21928
Elizabeth Mattijsen [Thu, 18 Dec 2003 22:30:52 +0000]
[DOCPATCH] base.pm
Message-Id: <p
05111b12bc07cc596977@[192.168.56.3]>
Plus, remove leftover mentions of pseudo-hashes
p4raw-id: //depot/perl@21927
Nicholas Clark [Thu, 18 Dec 2003 20:24:29 +0000]
"Richard" - who he? (Add "Richard Clamp" to the list of pumpkings)
p4raw-id: //depot/perl@21924
Rafael Garcia-Suarez [Thu, 18 Dec 2003 14:58:42 +0000]
Perl 1.0.16 has been released.
p4raw-id: //depot/perl@21923
Marcus Holland-Moritz [Wed, 17 Dec 2003 13:26:52 +0000]
arguments for perl_clone()
From: "Marcus Holland-Moritz" <mhx-perl@gmx.net>
Message-ID: <
055701c3c499$11144f90$8cecfe91@R2D2>
p4raw-id: //depot/perl@21922
Mike Pomraning [Wed, 17 Dec 2003 00:05:58 +0000]
2-arg cond_wait, cond_timedwait, tests
Message-ID: <Pine.LNX.4.58.
0312092202040.13494@benevelle.wi.securepipe.com>
p4raw-id: //depot/perl@21921
Rafael Garcia-Suarez [Tue, 16 Dec 2003 22:00:39 +0000]
Sync with the latest MakeMaker snapshot.
But set the $VERSION to 6.21_01.
p4raw-id: //depot/perl@21918
Alan Burlison [Mon, 15 Dec 2003 00:56:05 +0000]
Remove incorrect guards around inclusion of <signal.h>
Causes problems with UNIX03/SUSv3
Part 2 of change 21916 - oops!
See:
Message-Id: <
3FDD06A5.8010004@sun.com>
Subject: Re: UNIX03 & C99 issue with 5.8.2
Date: Mon, 15 Dec 2003 00:56:05 +0000
p4raw-id: //depot/perl@21917
Alan Burlison [Mon, 15 Dec 2003 09:02:58 +0000]
Remove incorrect guards around inclusion of <signal.h>
Causes problems with UNIX03/SUSv3
p4raw-id: //depot/perl@21916
Rafael Garcia-Suarez [Mon, 15 Dec 2003 07:43:50 +0000]
Add the macros dAX and dITEMS to PPPort.
p4raw-id: //depot/perl@21915
Stas Bekman [Sun, 14 Dec 2003 15:12:40 +0000]
[patch Porting/pumpkin.pod] trying to ensure that PPPort is up-to-date on each new release
Message-ID: <
3FDCEE68.3080509@stason.org>
p4raw-id: //depot/perl@21914
Elizabeth Mattijsen [Sun, 14 Dec 2003 20:25:07 +0000]
[DOCPATCH] perlfunc delete
Message-Id: <p
05111b07bc0269065a99@[192.168.56.3]>
p4raw-id: //depot/perl@21912
Nicholas Clark [Sun, 14 Dec 2003 20:06:41 +0000]
Forgot to remove a comment
p4raw-id: //depot/perl@21910
Nicholas Clark [Sun, 14 Dec 2003 18:35:15 +0000]
S_save_hek_flags should honour the "free" flag.
Ought to mask the flag bits that shouldn't be stored.
p4raw-id: //depot/perl@21907
Nicholas Clark [Sun, 14 Dec 2003 17:06:13 +0000]
Some fool missed a letter n.
(and then "optimised" code based on its absense. D'oh)
Restore the correct behaviour - fetch with uppercase key, then if
still not found store with mixed/lowercase key.
p4raw-id: //depot/perl@21906
Adrian M. Enache [Wed, 10 Dec 2003 06:05:58 +0000]
Re: Change 21862
Message-ID: <
20031210040558.GC1584@ratsnest.hole>
(1st hunk), plus the equivalent for hv_delete_common
p4raw-id: //depot/perl@21905
Nicholas Clark [Sun, 14 Dec 2003 15:32:32 +0000]
Clean up a bug I introduced into caseless ENV hv_delete
(should be the proper fix for 21870 and 21872's band aid)
p4raw-id: //depot/perl@21904
Yitzchak Scott-Thoennes [Sat, 6 Dec 2003 22:32:59 +0000]
Re: 5.6.2-RC1 on Cygwin
Message-ID: <
20031207063259.GA3004@efn.org>
(with tweaks to cleanup code)
p4raw-id: //depot/perl@21902
Nicholas Clark [Sat, 13 Dec 2003 19:20:41 +0000]
Add Perl_ceil
p4raw-id: //depot/perl@21898
Rafael Garcia-Suarez [Sat, 13 Dec 2003 18:41:51 +0000]
Reformat a long line in perlembed.pod (bug #24623).
p4raw-id: //depot/perl@21897
Nicholas Clark [Sat, 13 Dec 2003 18:40:59 +0000]
The binary compatibility notes say that new global functions should
go at the end. Not that I'm anything more than "trainee" when it
comes to this bincompat stuff.
p4raw-id: //depot/perl@21896
Rafael Garcia-Suarez [Sat, 13 Dec 2003 18:33:38 +0000]
alarm() is now implemented on Win32.
p4raw-id: //depot/perl@21895
Nicholas Clark [Sat, 13 Dec 2003 17:40:32 +0000]
foreach qw() { # not valid syntax for 5.005. So fix it.
p4raw-id: //depot/perl@21893
David Dyck [Sat, 13 Dec 2003 00:01:34 +0000]
Patch for: [perl #24650] File::CheckTree should list Larry Wall as author, not unknown
Message-ID: <Pine.LNX.4.51.
0312122351450.8825@dd.tc.fluke.com>
p4raw-id: //depot/perl@21892
Rafael Garcia-Suarez [Sat, 13 Dec 2003 16:33:46 +0000]
Make the XSRETURN macro evaluate its argument only once.
p4raw-id: //depot/perl@21891
Rafael Garcia-Suarez [Sat, 13 Dec 2003 12:30:08 +0000]
More POD fixes ; regenerate perltoc and perlmodlib.
p4raw-id: //depot/perl@21886
Rafael Garcia-Suarez [Sat, 13 Dec 2003 12:21:26 +0000]
Fix some of the pods to produce more standard manpages,
as reported by Eric S. Raymond.
p4raw-id: //depot/perl@21885
Anders Johnson [Fri, 12 Dec 2003 14:07:40 +0000]
RE: [perl #24610] Pod::Html infinite recursion
Message-ID: <
33171CC36240D94EAF1FE584B1D14E0A06EC6F51@mail-sc-11.nvidia.com>
(with tweaks)
p4raw-id: //depot/perl@21884
Alan Burlison [Fri, 12 Dec 2003 23:04:52 +0000]
Modify the common guard for the signal.h header, because
C99 compilers don't like it.o
see :
Subject: UNIX03 & C99 issue with 5.8.2
Message-ID: <
3FDA4994.6050209@sun.com>
p4raw-id: //depot/perl@21883
Tels [Fri, 12 Dec 2003 18:47:43 +0000]
Math::BigInt v1.67 released
Message-Id: <
200312121847.49039@bloodgate.com>
p4raw-id: //depot/perl@21882
Gisle Aas [Thu, 11 Dec 2003 01:33:39 +0000]
d_u32align for win32
Message-ID: <lrzndzr958.fsf@caliper.activestate.com>
p4raw-id: //depot/perl@21881
Craig A. Berry [Thu, 11 Dec 2003 14:35:29 +0000]
environ array fix for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <
3FD8D511.2030805@mac.com>
p4raw-id: //depot/perl@21879
Mark Leighton Fisher [Thu, 11 Dec 2003 16:53:19 +0000]
Perl 5.9.0 AUTHORS
Message-ID: <
3FD8E74F.7000202@mindspring.com>
Date: Thu, 11 Dec 2003 16:53:19 -0500
p4raw-id: //depot/perl@21878
Rafael Garcia-Suarez [Thu, 11 Dec 2003 23:40:54 +0000]
Add a mention of the error "DESTROY created new reference
to dead object" in perldiag.
p4raw-id: //depot/perl@21877
Adrian M. Enache [Thu, 11 Dec 2003 23:04:03 +0000]
#21866 was wrong. another try to plumb that damn leak.
p4raw-id: //depot/perl@21876
Adrian M. Enache [Thu, 11 Dec 2003 20:11:07 +0000]
fix bug #24605.
substr() wasn't working when used repeatedly on the same utf-8
string.
p4raw-id: //depot/perl@21875
Rafael Garcia-Suarez [Tue, 9 Dec 2003 21:36:58 +0000]
Suppress a C< $DB::single = 1 > from Switch.pm, as noticed
by Jan Dubois.
p4raw-id: //depot/perl@21874
Audrey Tang [Tue, 9 Dec 2003 20:39:16 +0000]
Implicit upgrading docs
Message-ID: <
20031209123915.GA1454@not.autrijus.org>
p4raw-id: //depot/perl@21873
Adrian M. Enache [Tue, 9 Dec 2003 03:26:16 +0000]
temporary fix to avoid t/op/tie.t failures on Win32
p4raw-id: //depot/perl@21872
Rafael Garcia-Suarez [Mon, 8 Dec 2003 15:22:26 +0000]
Upgrade to Digest-MD5 2.33.
p4raw-id: //depot/perl@21871
Rafael Garcia-Suarez [Mon, 8 Dec 2003 08:22:17 +0000]
Integrate change #21862 from maint-5.8 :
Win32/MinGW tweaks
A. ENV_IS_CASELESS has trys to free(keysave) when
keysave isn't in scope yet.
B. For default makefile.mk which build with perlhost.h
stuff "live" need to link with g++ to find new/delete etc.
p4raw-link: @21862 on //depot/maint-5.8/perl:
4db40f21e8071917ddf2daa52294e1413442660d
p4raw-id: //depot/perl@21870
p4raw-integrated: from //depot/maint-5.8/perl@21869 'merge in'
win32/makefile.mk (@21777..) hv.c (@21838..)
Tassilo von Parseval [Mon, 8 Dec 2003 08:17:46 +0000]
iterator reset moved to hv.c (was: [PATCH] SCALAR/FIRSTKEY for tied hashes in scalar context)
Message-id: <
20031208071746.GA594@ethan>
p4raw-id: //depot/perl@21869
Adrian M. Enache [Mon, 8 Dec 2003 03:38:39 +0000]
yet another leak. bigger fish still swimming around.
#!perl
eval q{ $_ = "x"; s/x/"in subst"/e } while 1;
__END__
p4raw-id: //depot/perl@21868
Adrian M. Enache [Mon, 8 Dec 2003 03:34:37 +0000]
yet another 2 leaks. example for the second:
#! perl
eval q{ open $p{q}, "foo" } while 1
__END__
p4raw-id: //depot/perl@21867
Adrian M. Enache [Mon, 8 Dec 2003 03:30:16 +0000]
plumb a leak with pos().
#! perl
while (1) {
my $a = "\x{1ff}"; $a =~ /\x{1ff}/g; pos($a);
}
__END__
p4raw-id: //depot/perl@21866
Tassilo von Parseval [Sun, 7 Dec 2003 16:41:16 +0000]
documenting SCALAR gotcha
Message-id: <
20031207154116.GA825@ethan>
p4raw-id: //depot/perl@21865
Craig A. Berry [Sat, 6 Dec 2003 18:13:32 +0000]
setenv tweak for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <
3FD270AC.3000106@mac.com>
p4raw-id: //depot/perl@21864
Rafael Garcia-Suarez [Sat, 6 Dec 2003 21:33:22 +0000]
Missing thingies.
p4raw-id: //depot/perl@21863
Tels [Sat, 6 Dec 2003 20:19:44 +0000]
Math::BigInt v1.67 (pre-release)
Message-Id: <
200312062016.50484@bloodgate.com>
p4raw-id: //depot/perl@21861
Rafael Garcia-Suarez [Sat, 6 Dec 2003 20:33:09 +0000]
Forgot to update the MANIFEST.
p4raw-id: //depot/perl@21860
Rafael Garcia-Suarez [Sat, 6 Dec 2003 20:19:16 +0000]
Math::BigInt::Scalar is only for tests.
Move it under t/lib.
p4raw-id: //depot/perl@21859
Craig A. Berry [Sat, 6 Dec 2003 12:44:40 +0000]
casting bug in VMS part of Perl_start_glob
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <
3FD22398.1060506@mac.com>
p4raw-id: //depot/perl@21858
Rafael Garcia-Suarez [Sat, 6 Dec 2003 19:58:51 +0000]
Remove the "Can't provide tied hash usage" error from perldiag.
Mention the new tied hash SCALAR method in perldelta.
p4raw-id: //depot/perl@21857
Rafael Garcia-Suarez [Sat, 6 Dec 2003 19:51:49 +0000]
Clarify the description of SCALAR in perltie
p4raw-id: //depot/perl@21856
Tassilo von Parseval [Sat, 6 Dec 2003 11:50:59 +0000]
SCALAR/FIRSTKEY for tied hashes in scalar context
Message-id: <
20031206105059.GA13989@ethan>
p4raw-id: //depot/perl@21855
Nicholas Clark [Sat, 6 Dec 2003 16:30:35 +0000]
Make sv_force_normal_flags cope with shared hash key scalars
(remember the pointer from SvPVX, reset the flags before SvGROW,
avoid crazy loops or read-from-free)
p4raw-id: //depot/perl@21854
Nicholas Clark [Fri, 5 Dec 2003 20:49:10 +0000]
Back out the Makefile.PL part of 21808 as requested by Gisle Aas
p4raw-id: //depot/perl@21851
Gisle Aas [Fri, 5 Dec 2003 03:47:01 +0000]
Configure gets d_u32align wrong
Message-ID: <lr4qwfbi6i.fsf_-_@caliper.activestate.com>
p4raw-id: //depot/perl@21846
chromatic [Mon, 1 Dec 2003 09:20:21 +0000]
[REPATCH lib/AutoLoader.t] Test can() with AutoLoader
Message-Id: <
1070299221.1275.19.camel@localhost>
p4raw-id: //depot/perl@21844
Craig A. Berry [Thu, 4 Dec 2003 16:00:03 +0000]
another ext/SDBM_File/sdbm build fix
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <
3FCFAE63.1080106@mac.com>
p4raw-id: //depot/perl@21843
Paul Johnson [Fri, 5 Dec 2003 00:57:21 +0000]
$^P, eval and caller
Message-ID: <
20031204235721.GJ26355@pjcj.net>
p4raw-id: //depot/perl@21842
Steve Hay [Wed, 3 Dec 2003 10:53:02 +0000]
Fix File::Copy with hard links on Windows.
Subject: [PATCH] Re: perl @ 21830
Date: Wed, 03 Dec 2003 10:53:02 +0000
Message-ID: <
3FCDC08E.7080800@uk.radan.com>
and
Date: Thu, 04 Dec 2003 11:02:22 +0000
Message-ID: <
3FCF143E.1040905@uk.radan.com>
p4raw-id: //depot/perl@21841
Alan Burlison [Thu, 4 Dec 2003 12:14:30 +0000]
Re: a2p.pod not being installed in 5.8.2?
Message-ID: <
3FCF2526.3030905@sun.com>
p4raw-id: //depot/perl@21840
Stas Bekman [Wed, 3 Dec 2003 01:41:42 +0000]
Re: XS modules having problems with CLONE and ithreads unless PERL_NO_GET_CONTEXT is defined
Message-ID: <
3FCDAFD6.9050106@stason.org>
p4raw-id: //depot/perl@21837
Rafael Garcia-Suarez [Tue, 2 Dec 2003 23:31:06 +0000]
The prove utility should also be installed on VMS and on Windows.
Haven't we regression tests for installations yet ?
p4raw-id: //depot/perl@21836
Rafael Garcia-Suarez [Tue, 2 Dec 2003 22:18:05 +0000]
FAQ sync.
p4raw-id: //depot/perl@21835
Slaven Rezic [Sun, 30 Nov 2003 22:16:59 +0000]
Re: [perl #24574] find2perl provides different results to find
Message-ID: <8765h1pnec.fsf@vran.herceg.de>
(plus a note about find2perl now defaulting to -print in perldelta)
p4raw-id: //depot/perl@21834
Jan Dubois [Thu, 27 Nov 2003 21:09:51 +0000]
setting $0 still broken
Message-ID: <f3mdsv8dcv4asle0kbhiijk0adu1l25sr3@4ax.com>
p4raw-id: //depot/perl@21833
Elizabeth Mattijsen [Sat, 29 Nov 2003 23:15:56 +0000]
Better docs for the special code blocks, based on :
Subject: [DOCPATCH] BEGIN, CHECK, INIT, END explained more
Message-Id: <p
05111b01bbeec2e8bf30@[192.168.56.3]>
p4raw-id: //depot/perl@21832
Rafael Garcia-Suarez [Sun, 30 Nov 2003 20:56:00 +0000]
Fix the test boilerplate in lib/if.t, so it can be run
from the t/ directory.
p4raw-id: //depot/perl@21828
Rafael Garcia-Suarez [Sun, 30 Nov 2003 20:34:39 +0000]
Keep installing xsubpp in lib/ExtUtils,
so MakeMaker can find it.
p4raw-id: //depot/perl@21827
Rafael Garcia-Suarez [Sun, 30 Nov 2003 20:31:59 +0000]
Upgrade to Test::Harness 2.38.
Introduce the prove(1) utility.
(The prove-switches test is disabled for now.)
p4raw-id: //depot/perl@21826
SADAHIRO Tomoyuki [Sat, 29 Nov 2003 23:32:38 +0000]
Re: [perl #24554] Segfault in POSIX module
Message-Id: <
20031129233010.8E2F.BQW10602@nifty.com>
(plus a test for the stringification of references
passed to POSIX::isXXX())
p4raw-id: //depot/perl@21823
Nicholas Clark [Sat, 29 Nov 2003 20:53:23 +0000]
Integrate if.pm 0.0401
Needed to edit the test file as t/TEST can't cope with extra output
lines as produced by 0.0401's if.t
p4raw-id: //depot/perl@21814
Nicholas Clark [Sat, 29 Nov 2003 19:54:52 +0000]
Remove whitespace from ends of lines (simply because it irritates me)
p4raw-id: //depot/perl@21813
Nicholas Clark [Sat, 29 Nov 2003 17:55:32 +0000]
Update Unicode::Normalize to 0.28
p4raw-id: //depot/perl@21812
Nicholas Clark [Sat, 29 Nov 2003 17:30:18 +0000]
D'oh! This has been moved to lib/Digest/t/digest.t but not deleted.
p4raw-id: //depot/perl@21811
Nicholas Clark [Sat, 29 Nov 2003 17:29:15 +0000]
Update Unicode::Collate to 0.31 (Only the .pm version for now)
p4raw-id: //depot/perl@21810
Nicholas Clark [Sat, 29 Nov 2003 17:09:25 +0000]
D'oh! Forgot to lib/Digest/base.pm
p4raw-id: //depot/perl@21809
Nicholas Clark [Sat, 29 Nov 2003 17:04:39 +0000]
Update to Digest::MD5 2.31
p4raw-id: //depot/perl@21808
Nicholas Clark [Sat, 29 Nov 2003 16:45:19 +0000]
Update Digest to 1.03
p4raw-id: //depot/perl@21807
Nicholas Clark [Sat, 29 Nov 2003 15:41:19 +0000]
When Gconvert is a macro around sprintf with a .* format we need
to cast to int (in case STRLEN isn't the same size as int)
gcc issues a warning even when it is the same size
p4raw-id: //depot/perl@21806
Nicholas Clark [Sat, 29 Nov 2003 14:44:56 +0000]
Silence gcc 2.95 warning
(Its trace flow isn't good enough to realise that there is no problem)
p4raw-id: //depot/perl@21805
Nicholas Clark [Sat, 29 Nov 2003 14:44:22 +0000]
Gconvert actually takes type NV, while nv may be either double
or long double (depending on some conditional code)
Rafael and I think that this cast should work.
p4raw-id: //depot/perl@21804
Rafael Garcia-Suarez [Sat, 29 Nov 2003 11:38:58 +0000]
POSIX::isXXX(undef) segfaulted. (bug #24554.)
p4raw-id: //depot/perl@21802
Rafael Garcia-Suarez [Fri, 28 Nov 2003 22:38:40 +0000]
Fix a regression introduced by change #21694 on sprintf()
with long doubles, by disabling the specific optimisation
path in this case ; remove a unnecessary cast ; add a new
test file for miscellaneous sprintf() test that don't fit
in the t/op/sprintf.t framework.
p4raw-link: @21694 on //depot/perl:
4151a5feffa8bdd67c09edf6ade78431e8079f67
p4raw-id: //depot/perl@21800