Jarkko Hietaniemi [Wed, 15 Nov 2000 02:48:37 +0000]
Quit utf8_to_uv() instantly if curlen == 0.
p4raw-id: //depot/perl@7693
Jens Hamisch [Tue, 14 Nov 2000 19:03:55 +0000]
Use u_int32_t for the size of hash_cb(), not size_t.
Subject: [ID
20001114.003] Solaris 8, 64 Bit DB_file patch
Message-Id: <
20001114190355.A20559@Strawberry.COM>
p4raw-id: //depot/perl@7692
Jens Hamisch [Tue, 14 Nov 2000 19:16:23 +0000]
Use UINT64_C().
Subject: [ID
20001114.006] 5.7.0-7680 Solaris 8, 64 bit, utf8 patch
Message-Id: <
20001114191623.G20559@Strawberry.COM>
p4raw-id: //depot/perl@7691
Jarkko Hietaniemi [Wed, 15 Nov 2000 02:17:06 +0000]
Defined INT64_C() and UINT64_C() unless defined by <inttypes.h>
(a macro to define signed and unsigned integer constants).
p4raw-id: //depot/perl@7690
Jarkko Hietaniemi [Wed, 15 Nov 2000 01:56:51 +0000]
Regen Configure.
p4raw-id: //depot/perl@7689
Jarkko Hietaniemi [Tue, 14 Nov 2000 17:54:56 +0000]
Integrate perlio:
[ 7684]
PerlIO #include and #ifdef re-work.
p4raw-link: @7684 on //depot/perlio:
76ced9add7b621dfc9d4ecb534aeea8e131a418a
p4raw-id: //depot/perl@7685
Nick Ing-Simmons [Tue, 14 Nov 2000 17:43:04 +0000]
PerlIO #include and #ifdef re-work.
p4raw-id: //depot/perlio@7684
Jens Hamisch [Tue, 14 Nov 2000 11:34:40 +0000]
Hoist the duplicated socket/netdb include logic to perl.h;
undef SETERRNO in case SOCKS has defined it. Based on:
Subject: [ID
20001114.002] Code-Cleanups concerning SOCKS5 and Solaris
Message-Id: <
20001114113440.A20005@Strawberry.COM>
p4raw-id: //depot/perl@7683
Vadim Konovalov [Tue, 14 Nov 2000 09:31:13 +0000]
some additions for makefiles for win32 (for perl@7674)
From: "Konovalov, Vadim" <vkonovalov@lucent.com>
Message-ID: <
402099F49BEED211999700805FC7359F8254FC@ru0028exch01.spb.lucent.com>
p4raw-id: //depot/perl@7682
Vadim Konovalov [Tue, 14 Nov 2000 09:29:28 +0000]
tiny typo in perl5db.pl
From: "Konovalov, Vadim" <vkonovalov@lucent.com>
Message-ID: <
402099F49BEED211999700805FC7359F8254F7@ru0028exch01.spb.lucent.com>
p4raw-id: //depot/perl@7681
Jarkko Hietaniemi [Tue, 14 Nov 2000 04:13:50 +0000]
Redo #7679 with LFs instead of CRLFs.
p4raw-id: //depot/perl@7680
Benjamin Stuhl [Mon, 13 Nov 2000 15:08:08 +0000]
Get PerlIO building on Win32
Message-ID: <
20001113230808.18659.qmail@web6305.mail.yahoo.com>
p4raw-id: //depot/perl@7679
Benjamin Stuhl [Mon, 13 Nov 2000 15:08:08 +0000]
Fix the re extension building for Win32.
Subject: [PATCH perl@7638] Get PerlIO building on Win32
Message-ID: <
20001113230808.18659.qmail@web6305.mail.yahoo.com>
p4raw-id: //depot/perl@7678
Yitzchak Scott-Thoennes [Mon, 13 Nov 2000 14:49:40 +0000]
[ID
20001113.003] utf8_to_uv on malformed utf returns wrong values
Message-Id: <
200011132249.eADMnek09679@garcia.efn.org>
p4raw-id: //depot/perl@7677
Nicholas Clark [Mon, 13 Nov 2000 18:55:04 +0000]
Re: [ID
20001112.008] perlio.c's PerlIO_getpos ingores error return
Message-ID: <
20001113185504.J29183@plum.flirble.org>
p4raw-id: //depot/perl@7676
Nick Ing-Simmons [Mon, 13 Nov 2000 20:21:57 +0000]
Integrate mainline ...
p4raw-id: //depot/perlio@7675
Jarkko Hietaniemi [Mon, 13 Nov 2000 15:07:56 +0000]
Update Changes.
p4raw-id: //depot/perl@7674
Jarkko Hietaniemi [Mon, 13 Nov 2000 14:42:42 +0000]
Remove the new two tests of lib/io_xs for now, they seem to
fail under perlio on some platforms.
p4raw-id: //depot/perl@7673
Jarkko Hietaniemi [Mon, 13 Nov 2000 13:57:53 +0000]
Make PerlIO_getpos() to behave like fgetpos() on return.
p4raw-id: //depot/perl@7672
Jarkko Hietaniemi [Mon, 13 Nov 2000 05:30:48 +0000]
Placate nervous compilers that see longer than ints switch()ing.
p4raw-id: //depot/perl@7671
Jarkko Hietaniemi [Mon, 13 Nov 2000 05:14:21 +0000]
fputs() does return EOF on error but here we don't care.
p4raw-id: //depot/perl@7670
Jarkko Hietaniemi [Mon, 13 Nov 2000 05:02:45 +0000]
Declare reg_data like reg_substr_data.
p4raw-id: //depot/perl@7669
Jarkko Hietaniemi [Mon, 13 Nov 2000 04:54:34 +0000]
Typos in #7667.
p4raw-id: //depot/perl@7668
Jarkko Hietaniemi [Mon, 13 Nov 2000 04:49:49 +0000]
Cleanup messy #ifdef.
p4raw-id: //depot/perl@7667
Nicholas Clark [Sun, 12 Nov 2000 21:14:11 +0000]
[ID
20001112.008] perlio.c's PerlIO_getpos ingores error return
Message-Id: <E13v4S3-0000iY-00@Bagpuss.unfortu.net>
Note: only one breakage of the two reported is fixed by this patch.
p4raw-id: //depot/perl@7666
Yitzchak Scott-Thoennes [Fri, 10 Nov 2000 09:47:15 +0000]
Tweak the definition of the bit complement on UTF-8 data:
if none of the characters in the string are > 0xff,
the result is a complemented byte string, not a (UTF-8)
char string. Based on the summary in
Subject: Re: [ID
20000918.005] ~ on wide chars
Message-ID: <jSDD6gzkgi/T092yn@efn.org>
This should give us the maximum backward (pre-char string)
compatibility and utf8 compatibility. The other alternative
would be to limit the bit complement to be always byte only,
taking the least significant byte of the chars.
p4raw-id: //depot/perl@7665
Jarkko Hietaniemi [Mon, 13 Nov 2000 00:23:44 +0000]
Couple of tests from #7660 salvaged.
p4raw-id: //depot/perl@7664
Nicholas Clark [Sun, 12 Nov 2000 21:23:43 +0000]
[ID
20001112.007] sfio's sftell isn't ftell
Message-Id: <E13v4bH-0000lN-00@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@7663
Nicholas Clark [Sun, 12 Nov 2000 21:30:04 +0000]
[ID
20001112.006] IO::Seekable::getpos doesn't check for fgetpos() failure
Message-Id: <E13v4hQ-0000mn-00@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@7662
Jarkko Hietaniemi [Sun, 12 Nov 2000 23:57:29 +0000]
Document tell() on special streams.
p4raw-id: //depot/perl@7661
Jarkko Hietaniemi [Sun, 12 Nov 2000 23:54:22 +0000]
(Subsumed by #7664)
p4raw-id: //depot/perl@7660
Nicholas Clark [Sun, 12 Nov 2000 21:35:53 +0000]
Many subdocumented return values of the IO extension now documented.
ungetc and write still left subdocumented.
Subject: [PATCH] (was Re: IO::Handle::ungetc)
Message-ID: <
20001112213552.A3034@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@7659
Nicholas Clark [Sun, 12 Nov 2000 20:03:22 +0000]
[ID
20001112.004] man perlfunc omits tell()'s error return
Message-Id: <E13v3LV-0008Pd-00@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@7658
Jarkko Hietaniemi [Sun, 12 Nov 2000 20:34:55 +0000]
Integrate perlio:
[ 7656]
Add aTHX_ to Perl_croak's (MULTIPLICITY et. al.)
p4raw-link: @7656 on //depot/perlio:
14aaf8e8d5ef5f7630e198d7ed4c5b1ce477445f
p4raw-id: //depot/perl@7657
Nick Ing-Simmons [Sun, 12 Nov 2000 19:25:06 +0000]
Add aTHX_ to Perl_croak's (MULTIPLICITY et. al.)
p4raw-id: //depot/perlio@7656
Nick Ing-Simmons [Sun, 12 Nov 2000 19:09:41 +0000]
Integrate mainline
p4raw-id: //depot/perlio@7655
Jarkko Hietaniemi [Sun, 12 Nov 2000 19:00:01 +0000]
Add HAS_FSYNC, lack noticed by Nicholas Clark.
p4raw-id: //depot/perl@7653
Jarkko Hietaniemi [Sat, 11 Nov 2000 21:12:01 +0000]
Copy the s// information of README.hpux also to the perlrun.
p4raw-id: //depot/perl@7652
Jarkko Hietaniemi [Sat, 11 Nov 2000 21:03:13 +0000]
More README.solaris updates from Andy Dougherty.
p4raw-id: //depot/perl@7651
Dominic Dunlop [Sat, 11 Nov 2000 18:20:32 +0000]
More descriptive error for unknown perlio layers.
Subject: [PATCHES Bleadperl] Re: PerlIO - what all of you can all do.
Message-Id: <p
04320401b632c4c3335b@[192.168.1.4]>
p4raw-id: //depot/perl@7650
Dominic Dunlop [Sat, 11 Nov 2000 18:20:32 +0000]
MachTen doesn't really do mmap() and munmap().
Subject: [PATCHES Bleadperl] Re: PerlIO - what all of you can all do.
Message-Id: <p
04320401b632c4c3335b@[192.168.1.4]>
p4raw-id: //depot/perl@7649
Robert Spier [Sat, 11 Nov 2000 12:22:15 +0000]
fwd: Re: [ID
20001105.011] Perl 5.6.0 documentation glitch
Message-ID: <14861.32839.491271.985797@rls.cx>
p4raw-id: //depot/perl@7648
Jarkko Hietaniemi [Sat, 11 Nov 2000 18:33:23 +0000]
Add getpagesize() probing, on non-UNIX guess 'undef'.
p4raw-id: //depot/perl@7646
Jarkko Hietaniemi [Sat, 11 Nov 2000 16:45:15 +0000]
Use sysconf() or getpagesize() to find out the pagesize.
p4raw-id: //depot/perl@7645
Jarkko Hietaniemi [Sat, 11 Nov 2000 15:46:08 +0000]
Integrate perlio:
[ 7641]
Fixup mmap layer by doing mmap() calls on pagesize boundaries.
Also call "Buf" layer directly when unread'ing non-read chars.
p4raw-link: @7641 on //depot/perlio:
c3d7c7c914f938b68b6bb6c87dcf5a1eeac909cd
p4raw-id: //depot/perl@7644
Lupe Christoph [Sat, 11 Nov 2000 14:08:10 +0000]
Re: [PATCH] README.solaris
Message-ID: <
20001111140810.C10394@alanya.lupe-christoph.de>
p4raw-id: //depot/perl@7643
Eric Fifer [Fri, 10 Nov 2000 19:30:30 +0000]
cygwin port
Message-ID: <
000001c04b4c$b96b7980$243670c2@fifer>
p4raw-id: //depot/perl@7642
Nick Ing-Simmons [Sat, 11 Nov 2000 14:50:36 +0000]
Fixup mmap layer by doing mmap() calls on pagesize boundaries.
Also call "Buf" layer directly when unread'ing non-read chars.
p4raw-id: //depot/perlio@7641
Jarkko Hietaniemi [Sat, 11 Nov 2000 02:05:02 +0000]
Add more encoding tables.
p4raw-id: //depot/perl@7640
Andy Dougherty [Fri, 10 Nov 2000 12:18:00 +0000]
README.solaris
Message-ID: <Pine.SOL.4.10.
10011101217100.28341-100000@maxwell.phys.lafayette.edu>
p4raw-id: //depot/perl@7639
Jarkko Hietaniemi [Fri, 10 Nov 2000 15:04:15 +0000]
Update Changes.
p4raw-id: //depot/perl@7638
Lupe Christoph [Fri, 10 Nov 2000 09:08:56 +0000]
Explain better why certain regex tests are skipped.
Subject: Re: tests skipped: unknown reason
Message-ID: <
20001110090856.J785@alanya.lupe-christoph.de>
p4raw-id: //depot/perl@7637
Nick Ing-Simmons [Fri, 10 Nov 2000 13:40:00 +0000]
Integrate mainline.
p4raw-id: //depot/perlio@7636
Nick Ing-Simmons [Fri, 10 Nov 2000 13:25:52 +0000]
Re-instate stdio large file support via perlio.
p4raw-id: //depot/perl@7635
Hal Morris [Thu, 9 Nov 2000 20:02:00 +0000]
Amdahl UTS hints updates.
Subject: [ID
20001109.016] Trouble going from 5.4 to 5.6
Message-Id: <m13u5OV-000045C@juno.uts.utsglobal.com>
p4raw-id: //depot/perl@7634
Nicholas Clark [Thu, 9 Nov 2000 20:29:45 +0000]
IO::Seekable pod
Message-ID: <
20001109202945.A10451@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@7633
Michael Somos [Mon, 6 Nov 2000 17:44:20 +0000]
Various doc oddball characters.
Subject: [ID
20001106.004] Perl 5.6.0 bugs
Message-Id: <
200011062244.RAA28632@grail.cba.csuohio.edu>
p4raw-id: //depot/perl@7632
John P. Linderman [Thu, 2 Nov 2000 09:37:25 +0000]
Re: bash -c exit and linux hints
Message-Id: <
200011021437.JAA63199@raptor.research.att.com>
p4raw-id: //depot/perl@7631
Nick Ing-Simmons [Thu, 9 Nov 2000 20:34:11 +0000]
Integrate mainline.
p4raw-id: //depot/perlio@7630
Eric Fifer [Thu, 9 Nov 2000 19:26:50 +0000]
Missing dTHXs.
Subject: RE: perl@7595 builds not on cygwin
Message-ID: <
000201c04a83$05ef1660$933570c2@fifer>
p4raw-id: //depot/perl@7629
Jarkko Hietaniemi [Thu, 9 Nov 2000 14:48:27 +0000]
Disable only the tests 99 and 166 for UTF-8 locales.
p4raw-id: //depot/perl@7628
Jarkko Hietaniemi [Thu, 9 Nov 2000 14:40:27 +0000]
There's no =head3.
p4raw-id: //depot/perl@7627
Harri Pasanen [Thu, 9 Nov 2000 14:23:28 +0000]
The generated boot_* headers are wrong. Pickier compiler,
such as KAI C++ will refuse to compile the resulting perlmain.
Subject: [ID
20001109.005] Bug in minimod.pl, perl 5.6.0
Message-Id: <
3A0AA550.26D548A3@trema.com>
p4raw-id: //depot/perl@7626
Prymmer/Kahn [Wed, 8 Nov 2000 22:13:26 +0000]
updates to Porting/pumpkin.pod
Message-ID: <Pine.BSF.4.21.
0011082208390.5584-100000@shell8.ba.best.com>
All except the "cow orker" change.
p4raw-id: //depot/perl@7625
H.Merijn Brand [Thu, 9 Nov 2000 11:05:52 +0000]
Fix for
Subject: [ID
20001109.003] Not OK: perl v5.7.0 +DEVEL7620 on PA-RISC2.0 11.00 (UNINSTALLED)
Message-Id: <
20001109110452.66CF.H.M.BRAND@hccnet.nl>
p4raw-id: //depot/perl@7624
Joe Smith [Thu, 9 Nov 2000 01:33:14 +0000]
Typo in an ifndef.
Subject: Re: [PATCH 5.7.0] better messages from malloc()
Message-Id: <
3A0A6F5A.1E3969BB@inwap.com>
p4raw-id: //depot/perl@7623
Jarkko Hietaniemi [Thu, 9 Nov 2000 13:31:18 +0000]
Remove unused extra arguments.
p4raw-id: //depot/perl@7622
Jarkko Hietaniemi [Thu, 9 Nov 2000 13:16:36 +0000]
More VMS moves on environment handling, from Charles Lane.
p4raw-id: //depot/perl@7621
David Dyck [Wed, 8 Nov 2000 18:36:26 +0000]
patch to detect stat followed by lstat(_): [ID
20001106.006] find2perl generated scripts issue new lstat() on filehandle _ warning
Message-ID: <Pine.LNX.4.30.
0011081817490.177-100000@dd.tc.fluke.com>
p4raw-id: //depot/perl@7620
Jarkko Hietaniemi [Thu, 9 Nov 2000 04:36:21 +0000]
Forgot from #7618.
p4raw-id: //depot/perl@7619
Jarkko Hietaniemi [Thu, 9 Nov 2000 04:28:44 +0000]
Make deleting for %ENV work for (newer versions of) VMS,
from Craig A. Berry.
p4raw-id: //depot/perl@7618
Casey R. Tweten [Wed, 8 Nov 2000 20:46:41 +0000]
Class::Struct at compile time
Message-ID: <Pine.OSF.4.21.
0011082041360.8238-100000@home.kiski.net>
p4raw-id: //depot/perl@7617
Todd T. Fries [Wed, 8 Nov 2000 18:36:42 +0000]
[ID
20001108.013] spelling
Message-Id: <
200011090036.eA90agN05921@fries.int.mrleng.com>
p4raw-id: //depot/perl@7616
Peter Prymmer [Wed, 8 Nov 2000 15:29:06 +0000]
add Encode to VMS build and tests
Message-ID: <Pine.OSF.4.10.
10011081524450.248546-100000@aspara.forte.com>
p4raw-id: //depot/perl@7615
Jarkko Hietaniemi [Wed, 8 Nov 2000 22:42:55 +0000]
A missing aTHX_.
p4raw-id: //depot/perl@7614
Jarkko Hietaniemi [Wed, 8 Nov 2000 19:30:21 +0000]
Update Changes.
p4raw-id: //depot/perl@7613
David Dyck [Wed, 8 Nov 2000 10:05:44 +0000]
is this the appropriate patch to fix: [ID
20001106.006] find2perl generated scripts issue new lstat() on filehandle _ warning
Message-ID: <Pine.LNX.4.30.
0011080957440.2572-100000@dd.tc.fluke.com>
p4raw-id: //depot/perl@7612
Dominic Dunlop [Tue, 7 Nov 2000 12:05:25 +0000]
Re: Patch 7533 prevents malloc.c from compiling on MachTen
Message-Id: <p
04320403b62d8e0870cf@[192.168.1.4]>
p4raw-id: //depot/perl@7611
Jarkko Hietaniemi [Wed, 8 Nov 2000 18:25:14 +0000]
Do not test UTF-8 locales since that the tests would require
polymorphic regexen.
p4raw-id: //depot/perl@7610
Vadim Konovalov [Wed, 8 Nov 2000 20:01:39 +0000]
Locale buglets.
Subject: RE: Locales support (setlocale) fixes
From: "Konovalov, Vadim" <vkonovalov@lucent.com>
Message-ID: <
402099F49BEED211999700805FC7359F825283@ru0028exch01.spb.lucent.com>
p4raw-id: //depot/perl@7609
Jarkko Hietaniemi [Wed, 8 Nov 2000 17:00:16 +0000]
Deleting $ENV{PATH} in VMS is not recommendable.
p4raw-id: //depot/perl@7608
Nicholas Clark [Wed, 8 Nov 2000 15:36:29 +0000]
PATCH std stdio for (Free)BSD
Message-ID: <
20001108153629.D98736@plum.flirble.org>
p4raw-id: //depot/perl@7607
Jarkko Hietaniemi [Wed, 8 Nov 2000 16:43:31 +0000]
Forgot to bump the line numbers in #7601.
p4raw-id: //depot/perl@7606
Nicholas Clark [Wed, 8 Nov 2000 15:14:12 +0000]
More careful detection of how well NVs and UVs mix.
Subject: [PATCH] Re: NV preserving UV (wasRe: [ID
20001007.002] Not OK: perl v5.7.0 +DEVEL7158 on armv4l-linux-64int 2.2.17-rmk1 (UNINSTALLED))
Message-ID: <
20001108151412.B98736@plum.flirble.org>
Added some SIGFPE paranoia.
p4raw-id: //depot/perl@7605
Craig A. Berry [Wed, 8 Nov 2000 00:24:12 +0000]
[patch perl@7595] VMS configure.com tweak
Message-Id: <p
04330103b62e879ceeff@[192.168.56.177]>
p4raw-id: //depot/perl@7604
Robin Barker [Wed, 8 Nov 2000 11:11:39 +0000]
int/ptr casts in perlio.c
Message-Id: <
200011081111.LAA07377@tempest.npl.co.uk>
p4raw-id: //depot/perl@7603
Nick Ing-Simmons [Wed, 8 Nov 2000 13:03:04 +0000]
Fix for the tie-refhash string table leaks.
Message-Id: <
200011081303.NAA07042@mikado.tiuk.ti.com>
p4raw-id: //depot/perl@7602
Jarkko Hietaniemi [Wed, 8 Nov 2000 14:21:08 +0000]
Try to avoid flockless and emulationless places.
p4raw-id: //depot/perl@7601
Casey R. Tweten [Fri, 3 Nov 2000 11:09:12 +0000]
Overrideable keys, each, pop, push, shift, splice, unshift.
Subject: [PATCH] prototyped functions that should be overrideable
Message-ID: <Pine.OSF.4.21.
0011031100470.17471-100000@home.kiski.net>
p4raw-id: //depot/perl@7600
Kurt D. Starsinic [Mon, 6 Nov 2000 21:39:01 +0000]
Make perlbug not insist on dumping to a file when stdout isn't a tty.
Subject: [PATCH] perlbug.PL
Message-ID: <
20001106213901.B20955@O2.chapin.edu>
p4raw-id: //depot/perl@7599
Jarkko Hietaniemi [Tue, 7 Nov 2000 23:42:00 +0000]
Bad thinko in #7581 (I used the test program with the expanded
values as-is).
p4raw-id: //depot/perl@7598
Fifer, Eric [Tue, 7 Nov 2000 18:08:51 +0000]
cygwin port
Message-ID: <
779F20BCCE5AD31186A50008C75D99791717BB@silldn_mail1.sanwaint.com>
Synchronize with Cygwin 1.1.5.
p4raw-id: //depot/perl@7597
Jarkko Hietaniemi [Tue, 7 Nov 2000 21:39:25 +0000]
perlhack updates from H.Merijn Brand.
p4raw-id: //depot/perl@7596
Jarkko Hietaniemi [Tue, 7 Nov 2000 20:21:41 +0000]
Update Changes.
p4raw-id: //depot/perl@7595
Jarkko Hietaniemi [Tue, 7 Nov 2000 19:18:58 +0000]
Be more robust in Dynaloader.pm.
p4raw-id: //depot/perl@7594
Jarkko Hietaniemi [Tue, 7 Nov 2000 16:49:31 +0000]
AUTHORS update.
p4raw-id: //depot/perl@7593
Gurusamy Sarathy [Tue, 7 Nov 2000 16:39:51 +0000]
normalize relative paths in virtualized current directory on windows,
under ithreads (avoids ".." etc showing up in what Cwd::cwd()
returns)
p4raw-id: //depot/perl@7592
Jarkko Hietaniemi [Tue, 7 Nov 2000 16:04:26 +0000]
Too profiler-happy: with optimization the #7590 actually makes
the test to run 0.5% _slower_. Requires much more instrumentation.
Retract #7590.
p4raw-id: //depot/perl@7591
Jarkko Hietaniemi [Tue, 7 Nov 2000 15:51:13 +0000]
Shave off about 5% (Digital UNIX, -g, pixie) of the op/regexp
execution time in regcomp.c S_cl_any() and S_cl_is_anything()
by using memset() and testing bytewise (as opposed to bitwise).
p4raw-id: //depot/perl@7590
Craig A. Berry [Mon, 6 Nov 2000 23:45:30 +0000]
configure.com and st-lock.t changes for
Message-Id: <
0011079735.AA973576259@univpress.com>
p4raw-id: //depot/perl@7589