develooper Front page | perl.perl5.porters | Postings from November 2006

Re: Trouble with PERLIO_INIT/PERLIO_TERM changes

Thread Previous
From:
Steve Hay
Date:
November 29, 2006 08:45
Subject:
Re: Trouble with PERLIO_INIT/PERLIO_TERM changes
Message ID:
456DB8ED.3070609@uk.radan.com
demerphq wrote:
> On 11/29/06, Steve Hay <steve.hay@uk.radan.com> wrote:
>> I've found that my Win32-SharedFileOpen module currently fails a bunch
>> of tests using bleadperl: the test scripts croak with the error:
>>
>> refcnt_dec: fd 3: 0 <= 0
>>
> 
> Uh, useless datapoint maybe, but why wouldnt Win32API::File fail
> similarly? It supports shared file opens as well...

Because the failure is nothing to do with the "sharing" bit, it is 
something wrong with PerlIO. Win32API::File obviously uses PerlIO 
differently and doesn't trip over the problem.

The attached Foo module is a reproduction of the problem that I'm having 
but now using the plain fopen() function instead of Microsoft's fsopen() 
function. Of course, that makes it a completely useless module, but it 
serves to illustrate the problem.

Using perl-5.8.8 (and bleadperl prior to #29060) the test script in this 
Foo module outputs:

OK

Using bleadperl from #29074 onwards it now croaks with the output:

refcnt_dec: fd 3: 0 <= 0
refcnt_dec: fd 3: 0 <= 0
refcnt_dec: fd 3: 0 <= 0

-- 


------------------------------------------------
Radan Computational Ltd.

The information contained in this message and any files transmitted with it are confidential and intended for the addressee(s) only. If you have received this message in error or there are any problems, please notify the sender immediately. The unauthorized use, disclosure, copying or alteration of this message is strictly forbidden. Note that any views or opinions presented in this email are solely those of the author and do not necessarily represent those of Radan Computational Ltd. The recipient(s) of this message should check it and any attached files for viruses: Radan Computational will accept no liability for any damage caused by any virus transmitted by this email.

Thread Previous


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