Jarkko Hietaniemi [Sun, 11 May 2003 17:50:49 +0000]
Use test.pl.
p4raw-id: //depot/perl@19491
Jarkko Hietaniemi [Sun, 11 May 2003 17:46:09 +0000]
Try to handle a $^X with spaces in it.
p4raw-id: //depot/perl@19490
Jarkko Hietaniemi [Sun, 11 May 2003 17:44:28 +0000]
Separate the creation of the command to run by
runperl() into its own function, _create_runperl().
p4raw-id: //depot/perl@19489
Jarkko Hietaniemi [Sun, 11 May 2003 16:52:00 +0000]
Fixup the method behaviour table.
p4raw-id: //depot/perl@19488
Jarkko Hietaniemi [Sun, 11 May 2003 16:43:26 +0000]
Integrate from perlio:
[ 19474]
Tweaks to Jarkko's NULL deref checks in perlio.c
[ 19475]
Fix for bugs 21717 and 22140.
Win32's lseek claims to have succeeded in pipes etc. Which confuses :perlio
and derived layers. So have :unix's "pushed" method stat() the fd and
cache non S_ISREG nature. Have Unix_seek fail if fd is NOT S_ISREG to match
UNIX behaviour.
[ 19479]
Better but still unproven fix for lseek() on pipes.
[ 19483]
Unused variable
[ 19485]
Tests to prove Ticket 9468 is fixed.
[ 19486]
add test for change#19475,19479 (bugs#21717,22140)
p4raw-link: @19486 on //depot/perlio:
a6dd04483cb30505dd31342b8e0d790b3545179d
p4raw-link: @19485 on //depot/perlio:
317758861cdb698a2ee0bd53db0677ccd65a9eb2
p4raw-link: @19483 on //depot/perlio:
acbd16bfa8cc0ce2f8cf72ca650c798b69c28dcc
p4raw-link: @19479 on //depot/perlio:
aa063c351bd93493dd45b11fa59e0e5a90b4b421
p4raw-link: @19475 on //depot/perlio:
6caa5a9cfe39f91bc44bba937a0b491f754fe9cd
p4raw-link: @19474 on //depot/perlio:
37725cdcc38b517ef70773e843427b086c3d89e1
p4raw-id: //depot/perl@19487
Gurusamy Sarathy [Sun, 11 May 2003 16:11:55 +0000]
add test for change#19475,19479 (bugs#21717,22140)
p4raw-link: @19479 on //depot/perlio:
aa063c351bd93493dd45b11fa59e0e5a90b4b421
p4raw-link: @19475 on //depot/perlio:
6caa5a9cfe39f91bc44bba937a0b491f754fe9cd
p4raw-id: //depot/perlio@19486
Nick Ing-Simmons [Sun, 11 May 2003 15:40:08 +0000]
Tests to prove Ticket 9468 is fixed.
p4raw-id: //depot/perlio@19485
Gurusamy Sarathy [Sun, 11 May 2003 15:37:14 +0000]
fix Embed.t failure on windows: PERL_SYS_TERM() is implemented
in terms of an exported function rather than as an inlined
macro (latter wants PL_op_mutex which isn't exported as such)
Jarkko: please merge into maint-5.8
p4raw-id: //depot/perl@19484
Nick Ing-Simmons [Sun, 11 May 2003 14:04:31 +0000]
Unused variable
p4raw-id: //depot/perlio@19483
Jarkko Hietaniemi [Sun, 11 May 2003 07:53:26 +0000]
Test _getcode().
p4raw-id: //depot/perl@19482
Jarkko Hietaniemi [Sun, 11 May 2003 06:25:08 +0000]
Clarify the doc (and the code) for Unicode code points.
p4raw-id: //depot/perl@19481
Jarkko Hietaniemi [Sun, 11 May 2003 06:18:06 +0000]
Another doc suggestion from terry@eatoni.com (terry jones):
use codepoints that return undef.
p4raw-id: //depot/perl@19480
Nick Ing-Simmons [Sat, 10 May 2003 20:14:27 +0000]
Better but still unproven fix for lseek() on pipes.
p4raw-id: //depot/perlio@19479
Jarkko Hietaniemi [Sat, 10 May 2003 19:01:17 +0000]
Add Encode's META.yml.
p4raw-id: //depot/perl@19478
Jarkko Hietaniemi [Sat, 10 May 2003 18:59:29 +0000]
Upgrade to Encode 1.94.
p4raw-id: //depot/perl@19477
Jarkko Hietaniemi [Sat, 10 May 2003 18:56:08 +0000]
Doc bug noticed by terry@eatoni.com (terry jones).
p4raw-id: //depot/perl@19476
Nick Ing-Simmons [Sat, 10 May 2003 15:59:26 +0000]
Fix for bugs 21717 and 22140.
Win32's lseek claims to have succeeded in pipes etc. Which confuses :perlio
and derived layers. So have :unix's "pushed" method stat() the fd and
cache non S_ISREG nature. Have Unix_seek fail if fd is NOT S_ISREG to match
UNIX behaviour.
p4raw-id: //depot/perlio@19475
Nick Ing-Simmons [Sat, 10 May 2003 15:01:26 +0000]
Tweaks to Jarkko's NULL deref checks in perlio.c
p4raw-id: //depot/perlio@19474
Nick Ing-Simmons [Sat, 10 May 2003 12:45:15 +0000]
Integrate mainline
p4raw-id: //depot/perlio@19473
Jarkko Hietaniemi [Sat, 10 May 2003 10:55:49 +0000]
Try to plug more potential PerlIO NULL method
dereferences; try to document the matter.
p4raw-id: //depot/perl@19472
Jarkko Hietaniemi [Sat, 10 May 2003 07:07:30 +0000]
UseNicerNames instead of SHOUTING_LIKE_THIS.
p4raw-id: //depot/perl@19471
Jarkko Hietaniemi [Sat, 10 May 2003 06:51:24 +0000]
In eof() the errno can get stomped by the peek-ahead.
p4raw-id: //depot/perl@19470
Rafael Garcia-Suarez [Fri, 9 May 2003 21:33:15 +0000]
A regression test for the remaining "Final $ should be..." error.
p4raw-id: //depot/perl@19469
Rafael Garcia-Suarez [Fri, 9 May 2003 21:23:57 +0000]
Remove the error messages "Final @ should be \@ or @name"
and "Final % should be \% or %name", that appear to be
only produced in addition to another syntax error, and therefore
misleading, if I understand correctly that kind of black magic.
p4raw-id: //depot/perl@19468
Jarkko Hietaniemi [Fri, 9 May 2003 20:11:18 +0000]
Have to think this test more when I'm awake.
p4raw-id: //depot/perl@19467
Casey West [Fri, 9 May 2003 17:03:50 +0000]
Document that perl tries to load .pmc files before .pm files.
Subject: Re: [perl #8860] [not RESOLVED] .pmc extension not documented in require
Message-ID: <
20030509210350.GW49820@geeknest.com>
p4raw-id: //depot/perl@19466
Rafael Garcia-Suarez [Fri, 9 May 2003 19:47:49 +0000]
Fix for doc bug #8602 : clarify eof() example comments
p4raw-id: //depot/perl@19465
Casey West [Fri, 9 May 2003 11:09:39 +0000]
[perl #8702] Clean up perltrap mis-information
Message-ID: <
20030509150939.GN49820@geeknest.com>
p4raw-id: //depot/perl@19464
Casey West [Fri, 9 May 2003 15:25:59 +0000]
Re: [DOC PATCH] [perl #1165] crypt accepts any character as salt
Message-ID: <
20030509192559.GS49820@geeknest.com>
p4raw-id: //depot/perl@19463
Jarkko Hietaniemi [Fri, 9 May 2003 18:53:27 +0000]
Try to comprehensively have a plan B if a PerlIO
layer doesn't have a particular function.
(1) If there's a corresponding PerlIOBase, call it.
(2) If not having the function is 'harmless', be silently happy.
(Currently only Flush is in this category.)
(3) Otherwise set errno and return failure.
p4raw-id: //depot/perl@19462
Casey West [Fri, 9 May 2003 11:17:53 +0000]
[perl #8703] unescaped @ is fine
Message-ID: <
20030509151753.GO49820@geeknest.com>
p4raw-id: //depot/perl@19461
Jarkko Hietaniemi [Fri, 9 May 2003 14:25:49 +0000]
Add the PerlIOBase_noop_* to the public API as suggested by Stas.
p4raw-id: //depot/perl@19460
Jarkko Hietaniemi [Fri, 9 May 2003 14:22:08 +0000]
Result of change #19458.
p4raw-link: @19458 on //depot/perl:
1aea71dbe35e5c5838ce1880d0f99d5eba1c26e2
p4raw-id: //depot/perl@19459
Andreas König [Fri, 9 May 2003 15:12:05 +0000]
Weekend fun: MANIFEST sorting
Message-ID: <m3y91g463e.fsf@franz.ak.mind.de>
(both sorts need LC_ALL=C)
(add also manicheck target)
p4raw-id: //depot/perl@19458
Jarkko Hietaniemi [Fri, 9 May 2003 04:30:13 +0000]
Better skip this test on OpenBSD and BSD/OS since it
does not seem to work (Slaven Rezic).
p4raw-id: //depot/perl@19457
Yitzchak Scott-Thoennes [Wed, 7 May 2003 23:37:47 +0000]
Re: [perl #16834] Anomolous behaviour of SUBSTR() used as LValue
Message-ID: <7sfu+gzkg+AY092yn@efn.org>
p4raw-id: //depot/perl@19456
Jarkko Hietaniemi [Fri, 9 May 2003 03:36:54 +0000]
Missing files.
p4raw-id: //depot/perl@19455
Rafael Garcia-Suarez [Thu, 8 May 2003 18:49:25 +0000]
Suppress a few compilation warnings in pp_hot.c.
p4raw-id: //depot/perl@19454
Rafael Garcia-Suarez [Thu, 8 May 2003 18:42:16 +0000]
Remove duplicate entries from perldiag
p4raw-id: //depot/perl@19453
Yitzchak Scott-Thoennes [Wed, 7 May 2003 15:27:07 +0000]
Re: [perl #17718] %tiedhash in bool context doesn't check if hash is empty
Message-ID: <7gYu+gzkgaFU092yn@efn.org>
p4raw-id: //depot/perl@19452
Jarkko Hietaniemi [Thu, 8 May 2003 17:47:13 +0000]
Tiny nit from mjd.
p4raw-id: //depot/perl@19451
Jarkko Hietaniemi [Thu, 8 May 2003 17:46:26 +0000]
Upgrade to Tie::File 0.95.
p4raw-id: //depot/perl@19450
Marc Lehmann [Thu, 8 May 2003 00:42:18 +0000]
[perl #22141] patch for Time::HiRes to get rid of -lrt on linux
From: Marc Lehmann (via RT) <perlbug-followup@perl.org>
Message-Id: <rt-22141-56710.3.
69543054121962@bugs6.perl.org>
Date: 8 May 2003 00:42:18 -0000
p4raw-id: //depot/perl@19449
Ronald J. Kimball [Thu, 8 May 2003 11:52:39 +0000]
alphabetize perldiag.pod
Message-ID: <
20030508155239.GC1495587@linguist.thayer.dartmouth.edu>
p4raw-id: //depot/perl@19448
Tassilo von Parseval [Thu, 8 May 2003 08:42:20 +0000]
[perl #22127] get(av|cv|hv|sv) added to Devel::PPPort
Message-id: <
20030508064220.GA763@ethan>
p4raw-id: //depot/perl@19447
Nick Ing-Simmons [Thu, 8 May 2003 14:32:17 +0000]
Integrate mainline
p4raw-id: //depot/perlio@19446
Adrian M. Enache [Tue, 22 Apr 2003 02:54:05 +0000]
A variant of
Subject: Re: 0 is not perl (was Re: Report /export/home/nwc10/Gripping-Smoke/Smoke)
Message-ID: <
20030421235405.GA1162@ratsnest.hole>
to quench the black smoke from the BSD builds.
p4raw-id: //depot/perl@19445
Casey West [Mon, 5 May 2003 13:25:47 +0000]
Re: [DOC PATCH] & More File::Path issues
Message-ID: <
20030505172547.GB20508@geeknest.com>
p4raw-id: //depot/perl@19444
Jarkko Hietaniemi [Wed, 7 May 2003 20:03:58 +0000]
Spelling correction from Nicholas Clark.
p4raw-id: //depot/perl@19443
Jarkko Hietaniemi [Wed, 7 May 2003 19:20:53 +0000]
One more possible extensions permutation.
p4raw-id: //depot/perl@19440
Jarkko Hietaniemi [Wed, 7 May 2003 16:58:21 +0000]
Allow platforms to manipulate their archname by creating
a archname.cbu in their hints files.
p4raw-id: //depot/perl@19437
Jarkko Hietaniemi [Wed, 7 May 2003 16:53:26 +0000]
More long double logic from Alan Burlison.
p4raw-id: //depot/perl@19436
Jarkko Hietaniemi [Tue, 6 May 2003 15:21:55 +0000]
Worth a try for [perl #17146]
p4raw-id: //depot/perl@19435
Nick Ing-Simmons [Tue, 6 May 2003 10:58:27 +0000]
Integrate mainline
p4raw-id: //depot/perlio@19434
Jarkko Hietaniemi [Tue, 6 May 2003 05:12:23 +0000]
Document which interfaces are NOT Unicode-aware.
p4raw-id: //depot/perl@19433
Casey West [Mon, 28 Apr 2003 11:07:36 +0000]
[perl #8063] perlfilter doesn't mention potential DATA clobber
Message-ID: <
20030428150736.GD62281@geeknest.com>
p4raw-id: //depot/perl@19432
Adrian M. Enache [Fri, 28 Mar 2003 23:53:09 +0000]
[patch] Re: [perl #21728] regexp SEGV
Message-ID: <
20030328215309.GA6413@ratsnest.hole>
(with minor tweaks)
p4raw-id: //depot/perl@19431
Rafael Garcia-Suarez [Mon, 5 May 2003 20:01:36 +0000]
Fix doc bug #22067, noticed by Mark Knutsen
p4raw-id: //depot/perl@19430
Rafael Garcia-Suarez [Mon, 5 May 2003 18:59:59 +0000]
Fix : the svr5 hints file doesn't propagate libswanted with
threads enabled. Now threads are OK on OpenUNIX 8, except a
mysterious failure in ext/POSIX/t/sigaction.t.
p4raw-id: //depot/perl@19429
Jarkko Hietaniemi [Mon, 5 May 2003 16:54:34 +0000]
Snip away the perlunicode slowness demo since the new
caching scheme should help things a bit.
p4raw-id: //depot/perl@19428
Jarkko Hietaniemi [Mon, 5 May 2003 16:14:09 +0000]
Re: Minor change to strict.pm. Who? How?
From: Adam Kennedy <adam@ali.as>
Date: Wed, 30 Apr 2003 00:02:40 +1000
Message-ID: <
3EAE8600.2000806@ali.as>
Subject: [PATCH] Re: Minor change to strict.pm. Who? How?
From: Michael G Schwern <schwern@pobox.com>
Date: Tue, 29 Apr 2003 12:26:32 -0700
Message-ID: <
20030429192632.GA6129@windhund.schwern.org>
p4raw-id: //depot/perl@19427
Jos I. Boumans [Wed, 30 Apr 2003 09:45:16 +0000]
[DOC PATCH] missing ')' in File::Path docs
From: "Jos I.Boumans" <kane@dwim.org>
Message-ID: <
20030430114513165+0200@nntp.perl.org>
p4raw-id: //depot/perl@19426
Michael G. Schwern [Sat, 3 May 2003 15:30:16 +0000]
Simpler $Revision$ based $VERSION. Plus, repentance!
Message-ID: <
20030503223016.GE1234@windhund.schwern.org>
p4raw-id: //depot/perl@19425
Dave Mitchell [Thu, 1 May 2003 21:06:57 +0000]
[perl #3096] undefing hash with object values
Message-ID: <
20030501200657.GA25456@fdgroup.com>
p4raw-id: //depot/perl@19424
Tye McQueen [Thu, 1 May 2003 13:34:50 +0000]
Re: hv.c patch - pathological hashes too easy
From: "Tye McQueen" <tye@metronet.com>
Message-Id: <
200305011834.h41IYoE08503@metronet.com>
p4raw-id: //depot/perl@19423
Casey West [Tue, 29 Apr 2003 16:14:20 +0000]
[perl #18341] random nits in perlrequick.pod
Message-ID: <
20030429201420.GT62281@geeknest.com>
p4raw-id: //depot/perl@19422
Slaven Rezic [Thu, 24 Apr 2003 00:42:11 +0000]
ExtUtils::Install and the don't-really-do-it switch
Message-Id: <
200304232242.h3NMgBqD028515@vran.herceg.de>
p4raw-id: //depot/perl@19421
Steve Hay [Wed, 30 Apr 2003 09:52:30 +0000]
h2xs generates false comments about ABSTRACT
Message-ID: <
3EAF8ECE.8060403@uk.radan.com>
p4raw-id: //depot/perl@19420
Jarkko Hietaniemi [Mon, 5 May 2003 08:20:34 +0000]
Reintroduce the mention of the fact that the Artistic/GPL
also are Perl's own licenses.
p4raw-id: //depot/perl@19419
Jarkko Hietaniemi [Mon, 5 May 2003 07:23:57 +0000]
Switch the new perlio way of opening anonymous temporary files
open my $fh, '+>', undef
to using File::Temp. Test it, and test also the "accidental
feature" of +< working the same way.
This should address [perl #21937].
p4raw-id: //depot/perl@19418
Jarkko Hietaniemi [Mon, 5 May 2003 05:52:47 +0000]
perlartistic and perlgpl reformatting from Sean Burke.
p4raw-id: //depot/perl@19417
Jarkko Hietaniemi [Mon, 5 May 2003 05:33:43 +0000]
pack/unpack fixes from Wolfgang Laun:
- fix bug in UNICOS (where SIZE16 != sizeof(short))
- introduce and use new internal pack/unpack API
(packlist, unpackstring)
that does away with the unused arguments in the old API
(pack_cat, unpack_str).
p4raw-id: //depot/perl@19416
Craig A. Berry [Sun, 4 May 2003 16:25:38 +0000]
Embed.t flushing problem
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <
3EB58552.2070207@mac.com>
p4raw-id: //depot/perl@19415
Jarkko Hietaniemi [Mon, 5 May 2003 04:52:37 +0000]
Doc nit from mjd.
p4raw-id: //depot/perl@19414
Abhijit Menon-Sen [Mon, 5 May 2003 04:03:10 +0000]
None of that "our" stuff here, please.
p4raw-id: //depot/perl@19413
Abhijit Menon-Sen [Mon, 5 May 2003 03:57:06 +0000]
Oops. More Storable 2.07 preparations.
p4raw-id: //depot/perl@19412
Abhijit Menon-Sen [Mon, 5 May 2003 03:53:44 +0000]
Update changelog for 2.07 release.
p4raw-id: //depot/perl@19411
Abhijit Menon-Sen [Mon, 5 May 2003 03:31:36 +0000]
Update Changes.
p4raw-id: //depot/perl@19410
Slaven Rezic [Sun, 4 May 2003 18:00:40 +0000]
Re: Bug in Storable???
Message-Id: <87of2iwvkn.fsf@vran.herceg.de>
p4raw-id: //depot/perl@19409
Jarkko Hietaniemi [Sun, 4 May 2003 19:39:01 +0000]
This way reads a bit better with pod2man.
p4raw-id: //depot/perl@19407
Jarkko Hietaniemi [Sun, 4 May 2003 12:01:00 +0000]
Integrate from maint:
[ 18568]
Add the POSIX::sigaction() trick by Slaven Rezic
for [perl #17341].
p4raw-link: @18568 on //depot/maint-5.8/perl:
b63b4058977cacb57fd0a26b3de014d3f4ca3296
p4raw-id: //depot/perl@19406
p4raw-integrated: from //depot/maint-5.8/perl@18568 'merge in'
pod/perlipc.pod (@18197..) pod/perlfunc.pod (@18379..)
Jarkko Hietaniemi [Sun, 4 May 2003 09:25:48 +0000]
Add Artistic as perlartistic and GPL (the Copying) as perlgpl;
regen perltoc, perlmodlib. The GPL added as verbatim as possible,
the perlartistic is a straightforward podification.
p4raw-id: //depot/perl@19401
Jarkko Hietaniemi [Sun, 4 May 2003 08:19:14 +0000]
Doesn't make any difference for the test but is more logical.
p4raw-id: //depot/perl@19398
Jarkko Hietaniemi [Sat, 3 May 2003 15:42:54 +0000]
Plagued by thinkos tonight.
p4raw-id: //depot/perl@19396
Jarkko Hietaniemi [Sat, 3 May 2003 15:37:35 +0000]
Must skip more.
p4raw-id: //depot/perl@19395
Slaven Rezic [Sat, 3 May 2003 18:26:49 +0000]
Re: Does filetest work at all?
Message-ID: <87ade4q9me.fsf@vran.herceg.de>
p4raw-id: //depot/perl@19394
Jarkko Hietaniemi [Sat, 3 May 2003 05:34:21 +0000]
Extra tweakage from Rafael for #19392.
p4raw-id: //depot/perl@19393
Jarkko Hietaniemi [Sat, 3 May 2003 05:33:04 +0000]
Salvage 'use filetest "access"' from compiletime to runtime.
p4raw-id: //depot/perl@19392
Jarkko Hietaniemi [Sat, 3 May 2003 05:19:23 +0000]
Upgrade to Unicode 4.0.0. (Well, upgrade at least
the Unicode character database to 4.0.0.)
p4raw-id: //depot/perl@19391
Jarkko Hietaniemi [Sat, 3 May 2003 04:52:09 +0000]
Tru64: PerlIO_tell() was returning about one _megabyte_ for
the fp offset, which was quite a big larger than the input file,
which meant that the SvGROW tried to grow the file to about
2**64-2**20, which made safesysrealloc() to understandably
croak (in argv.t).
p4raw-id: //depot/perl@19390
Jarkko Hietaniemi [Fri, 2 May 2003 19:18:35 +0000]
Regen Configure (no changes but that's fine).
p4raw-id: //depot/perl@19387
Andy Dougherty [Mon, 28 Apr 2003 12:24:38 +0000]
Re: maintperl on OpenUNIX 8
Message-ID: <Pine.SOL.4.53.
0304281208490.25038@maxwell.phys.lafayette.edu>
p4raw-id: //depot/perl@19386
Rafael Garcia-Suarez [Fri, 2 May 2003 12:12:08 +0000]
OpenUNIX 8 support
Message-Id: <
20030502121208.3d235027.rgarciasuarez@free.fr>
p4raw-id: //depot/perl@19385
Abe Timmerman [Fri, 2 May 2003 00:51:42 +0000]
silence compiler warnings
Message-Id: <
200305020051.43166.abe@ztreet.demon.nl>
p4raw-id: //depot/perl@19384
Abe Timmerman [Thu, 1 May 2003 18:34:35 +0000]
Re: Smoke [5.9.0] 19367 FAIL(F) MSWin32 5.0 Service Pack 3 (x86/1 cpu)
Message-Id: <
200305011834.35685.abe@ztreet.demon.nl>
p4raw-id: //depot/perl@19383
Michael G. Schwern [Wed, 30 Apr 2003 18:19:32 +0000]
Deceptive POSIX exporting docs
Message-ID: <
20030501011932.GM701@windhund.schwern.org>
p4raw-id: //depot/perl@19382
Jarkko Hietaniemi [Fri, 2 May 2003 15:12:47 +0000]
Forgot to check in the -d: file.
p4raw-id: //depot/perl@19381
Jarkko Hietaniemi [Fri, 2 May 2003 15:02:04 +0000]
Solaris: make -Duse64bitall'ed to have an archname of
sun4-solaris-64, from Alan Burlison. (The default is to not
to suffix anything with -Duse64bitall if longs are 64 bit.
This may lead into confusion and much sorrow if 32-bit binaries
and 64-bit binaries are installed under the same directories.
Why is "-64" or something like that the default? Well, there
are platforms where 64 bits really is the default default.
There adding a "-64" would be kind of odd. Better to let
each 64-bit capable platform to choose their archnames.)
p4raw-id: //depot/perl@19380
Nick Ing-Simmons [Fri, 2 May 2003 13:37:08 +0000]
Integrate mainline (run/switchd.t fails).
p4raw-id: //depot/perlio@19379
Jarkko Hietaniemi [Fri, 2 May 2003 08:41:40 +0000]
The [perl #21890] (Devel::Coverage breakage) has been fixed
by change #18589 (it was broken by change #9754); add test case.
p4raw-link: @18589 on //depot/perl:
5df8de69806210bf48dc2e451e3db37c6f274c6e
p4raw-link: @9754 on //depot/perl:
9d43a7557743d779c74d69ffc6df7fc17711f3ec
p4raw-id: //depot/perl@19378