summaryrefslogtreecommitdiff
path: root/t/lib/thr5005.t
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2000-12-17 22:49:13 +0000
committerGurusamy Sarathy <gsar@cpan.org>2000-12-17 22:49:13 +0000
commit72d299dbc059aa8efc323c19d871615d0e98af51 (patch)
tree1319ddb1dd05aca22cad2ab9869f9bbc3ae0d947 /t/lib/thr5005.t
parentd6f4130bee95821de6f880b7b61b65d959061959 (diff)
downloadperl-72d299dbc059aa8efc323c19d871615d0e98af51.tar.gz
integrate changes#7069..7077,7079,7081..7087,7090,7092,7093,
7096..7104,7109..7117,7119..7124,7126,7128,7129,7133,7134, 7136..7139,7141..7146,7148,7149,7151,7153..7155,7157,7158, 7160,7161,7164,7165,7169..7178,7180..7191,7193..7197,7199, 7201,7204 from mainline Remove vestiges of tr//CU. Subject: [ID 20000912.009] perlunicode.pod still mentions tr///CU Subject: Re: [ID 20000912.009] perlunicode.pod still mentions tr///CU The return value of setlocale must be copied away. Subject: [ID 20000913.001] Heap corruption in Perl_init_i18nl10n Allow chop() and chomp() to be overridden. Subject: [PATCH] Re: [ID 20000911.006] I can override glob but not chop? Hints optimization. Subject: Minor nit Subject: [PATCH] de-wall t/README Subject: Re: Two advertising clauses need to be removed Batch of UTF-8 patches from Simon Cozens. Fix for a parsing bug, not for the original bug. Subject: Re: [ID 20000910.005] Another segfault with regexes. Compilation warnings and an error. Subject: File::Find 5.7.0 POD nits Subject: [PATCH perl-5.7.0] continued -Wformat support The one that got away. Subject: Re: perl@7078 UTF8-encoded version of 256 is 0xc4 0x80; test that a char is convertable to bytes by checking it doesn't go above 0xc3 Subject: Re: perl@7078 Replace #7084 with Subject: Re: perl@7078 We don't need to count the high bit bytes, a boolean is enough. Subject: [PATCH] utf8.c apidoc Subject: Re: perl@7078 Botched the #7090 check-in. Fix for the charnames.t failures from Spider Boardman. Re-instate Perl_utf8_to_uv without checking parameter - added in change 7075. i.e. rename Simon's function to Perl_utf8_to_uv_chk, change all calls to it to use new name and add Perl_utf8_to_uv() as a wrapper which calls it passing 0 to checking to get the warning. Subject: [PATCH] Nits in perlmod.pod Subject: Re: Trapping by opmask sets strange parser state [PATCH] Subject: Re: unicode support and perl [ID 20000901.097] Subject: Re: unicode support and perl [ID 20000901.097] Subject: [PATCH perl@7065] another VMS my_fwrite() fix for Storable Subject: [PATCH] Re: [ID 20000915.010] Infinite loop with -MO=Deparse Subject: [ID 20000917.002] 5.7.0 and blead@7095 make html makes man Subject: [PATCH@blead] Fix some recursion in overload.pm s/Robin Parker/Robin Barker/ Subject: [PATCH] Fix aliasing of tied filehandles Subject: Re: [ID 20000912.008] substr replacement of tainted data (bug) Subject: Re: [PATCH 5.005_64 missed] SOCK_DGRAM and listen() do not mix as reported in Subject: [ID 20000930.001] Bug in perl 5.00503 IO::Socket The patch for 5.7.0+ had to be reengineered, though. Subject: DOC PATCH 5.6.0 Subject: [PATCH 5.7.0] Minor optimization in re_intuit_start Document the issue (is not a syntax error, kind of) Subject: Re: [ID 20000901.011] the list (1,,3) ought to be a syntax error Subject: [ID 20000928.002] perlcc & ByteCode.pm option mismatch Did not apply cleanly, manual intervention was needed. Subject: [PATCH] DLL not restartabke with threaded perl Inside require() $^S was always left undefined. Subject: Re: Tiny 2-byte change to fix debugger's eval bug Subject: [PATCH pod/perlop.pod] Documentation glitch in magic autoincrement. OpenBSD flags tweak from Todd C. Miller, tweaked some more by Abigail. Regen headers. Subject: [PATCH 5.7.0] Epoc update Introduce NO_ENVIRON_ARRAY (and USE_ENVIRON_ARRAY) defines as suggested by Olaf Flebbe and Nicholas Clark. Subject: [ID 20000915.007] Not OK: perl v5.7.0 +DEVEL7092 on os2-64int-ld 2.30 '(UNINSTALLED)' Misplaced else. Scale down the VMS message boxes, by Charles Lane. Fix for ID 20000903.009, workaround at http://www.xray.mpe.mpg.de/mailing-lists/vmsperl/2000-09/msg00039.html Subject: [ID 20001003.006] B::Debug not -w clean Test harness update to sync with the new perlcc, from Simon Cozens. One remaining nit less at the VMS mailbox sizing. Subject: [PATCH: 7131] PWPASSWD problem for passwd less pwd's It is possible to have no hosts database at all. Pointed out in Subject: [PATCH: 7131] PWPASSWD problem for passwd less pwd's Subject: [PATCH 5.7.0] h2xs not working Subject: [PATCH 5.7.0] h2xs not documenting the created module Subject: [PATCH] 5.6.0 & 5.7.0 VMS TZ fix for VMS6.2 and earlier Subject: perlhack.pod Patch for Externals Tools Subject: [PATCH perlrun.pod] Re: [ID 20000930.002] perlrun nor perldelta mention -s modification Subject: Re: [PATCH 5.7.0] h2xs not documenting the created module Enable disabling scripts installation by Configure -Uinstallscripts, suggested by H. Merijn Brand. Code around the stat-on-a-pipe-returns-a-mode-of-zero bug reported several times by Dominic Dunlop, for example in ID 20000315.008. Patch from Dominic. Patch affects at least MachTen, and possibly other oldish BSDs. Should not break non-broken platforms (tested on LinuxPPC). Regen toc. Subject: Re: Questions about Tie::Array and perl modules Bug reported and fix suggested by Philip D Crow <pcrow@hertz.com>. Patch from Simon Cozens to avoid using utf8 routines in EBCDIC. Tweak #7153. IO::Handle->syswrite() did not handle length omission like CORE::syswrite() does. Subject: [Fwd] IO::Handle, syswrite and arguments The original patch from andrew@ugh.net.au. Also the $ccflags is needed for the C compiler check. Subject: Configure (check for C-compiler) Eliminate $Is_VMS code from the test. Subject: Re: [ID 20001004.005] Not OK: perl v5.7.0 +DEVEL7129 on VMS_AXP V7.1 Fix bug in #7157 (s/cflags/ccflags); moved the -o foo as the first option of cc/ld because of ultrapicky compilers (e.g. OS/390 R2.5) Change the version number of Tie::Handle in the core to 4.0, the (unrelated) Tie::Handle in CPAN will remain at 3.0. Subject: Note on Tie::Handle UTF8ize split() so that the cloned substrings get the UTF8 flag of the original scalar. Problem reported by Simon Cozens. save_re_context() could reset PL_curcop to freed memory, causing core dumps in code such as C<use CGI::Carp; use something_that_calls_die;> Subject: PATCH 5.6 perldebguts grammar cleanup Add a todo note about overloadable assertions. on Windows, LoadLibrary() could load an extension DLL multiple times if forward slashes are used in the path on Windows, cwd strings in the environment should be of the form =X:=X:\foo instead of =X=X:\foo\ on Windows, avoid potential exception (could happen if MSVCRT isn't being used) when closing a socket handle avoid nonportable example code Windows9x doesn't support link(), despite what Config.pm might think pod nit Change #7160 had a nasty typo. Warn about unknown scripts. Subject: Re: ideas? patches? [PATCH bleadperl] on Windows, clean targets might not work under some flavors of the shell tweak for change#7173 Make eq work again with utf8 (disabling the upgrading should no more be necessary since the copies of the scalars are upgraded, not the scalars themselves). Takes care of ID 20001009.001. (The claimed length() bug in 20001009.001 seems bogus to me.) Subject: [PATCH: perl@7159] various VMS cleanup issues + CXX configure Upgrade to CGI.pm 2.74, from Lincoln Stein. Upgrade to podlators 1.04, from Russ Allbery. Subject: [PATCH 5.6.0] Re: [ID 20001009.004] SEGV from sprintf in a thread Quote the temp file name, needed in Win32 because the default name unfortunately contains spaces, shouldn't hurt elsewhere. Subject: FW: perldoc fails if $TEMP contains spaces Subject: RE: [ID 19990803.001] README.win32 suggestions Subject: [ID 20000720.004] ExtUtils::MakeMaker finds wrong version of perl Subject: Re: utf8 concat, mg_get Subject: [PATCH: perl@7181] perlebcdic.pod updates and corrections Subject: [PATCH: perl@7181] op/tr tests on OS/390 Subject: [PATCH: perl@7181] ver.t v string tests for os/390 Use the versiononly instead of the installscripts, retract the changes 7146 and 7147. Reapply Andy's patch and regen Configure. Add the test case for #7190, from the original bug report by Andreas König. Remove duplicated code. SvPV() (via mg_get() of sv_2pv()) can update the UTF8ness of the SVs. restore change#7202 p4raw-link: @7202 on //depot/perl: c3fbb29af1dd039d12fa65f0dc334e804a3883fc p4raw-link: @7173 on //depot/perl: a10b7b7eee64efea010bfdba91243503341ba68d p4raw-link: @7087 on //depot/perl: b6b716fe3a82a1de9cf94c1d43c790a87a9ece17 p4raw-link: @7081 on //depot/perl: d2560b705d852dbc96fd94b95faaa076758b7a8c p4raw-link: @7079 on //depot/perl: f10e15646b76a57d224bd131f4c70a7a72147171 p4raw-link: @7077 on //depot/perl: 00df9076cdf35146bc1b44c688065deb7ae6b3ae p4raw-link: @7069 on //depot/perl: 383e7cdd17eec132ddb7b17dd6275f3153cbe989 p4raw-id: //depot/maint-5.6/perl@8156 p4raw-integrated: from //depot/perl@8153 'copy in' epoc/epoc_stubs.c epoc/link.pl (@4782..) ext/IO/lib/IO/Socket/UNIX.pm (@4860..) lib/File/Copy.pm (@5349..) ext/DynaLoader/dl_dlopen.xs (@5384..) util.h (@6347..) epoc/createpkg.pl (@6363..) pp.sym pp_proto.h (@6434..) lib/AutoLoader.pm (@6456..) pod/perldata.pod (@6548..) ext/B/B/Bytecode.pm (@6763..) ext/ByteLoader/bytecode.h (@6859..) hints/os2.sh (@6873..) t/lib/cgi-form.t t/op/substr.t t/op/tiehandle.t t/pragma/subs.t (@6874..) opcode.h (@7016..) lib/Tie/Handle.pm (@7022..) Todo-5.6 (@7068..) epoc/epocish.h (@7124..) vms/vmsish.h (@7126..) p4raw-integrated: from //depot/perl@7204 'edit in' mg.c (@7203..) p4raw-integrated: from //depot/perl@7201 'copy in' t/pragma/utf8.t (@7197..) 'edit in' pp_hot.c (@7200..) p4raw-integrated: from //depot/perl@7199 'copy in' t/lib/cgi-html.t (@7184..) p4raw-integrated: from //depot/perl@7196 'copy in' INSTALL Porting/Glossary Porting/config.sh epoc/config.sh installperl vos/config.def win32/config.bc win32/config.gc win32/config.vc (@7195..) 'edit in' Configure Makefile.SH (@7195..) 'ignore' config_h.SH (@7195..) p4raw-integrated: from //depot/perl@7195 'copy in' Porting/config_H (@7146..) p4raw-integrated: from //depot/perl@7194 'copy in' t/op/ver.t (@6874..) p4raw-integrated: from //depot/perl@7193 'merge in' t/op/tr.t (@6874..) p4raw-integrated: from //depot/perl@7191 'copy in' pod/perlebcdic.pod (@7001..) p4raw-integrated: from //depot/perl@7189 'copy in' lib/ExtUtils/MM_Unix.pm (@7054..) p4raw-integrated: from //depot/perl@7188 'copy in' README.win32 (@6021..) p4raw-integrated: from //depot/perl@7187 'copy in' utils/perldoc.PL (@6887..) p4raw-integrated: from //depot/perl@7186 'copy in' t/lib/thr5005.t (@6874..) 'edit in' util.c (@7126..) p4raw-integrated: from //depot/perl@7185 'copy in' lib/Pod/Man.pm lib/Pod/Text.pm (@7047..) p4raw-integrated: from //depot/perl@7184 'copy in' lib/CGI.pm (@6722..) p4raw-integrated: from //depot/perl@7183 'copy in' configure.com vms/descrip_mms.template (@7058..) vms/vms.c (@7142..) p4raw-integrated: from //depot/perl@7182 'edit in' sv.c (@7163..) p4raw-integrated: from //depot/perl@7181 'copy in' win32/win32sck.c (@7173..) p4raw-integrated: from //depot/perl@7180 'merge in' win32/Makefile win32/makefile.mk (@6737..) p4raw-integrated: from //depot/perl@7178 'copy in' lib/charnames.pm (@5821..) p4raw-integrated: from //depot/perl@7176 'copy in' pod/perlport.pod (@6917..) p4raw-integrated: from //depot/perl@7175 'copy in' lib/ExtUtils/Manifest.pm (@4954..) p4raw-integrated: from //depot/perl@7173 'copy in' win32/win32.h (@6939..) win32/win32.c (@7171..) p4raw-integrated: from //depot/perl@7172 'copy in' win32/vdir.h (@6318..) p4raw-integrated: from //depot/perl@7169 'copy in' pod/perldebguts.pod (@7114..) p4raw-integrated: from //depot/perl@7165 'edit in' pp_ctl.c (@7156..) p4raw-integrated: from //depot/perl@7164 'edit in' pp.c (@7096..) p4raw-integrated: from //depot/perl@7158 'copy in' t/lib/b.t (@6874..) p4raw-integrated: from //depot/perl@7155 'copy in' ext/IO/lib/IO/Handle.pm (@6553..) p4raw-integrated: from //depot/perl@7154 'copy in' utf8.h (@7153..) p4raw-integrated: from //depot/perl@7151 'copy in' lib/Tie/Array.pm (@5507..) t/op/array.t (@5989..) p4raw-integrated: from //depot/perl@7149 'copy in' pod/perltoc.pod (@7001..) p4raw-integrated: from //depot/perl@7148 'copy in' doio.c (@6532..) p4raw-integrated: from //depot/perl@7145 'copy in' utils/h2xs.PL (@7141..) p4raw-integrated: from //depot/perl@7144 'copy in' pod/perlrun.pod (@6547..) p4raw-integrated: from //depot/perl@7143 'copy in' pod/perlhack.pod (@6922..) p4raw-integrated: from //depot/perl@7138 'edit in' pp_sys.c (@7124..) p4raw-integrated: from //depot/perl@7136 'copy in' t/UTEST (@4092..) t/TEST (@7064..) p4raw-integrated: from //depot/perl@7134 'copy in' ext/B/B/Debug.pm (@4546..) p4raw-integrated: from //depot/perl@7128 'copy in' os2/os2ish.h (@6915..) p4raw-integrated: from //depot/perl@7126 'edit in' perl.h (@7124..) 'merge in' unixish.h (@6343..) p4raw-integrated: from //depot/perl@7124 'copy in' epoc/epoc.c (@4782..) README.epoc (@6363..) lib/Cwd.pm (@6862..) 'edit in' perl.c (@7119..) p4raw-integrated: from //depot/perl@7123 'edit in' embed.h pod/perlapi.pod (@7096..) p4raw-integrated: from //depot/perl@7122 'copy in' hints/openbsd.sh (@5868..) p4raw-integrated: from //depot/perl@7121 'copy in' pod/perlop.pod (@7027..) p4raw-integrated: from //depot/perl@7120 'copy in' cop.h (@6909..) p4raw-integrated: from //depot/perl@7117 'copy in' utils/perlcc.PL (@6523..) p4raw-integrated: from //depot/perl@7115 'copy in' regexec.c (@7096..) p4raw-integrated: from //depot/perl@7112 'copy in' pod/perlxs.pod (@7061..) p4raw-integrated: from //depot/perl@7111 'copy in' opcode.pl (@6553..) 'edit in' op.c (@7096..) p4raw-integrated: from //depot/perl@7109 'merge in' Changes5.6 (@5903..) p4raw-integrated: from //depot/perl@7104 'copy in' lib/overload.pm (@7012..) 'merge in' t/pragma/overload.t (@6983..) p4raw-integrated: from //depot/perl@7103 'merge in' pod/Makefile.SH (@6714..) p4raw-integrated: from //depot/perl@7102 'copy in' ext/B/B/Deparse.pm (@6880..) p4raw-integrated: from //depot/perl@7100 'copy in' t/op/append.t (@6719..) p4raw-integrated: from //depot/perl@7098 'edit in' toke.c (@7096..) p4raw-integrated: from //depot/perl@7097 'copy in' pod/perlmod.pod (@6007..) p4raw-integrated: from //depot/perl@7096 'copy in' handy.h (@7075..) regcomp.c (@7081..) 'edit in' doop.c (@7075..) perlapi.c utf8.c (@7087..) embed.pl proto.h (@7091..) 'merge in' global.sym objXSUB.h (@7016..) p4raw-integrated: from //depot/perl@7083 'copy in' t/op/bop.t (@6874..) p4raw-integrated: from //depot/perl@7082 'copy in' lib/File/Find.pm (@7079..) p4raw-integrated: from //depot/perl@7081 'copy in' Porting/pumpkin.pod (@5084..) malloc.c (@5651..) ext/Devel/Peek/Peek.xs (@5716..) universal.c (@5924..)
Diffstat (limited to 't/lib/thr5005.t')
-rwxr-xr-xt/lib/thr5005.t17
1 files changed, 15 insertions, 2 deletions
diff --git a/t/lib/thr5005.t b/t/lib/thr5005.t
index 057a08fe7d..680e1af3e7 100755
--- a/t/lib/thr5005.t
+++ b/t/lib/thr5005.t
@@ -13,7 +13,7 @@ BEGIN {
$ENV{PERL_DESTRUCT_LEVEL} = 0 unless $ENV{PERL_DESTRUCT_LEVEL} > 3;
}
$| = 1;
-print "1..21\n";
+print "1..22\n";
use Thread 'yield';
print "ok 1\n";
@@ -89,6 +89,18 @@ my $long = "This is short.";
my $longe = " short.";
my $thr1 = new Thread \&threaded, $short, $shorte, "19";
my $thr2 = new Thread \&threaded, $long, $longe, "20";
+my $thr3 = new Thread \&testsprintf, "21";
+
+sub testsprintf {
+ my $testno = shift;
+ # this may coredump if thread vars are not properly initialised
+ my $same = sprintf "%.0f", $testno;
+ if ($testno eq $same) {
+ print "ok $testno\n";
+ } else {
+ print "not ok $testno\t# '$testno' ne '$same'\n";
+ }
+}
sub threaded {
my ($string, $string_end, $testno) = @_;
@@ -115,4 +127,5 @@ EOT
}
$thr1->join;
$thr2->join;
-print "ok 21\n";
+$thr3->join;
+print "ok 22\n";