Re: Smoke [blead] v5.26.0-859-g7bd9fb107e FAIL(X) os/390 25.00 (2964/)
[email protected] (Karl Williamson) Fri, 6 Oct 2017 18:39:57 -0600
| Newsgroups | perl.mvs,perl.perl5.porters,perl.daily-build.reports |
|---|---|
| Message-ID | <[email protected]> |
--------------E95C2C605FF3B20FE30CB2E4 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: quoted-printable Thanks.=C2=A0 That narrows it down to where I wasn't expecting. Attached = is=20 another version for you to try, with more debugging in it. That bg_bg locale sounds familiar, like it is problematic,and I found a=20 reference to it in t/lib.t. '[' is the lower case of O with cd t PERL_DEBUG_FULL_TEST=3D2 ./perl -I../lib -T ../lib/locale.t that should point out all the cases like this, and which could be=20 causing this problem.=C2=A0 there are other cases we skip becuase of=20 defective locale, andthis might be a new instance of that. On 10/06/2017 05:30 AM, Yaroslav Kuzmin wrote: > Maybe add debug information in function XS_I18N__Langinfo_langinfo() = on Langinfo.xs file ? > > Output debug information > > (07:23) RS12 : PDKUZM | ~/ussport/perl/perl-build/ext/I18N-Langinfo > :> ../../perl -I../../lib -T t/Langinfo_d.t > 1..38 > ok 1 - use I18N::Langinfo; > ok 2 - calling langinfo() with ABDAY_1 > ok 3 - checking if the returned string is defined > ok 4 - checking if the returned string has a positive length > ok 5 - calling langinfo() with DAY_1 > ok 6 - checking if the returned string is defined > ok 7 - checking if the returned string has a positive length > ok 8 - calling langinfo() with ABMON_1 > ok 9 - checking if the returned string is defined > ok 10 - checking if the returned string has a positive length > ok 11 - calling langinfo() with MON_1 > ok 12 - checking if the returned string is defined > ok 13 - checking if the returned string has a positive length > ok 14 - calling langinfo() with RADIXCHAR > ok 15 - checking if the returned string is defined > ok 16 - checking if the returned string has a positive length > ok 17 - calling langinfo() with AM_STR > ok 18 - checking if the returned string is defined > ok 19 - checking if the returned string has a positive length > ok 20 - calling langinfo() with THOUSEP > ok 21 # skip returned string was empty, skipping next two tests > ok 22 # skip returned string was empty, skipping next two tests > ok 23 - calling langinfo() with D_T_FMT > ok 24 - checking if the returned string is defined > ok 25 - checking if the returned string has a positive length > ok 26 - calling langinfo() with D_FMT > ok 27 - checking if the returned string is defined > ok 28 - checking if the returned string has a positive length > ok 29 - calling langinfo() with T_FMT > ok 30 - checking if the returned string is defined > ok 31 - checking if the returned string has a positive length > ok 32 - ABDAY_1 =3D> 'Sun' > ok 33 - ABMON_1 =3D> 'Jan' > ok 34 - DAY_1 =3D> 'Sunday' > ok 35 - MON_1 =3D> 'January' > ok 36 - RADIXCHAR =3D> '.' > ok 37 - THOUSEP =3D> '' > # Trying bg_bg > CEE3204S The system detected a protection exception (System Completion = Code=3D0C4). > From compile unit /u/pdkuzm/ussport/perl/perl-build/sv.c at e= ntry point Perl_newSVpv at statement 9410 at > compile unit offset +00000134 at entry offset +00000134 at ad= dress 214C97FC. > Segmentation fault > > > -------- =D0=98=D1=81=D1=85=D0=BE=D0=B4=D0=BD=D0=BE=D0=B5 =D1=81=D0=BE=D0= =BE=D0=B1=D1=89=D0=B5=D0=BD=D0=B8=D0=B5 -------- > =D0=9E=D1=82: Karl Williamson <[email protected]> > =D0=9A=D0=BE=D0=BC=D1=83: Yaroslav Kuzmin <[email protected]>,= [email protected] <[email protected]>, [email protected] <perl5-por= [email protected]> > =D0=9A=D0=BE=D0=BF=D0=B8=D1=8F: [email protected] <daily-bui= [email protected]> > =D0=A2=D0=B5=D0=BC=D0=B0: Re: Smoke [blead] v5.26.0-859-g7bd9fb107e FAI= L(X) os/390 25.00 (2964/) > =D0=94=D0=B0=D1=82=D0=B0: Thu, 5 Oct 2017 08:25:16 -0600 > > On 10/05/2017 12:18 AM, Yaroslav Kuzmin wrote: >> The attached file does not have extra debugging info. > Oops. Sorry. I attached a version either from a wrong work space or > had git stashed it before I sent it. The one attached to this email > should have the extra debugging. >> >> -------- =D0=98=D1=81=D1=85=D0=BE=D0=B4=D0=BD=D0=BE=D0=B5 =D1=81=D0=BE= =D0=BE=D0=B1=D1=89=D0=B5=D0=BD=D0=B8=D0=B5 -------- >> *=D0=9E=D1=82*: Karl Williamson <[email protected] >> <mailto:Karl%20Williamson%20%[email protected]%3e>> >> *=D0=9A=D0=BE=D0=BC=D1=83*: Yaroslav Kuzmin <[email protected]= m >> <mailto:Yaroslav%20Kuzmin%20%[email protected]%3e>>, >> [email protected] <[email protected] >> <mailto:%[email protected]%22%20%[email protected]%3e>>, >> [email protected] <[email protected] >> <mailto:%[email protected]%22%20%[email protected]%3e>> >> *=D0=9A=D0=BE=D0=BF=D0=B8=D1=8F*: [email protected] <daily-= [email protected] >> <mailto:%[email protected]%22%20%3cdaily-build-reports@pe= rl.org%3e>> >> *=D0=A2=D0=B5=D0=BC=D0=B0*: Re: Smoke [blead] v5.26.0-859-g7bd9fb107e = FAIL(X) os/390 25.00 >> (2964/) >> *=D0=94=D0=B0=D1=82=D0=B0*: Tue, 3 Oct 2017 22:54:13 -0600 >> >> On 10/03/2017 05:44 AM, Yaroslav Kuzmin wrote: >>> Dump attachment >> Thanks. Please try the attached Langinfo.t, which has extra debugging >> info to see what happens. >> >> >>> (07:44) RS12 : PDKUZM | ~/ussport/perl/perl-build/ext/I18N-Langinfo := > >>> ../../perl -I../../lib -T t/Langinfo.t 1..38 ok 1 - use >>> I18N::Langinfo; ok 2 - calling langinfo() with ABDAY_1 ok 3 - checkin= g >>> if the returned string is defined ok 4 - checking if the returned >>> string has a positive length ok 5 - calling langinfo() with DAY_1 ok = 6 >>> - checking if the returned string is defined ok 7 - checking if the >>> returned string has a positive length ok 8 - calling langinfo() with >>> ABMON_1 ok 9 - checking if the returned string is defined ok 10 - >>> checking if the returned string has a positive length ok 11 - calling >>> langinfo() with MON_1 ok 12 - checking if the returned string is >>> defined ok 13 - checking if the returned string has a positive length >>> ok 14 - calling langinfo() with RADIXCHAR ok 15 - checking if the >>> returned string is defined ok 16 - checking if the returned string ha= s >>> a positive length ok 17 - calling langinfo() with AM_STR ok 18 - >>> checking if the returned string is defined ok 19 - checking if the >>> returned string has a positive length ok 20 - calling langinfo() with >>> THOUSEP ok 21 # skip returned string was empty, skipping next two >>> tests ok 22 # skip returned string was empty, skipping next two tests >>> ok 23 - calling langinfo() with D_T_FMT ok 24 - checking if the >>> returned string is defined ok 25 - checking if the returned string ha= s >>> a positive length ok 26 - calling langinfo() with D_FMT ok 27 - >>> checking if the returned string is defined ok 28 - checking if the >>> returned string has a positive length ok 29 - calling langinfo() with >>> T_FMT ok 30 - checking if the returned string is defined ok 31 - >>> checking if the returned string has a positive length ok 32 - ABDAY_1 >>> =3D> 'Sun' ok 33 - ABMON_1 =3D> 'Jan' ok 34 - DAY_1 =3D> 'Sunday' ok = 35 - >>> MON_1 =3D> 'January' ok 36 - RADIXCHAR =3D> '.' ok 37 - THOUSEP =3D> = '' >>> CEE3204S The system detected a protection exception (System Completio= n >>> Code=3D0C4). From compile unit >>> /u/pdkuzm/ussport/perl/perl-build/sv.c at entry point Perl_newSVpv at >>> statement 9410 at compile unit offset +00000134 at entry >>> offset +00000134 at address 214C97FC. Segmentation fault -------- >>> =D0=98=D1=81=D1=85=D0=BE=D0=B4=D0=BD=D0=BE=D0=B5 =D1=81=D0=BE=D0=BE=D0= =B1=D1=89=D0=B5=D0=BD=D0=B8=D0=B5 -------- *=D0=9E=D1=82*: Karl Williamso= n >>> <[email protected] <mailto:[email protected]> >>> <mailto:Karl%20Williamson%20%[email protected]%3e>> *=D0=9A=D0= =BE=D0=BC=D1=83*: >>> Yaroslav Kuzmin <[email protected] >>> <mailto:[email protected]> >>> <mailto:Yaroslav%20Kuzmin%20%[email protected]%3e>>, >>> [email protected] <mailto:[email protected]> <[email protected] >>> <mailto:[email protected]> >>> <mailto:%[email protected]%22%20%[email protected] >>> <mailto:%22%20%[email protected]>%3e>>, [email protected] >>> <mailto:[email protected]> <[email protected] >>> <mailto:[email protected]> >>> <mailto:%[email protected]%22%20%[email protected] >>> <mailto:%22%20%[email protected]>%3e>> *=D0=9A=D0=BE=D0=BF=D0=B8= =D1=8F*: >>> [email protected] <mailto:[email protected]> >>> <[email protected] <mailto:[email protected]> >>> <mailto:%[email protected]%22%20%3cdaily-build-reports@p= erl.org >>> <mailto:%22%20%[email protected]>%3e>> *=D0=A2=D0=B5=D0=BC= =D0=B0*: Re: Smoke >>> [blead] v5.26.0-859-g7bd9fb107e FAIL(X) os/390 25.00 (2964/) *=D0=94=D0= =B0=D1=82=D0=B0*: >>> Tue, 19 Sep 2017 09:24:46 -0600 On 09/12/2017 02:47 AM, Yaroslav >>> Kuzmin wrote: >>>> Smoke log available at >>>> https://drive.google.com/file/d/0B5PTttxwo7qARVAzdGo5SDFFRWs >>>> Automated smoke report for branch blead 5.27.4 patch >>>> 7bd9fb107eaf8df3da9ce46c89920f8da72c76ab v5.26.0-859-g7bd9fb107e >>> The new failure in this report is CEE3204S The system detected a >>> protection exception (System Completion Code=3D0C4). From entry point >>> Perl_newSVpv at compile unit offset +000000B8 at entry offset >>> +000000B8 at address 2124CF20. ext/I18N-Langinfo/t/Langinfo >>> .................................. FAILED--expected 38 tests, saw 37 >>> From looking at the internet on this, this looks like what's called = a >>> segfault in Unix. I looked at the code and I don't see anything wrong= . >>> Any ideas? =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D Rocket Software, Inc. and >>> subsidiaries =E2=96=A0 77 Fourth Avenue, Waltham MA 02451 =E2=96=A0 M= ain Office Toll >>> Free Number: +1 877.328.2932 Contact Customer Support: >>> https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport >>> Unsubscribe from Marketing Messages/Manage Your Subscription >>> Preferences - >>> http://www.rocketsoftware.com/manage-your-email-preferences Privacy >>> Policy - http://www.rocketsoftware.com/company/legal/privacy-policy >>> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D This communication and any >>> attachments may contain confidential information of Rocket Software, >>> Inc. All unauthorized use, disclosure or distribution is prohibited. >>> If you are not the intended recipient, please notify Rocket Software >>> immediately and destroy all copies of this communication. Thank you. >> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D >> Rocket Software, Inc. and subsidiaries =E2=96=A0 77 Fourth Avenue, Wal= tham MA >> 02451 =E2=96=A0 Main Office Toll Free Number: +1 877.328.2932 >> Contact Customer Support: >> https://my.rocketsoftware.com/RocketCommunity/RCEmailSupport >> Unsubscribe from Marketing Messages/Manage Your Subscription Preferenc= es >> - http://www.rocketsoftware.com/manage-your-email-preferences >> Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-p= olicy >> =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D >> >> This communication and any attachments may contain confidential >> information of Rocket Software, Inc. All unauthorized use, disclosure = or >> distribution is prohibited. If you are not the intended recipient, >> please notify Rocket Software immediately and destroy all copies of th= is >> communication. Thank you. >> > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D > Rocket Software, Inc. and subsidiaries =E2=96=A0 77 Fourth Avenue, Walt= ham MA 02451 =E2=96=A0 Main Office Toll Free Number: +1 877.328.2932 > Contact Customer Support: https://my.rocketsoftware.com/RocketCommunity= /RCEmailSupport > Unsubscribe from Marketing Messages/Manage Your Subscription Preference= s - http://www.rocketsoftware.com/manage-your-email-preferences > Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-po= licy > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D > > This communication and any attachments may contain confidential informa= tion of Rocket Software, Inc. All unauthorized use, disclosure or distrib= ution is prohibited. If you are not the intended recipient, please notify= Rocket Software immediately and destroy all copies of this communication= . Thank you. --------------E95C2C605FF3B20FE30CB2E4 Content-Type: application/x-perl; name="Langinfo.t" Content-Transfer-Encoding: 7bit Content-Disposition: attachment; filename="Langinfo.t" #!perl -T use strict; use Config; use Test::More; require "../../t/loc_tools.pl"; plan skip_all => "I18N::Langinfo or POSIX unavailable" if $Config{'extensions'} !~ m!\bI18N/Langinfo\b!; my @constants = qw(ABDAY_1 DAY_1 ABMON_1 MON_1 RADIXCHAR AM_STR THOUSEP D_T_FMT D_FMT T_FMT); my %want = ( ABDAY_1 => "Sun", DAY_1 => "Sunday", ABMON_1 => "Jan", MON_1 => "January", RADIXCHAR => ".", THOUSEP => "", ); my @want = sort keys %want; plan tests => 1 + 3 * @constants + keys(@want) + 1; use_ok('I18N::Langinfo', 'langinfo', @constants); use POSIX; setlocale(LC_ALL, "C"); for my $constant (@constants) { SKIP: { my $string = eval { langinfo(eval "$constant()") }; is( $@, '', "calling langinfo() with $constant" ); skip "returned string was empty, skipping next two tests", 2 unless $string; ok( defined $string, "checking if the returned string is defined" ); cmp_ok( length($string), '>=', 1, "checking if the returned string has a positive length" ); } } for my $i (1..@want) { my $try = $want[$i-1]; eval { I18N::Langinfo->import($try) }; SKIP: { skip "$try not defined", 1, if $@; no strict 'refs'; is (langinfo(&$try), $want{$try}, "$try => '$want{$try}'"); } } $|=1; my $comma_locale; for (find_locales( [ 'LC_NUMERIC' ] )) { use POSIX; use locale; $^D |= 67108864 | 1048576 ; diag __FILE__ . ": " .__LINE__ . ": Trying $_"; setlocale(LC_NUMERIC, $_) or next; diag __FILE__ . ": " .__LINE__ . ": set LC_NUMERIC to $_"; my $in = 4.2; # avoid any constant folding bugs my $s = sprintf("%g", $in); diag __FILE__ . ": " .__LINE__ . ": did sprintf"; if ($s eq "4,2") { $comma_locale = $_; diag __FILE__ . ": " .__LINE__ . ": had comma"; last; } } SKIP: { skip "Couldn't find a locale with a comma decimal pt", 1 unless $comma_locale; #no strict 'refs'; diag __FILE__ . ": " .__LINE__ . ": calling langinfo()"; is (langinfo(RADIXCHAR()), ",", "Returns ',' for decimal pt for locale '$comma_locale'"); } --------------E95C2C605FF3B20FE30CB2E4--