Skip Menu |

This queue is for tickets about the Data-Lock CPAN distribution.

Report information
The Basics
Id: 85233
Status: resolved
Priority: 0/
Queue: Data-Lock

People
Owner: Nobody in particular
Requestors: hirop4.mu [...] gmail.com
Cc:
AdminCc:

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)



Subject: dunlockのバグ
Date: Mon, 13 May 2013 23:34:54 +0900
To: bug-Data-Lock [...] rt.cpan.org
From: hiro mu <hirop4.mu [...] gmail.com>
dan san お疲れ様です。mhiroと申します。 メール&日本語で恐縮ですがバグと思われる現象を報告させて頂きます。 下記、dunlockを行った際に、READONLYフラグが解除されないというバグになります。 ================================ use strict; use warnings; use Data::Lock qw(dlock dunlock); my %foo = ( bar => 1, ); dlock(\%foo); dunlock(\%foo); $foo{bar} = 2; 「実行結果」 Modification of a read-only value ================================= 以上、よろしくお願いします。
Subject: dunlock() fails to unlock \@array and \%hash [Was: dunlockのバグ]
Thank you for your report. Significant but tricky. Resolved in the repo: https://github.com/dankogai/p5-data-lock/commit/87299008be6f69fc88ee5eb9da6201eb4e04f8a0 https://github.com/dankogai/p5-data-lock/commit/a6519255222437d1cedd73a5c029b54c5eba3ca2 VERSION++ to follow soon. Dan the Maintainer On Mon May 13 10:35:14 2013, hirop4.mu@gmail.com wrote: Show quoted text
> dan san > お疲れ様です。mhiroと申します。 > > メール&日本語で恐縮ですがバグと思われる現象を報告させて頂きます。 > 下記、dunlockを行った際に、READONLYフラグが解除されないというバグになります。 > > ================================ > use strict; > use warnings; > use Data::Lock qw(dlock dunlock); > > my %foo = ( > bar => 1, > ); > dlock(\%foo); > dunlock(\%foo); > $foo{bar} = 2; > > 「実行結果」 > Modification of a read-only value > ================================= > > 以上、よろしくお願いします。