Front page | perl.perl5.porters |
Postings from February 2011
On Wed, 23 Feb 2011, Nicholas Clark wrote:
> On Wed, Feb 23, 2011 at 05:48:00AM -0500, George Greer wrote:
>> Smoke logs available at http://m-l.org/~perl/smoke/perl/
>>
>> Automated smoke report for 5.13.10 patch 5001101ebe18f10209cd63e4fea4b4663c0bc765 v5.13.10-52-g5001101
>
>> v5.13.10-52-g5001101 Configuration (common) none
>> ----------- ---------------------------------------------------------
>> O O
>> O O -Duselargefiles
>> F F -Duseithreads
>> F F -Duseithreads -Duselargefiles
>> | +--------- -DDEBUGGING
>> +----------- no debugging
>
>> ../t/op/magic.t.............................................FAILED
>> 50-53
>
> Your smoker's log shows:
>
> # PROG:
> # use strict qw(vars subs);
> # my $symbol = 'powie::!';
> # ;
> # 1 if %{$symbol};
> # print scalar %Errno::;
> # EXPECTED:
> # 0
> # GOT:
> # STATUS: -1
> # Failed at op/magic.t line 457
> # PROG:
> # use strict qw(vars subs);
> # my $symbol = 'powie::!';
> # $$symbol;;
> # 1 if %{$symbol};
> # print scalar %Errno::;
> # EXPECTED:
> # 0
> # GOT:
> # STATUS: -1
> # Failed at op/magic.t line 457
> # PROG:
> # use strict qw(vars subs);
> # my $symbol = 'powie::+';
> # ;
> # 1 if %{$symbol};
> # print scalar %Tie::Hash::NamedCapture::;
> # EXPECTED:
> # 0
> # GOT:
> # STATUS: -1
> # Failed at op/magic.t line 457
> # PROG:
> # use strict qw(vars subs);
> # my $symbol = 'powie::+';
> # $$symbol;;
> # 1 if %{$symbol};
> # print scalar %Tie::Hash::NamedCapture::;
> # EXPECTED:
> # 0
> # GOT:
> # STATUS: -1
> # Failed at op/magic.t line 457
> op/magic.t ........................................................
> Failed 4/87 subtests
> (less 9 skipped subtests: 74 okay)
>
> I can't see what the problem is, so don't know how to fix it.
> Particularly, I can't work out why this passes without threads, but fails
> with threads.
One of the prior tests blows away %ENV.
- - - 8< - - - 8< - - -
# test case-insignificance of %ENV (these tests must be enabled only
# when perl is compiled with -DENV_IS_CASELESS)
SKIP: {
skip('no caseless %ENV support', 4) unless $Is_MSWin32 || $Is_NetWare;
%ENV = ();
$ENV{'Foo'} = 'bar';
$ENV{'fOo'} = 'baz';
is scalar(keys(%ENV)), 1;
ok exists $ENV{'FOo'};
is delete $ENV{'foO'}, 'baz';
is scalar(keys(%ENV)), 0;
}
- - - 8< - - - 8< - - -
If I skip the test above (in this case, via goto) then the fresh_perl
tests pass.
--
George Greer
Thread Previous
|
Thread Next