develooper Front page | perl.perl5.porters | Postings from October 2005

Re: [perl #7941] t/op/split fails step 37

From:
David Dyck
Date:
October 7, 2005 12:30
Subject:
Re: [perl #7941] t/op/split fails step 37
Message ID:
Pine.LNX.4.62.0510071227060.24056@dd.tc.fluke.com

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?
>



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About