Front page | perl.perl5.porters |
Postings from October 2005
I haven't had a problem with this patch since it was applied.
If you undo the patch (as I just tried moments ago), you get
the error again.
The problem was that some more test cases were added (but
the string "my $s", was inside the braces, so $s wasn't
around when test 37 tried to reference it.
> ... could someone verify this and if confirmed, could
> the ticket be closed?
What more verification is needed -- close the ticket.
David
On Thu, 6 Oct 2005 at 11:54 -0700, Steven Schubiger via RT <perlbug-followu...:
> From: Steven Schubiger via RT <perlbug-followup@perl.org>
> To: dcd
> Date: Thu, 06 Oct 2005 11:54:20 -0700
> Subject: [perl #7941] t/op/split fails step 37
>
>> [dcd@tc.fluke.com - Mon Nov 26 13:53:17 2001]:
>>
>> t/op/split..........................FAILED at test 37
>>
>> the following patch allows it to pass
>>
>> --- t/op/split.t.dist Mon Nov 26 19:10:54 2001
>> +++ t/op/split.t Mon Nov 26 21:50:05 2001
>> @@ -193,12 +193,13 @@
>> }
>>
>> {
>> + my $s = "\x20\x40\x{80}\x{100}\x{80}\x40\x20";
>> +
>> if (ord('A') == 193) {
>> print "ok 36 # Skip: EBCDIC\n";
>> } else {
>> # bug id 20000426.003
>>
>> - my $s = "\x20\x40\x{80}\x{100}\x{80}\x40\x20";
>>
>> my ($a, $b, $c) = split(/\x40/, $s);
>> print "not "
>
> Proposed changes seem to be merged in and no failure at the propagated
> place occured to me; could someone verify this and if confirmed, could
> the ticket be closed?
>