Bug #93617 for Data-Lock: Data-Lock-1.02 Bug Report

Fri Mar 07 12:41:07 2014 Ray.Kuo [...] hitbliss.com - Ticket created

Subject:	Data-Lock-1.02 Bug Report
Date:	Fri, 7 Mar 2014 12:43:13 -0500
To:	"bug-Data-Lock [...] rt.cpan.org" <bug-Data-Lock [...] rt.cpan.org>
From:	Ray Kuo <Ray.Kuo [...] hitbliss.com>

Hi, Thanks for the great module. We have been using it without issues until recently. Unsure if this is an intended effect, but dlocking a scalar whose value is 0 also locks $0 Module Distribution: Data-Lock-1.02 Sample Script: use warnings; use strict; use Data::Lock qw(dlock); dlock my $k = 0; $0 = 'test'; Output: Modification of a read-only value attempted at - line 5. Operating System vendor and version: Linux 2.6.18-92.1.10.el5 #1 SMP Mon Aug 4 14:33:17 EDT 2008 x86_64 x86_64 x86_64 GNU/Linux Summary of my perl5 (revision 5 version 16 subversion 2) configuration: Platform: osname=linux, osvers=2.6.18-164.el5, archname=x86_64-linux uname='linux user1 2.6.18-164.el5 #1 smp thu sep 3 03:28:30 edt 2009 x86_64 x86_64 x86_64 gnulinux ' config_args='-Dprefix=/utils/perlbox/linux/perl-5.16.2 -Uuserelocatableinc -Duse64bitall -Aldflags=-Wl,-R/utils/perlbox/linux/perl-5.16.2/bin -des -Dman1dir=none -Dman3dir=none -Accflags=-fPIC' hint=recommended, useposix=true, d_sigaction=define useithreads=undef, usemultiplicity=undef useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef use64bitint=define, use64bitall=define, uselongdouble=undef usemymalloc=n, bincompat5005=undef Compiler: cc='cc', ccflags ='-fPIC -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64', optimize='-O2', cppflags='-fPIC -fno-strict-aliasing -pipe -fstack-protector -I/usr/local/include' ccversion='', gccversion='4.1.2 20080704 (Red Hat 4.1.2-52)', gccosandvers='' intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16 ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 alignbytes=8, prototype=define Linker and Libraries: ld='cc', ldflags =' -Wl,-R/utils/perlbox/linux/perl-5.16.2/bin -fstack-protector -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib /lib64 /usr/lib64 /usr/local/lib64 libs=-lnsl -ldb -ldl -lm -lcrypt -lutil -lc perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc libc=/lib/libc-2.5.so, so=so, useshrplib=false, libperl=libperl.a gnulibc_version='2.5' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E' cccdlflags='-fPIC', lddlflags='-shared -O2 -Wl,-R/utils/perlbox/linux/perl-5.16.2/bin -L/usr/local/lib -fstack-protector' Characteristics of this binary (from libperl): Compile-time options: HAS_TIMES PERLIO_LAYERS PERL_DONT_CREATE_GVSV PERL_MALLOC_WRAP PERL_PRESERVE_IVUV USE_64_BIT_ALL USE_64_BIT_INT USE_LARGE_FILES USE_LOCALE USE_LOCALE_COLLATE USE_LOCALE_CTYPE USE_LOCALE_NUMERIC USE_PERLIO USE_PERL_ATOF Built under linux Compiled at Dec 26 2012 13:33:40 %ENV: PERLLIB="/common/lib:/consumer/lib" @INC: /common/lib /consumer/lib /utils/perlbox/linux/perl-5.16.2/lib/site_perl/5.16.2/x86_64-linux /utils/perlbox/linux/perl-5.16.2/lib/site_perl/5.16.2 /utils/perlbox/linux/perl-5.16.2/lib/5.16.2/x86_64-linux /utils/perlbox/linux/perl-5.16.2/lib/5.16.2 .

Fri Mar 07 13:30:55 2014 DANKOGAI [...] cpan.org - Correspondence added

Thank you for your report. Fixed in 1.03. Immediately shipped to CPAN but if you can't wait it is also avialable at github: https://github.com/dankogai/p5-data-lock Dan the Maintainer Thereof On Fri Mar 07 12:41:07 2014, Ray.Kuo@hitbliss.com wrote: Show quoted text

> Hi, > > Thanks for the great module. We have been using it without issues > until recently. > Unsure if this is an intended effect, but dlocking a scalar whose > value is 0 also locks $0 > > Module Distribution: > Data-Lock-1.02 > > Sample Script: > use warnings; > use strict; > use Data::Lock qw(dlock); > dlock my $k = 0; > $0 = 'test'; > > Output: > Modification of a read-only value attempted at - line 5. > > Operating System vendor and version: > Linux 2.6.18-92.1.10.el5 #1 SMP Mon Aug 4 14:33:17 EDT 2008 x86_64 > x86_64 x86_64 GNU/Linux > > Summary of my perl5 (revision 5 version 16 subversion 2) > configuration: > > Platform: > osname=linux, osvers=2.6.18-164.el5, archname=x86_64-linux > uname='linux user1 2.6.18-164.el5 #1 smp thu sep 3 03:28:30 edt 2009 > x86_64 x86_64 x86_64 gnulinux ' > config_args='-Dprefix=/utils/perlbox/linux/perl-5.16.2 > -Uuserelocatableinc -Duse64bitall -Aldflags=-Wl,- > R/utils/perlbox/linux/perl-5.16.2/bin -des -Dman1dir=none > -Dman3dir=none -Accflags=-fPIC' > hint=recommended, useposix=true, d_sigaction=define > useithreads=undef, usemultiplicity=undef > useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef > use64bitint=define, use64bitall=define, uselongdouble=undef > usemymalloc=n, bincompat5005=undef > Compiler: > cc='cc', ccflags ='-fPIC -fno-strict-aliasing -pipe -fstack- > protector -I/usr/local/include -D_LARGEFILE_SOURCE > -D_FILE_OFFSET_BITS=64', > optimize='-O2', > cppflags='-fPIC -fno-strict-aliasing -pipe -fstack-protector > -I/usr/local/include' > ccversion='', gccversion='4.1.2 20080704 (Red Hat 4.1.2-52)', > gccosandvers='' > intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678 > d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16 > ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', > lseeksize=8 > alignbytes=8, prototype=define > Linker and Libraries: > ld='cc', ldflags =' -Wl,-R/utils/perlbox/linux/perl-5.16.2/bin > -fstack-protector -L/usr/local/lib' > libpth=/usr/local/lib /lib /usr/lib /lib64 /usr/lib64 > /usr/local/lib64 > libs=-lnsl -ldb -ldl -lm -lcrypt -lutil -lc > perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc > libc=/lib/libc-2.5.so, so=so, useshrplib=false, libperl=libperl.a > gnulibc_version='2.5' > Dynamic Linking: > dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E' > cccdlflags='-fPIC', lddlflags='-shared -O2 -Wl,- > R/utils/perlbox/linux/perl-5.16.2/bin -L/usr/local/lib -fstack- > protector' > > > Characteristics of this binary (from libperl): > Compile-time options: HAS_TIMES PERLIO_LAYERS PERL_DONT_CREATE_GVSV > PERL_MALLOC_WRAP PERL_PRESERVE_IVUV > USE_64_BIT_ALL > USE_64_BIT_INT USE_LARGE_FILES USE_LOCALE > USE_LOCALE_COLLATE USE_LOCALE_CTYPE > USE_LOCALE_NUMERIC USE_PERLIO USE_PERL_ATOF > Built under linux > Compiled at Dec 26 2012 13:33:40 > %ENV: > PERLLIB="/common/lib:/consumer/lib" > @INC: > /common/lib > /consumer/lib > /utils/perlbox/linux/perl-5.16.2/lib/site_perl/5.16.2/x86_64-linux > /utils/perlbox/linux/perl-5.16.2/lib/site_perl/5.16.2 > /utils/perlbox/linux/perl-5.16.2/lib/5.16.2/x86_64-linux > /utils/perlbox/linux/perl-5.16.2/lib/5.16.2 > .

Fri Mar 07 13:30:56 2014 The RT System itself - Status changed from 'new' to 'open'

Fri Mar 07 13:30:56 2014 DANKOGAI [...] cpan.org - Status changed from 'open' to 'resolved'

Fri Mar 07 14:00:39 2014 Ray.Kuo [...] hitbliss.com - Correspondence added

Subject:	RE: [rt.cpan.org #93617] Data-Lock-1.02 Bug Report
Date:	Fri, 7 Mar 2014 14:02:45 -0500
To:	"bug-Data-Lock [...] rt.cpan.org" <bug-Data-Lock [...] rt.cpan.org>
From:	Ray Kuo <Ray.Kuo [...] hitbliss.com>

Thanks Dan! Show quoted text

-----Original Message----- From: Dan Kogai via RT [mailto:bug-Data-Lock@rt.cpan.org] Sent: Friday, March 07, 2014 1:31 PM To: Ray Kuo Subject: [rt.cpan.org #93617] Data-Lock-1.02 Bug Report <URL: https://rt.cpan.org/Ticket/Display.html?id=93617 > Thank you for your report. Fixed in 1.03. Immediately shipped to CPAN but if you can't wait it is also avialable at github: https://github.com/dankogai/p5-data-lock Dan the Maintainer Thereof On Fri Mar 07 12:41:07 2014, Ray.Kuo@hitbliss.com wrote:

> Hi, > > Thanks for the great module. We have been using it without issues > until recently. > Unsure if this is an intended effect, but dlocking a scalar whose > value is 0 also locks $0 > > Module Distribution: > Data-Lock-1.02 > > Sample Script: > use warnings; > use strict; > use Data::Lock qw(dlock); > dlock my $k = 0; > $0 = 'test'; > > Output: > Modification of a read-only value attempted at - line 5. > > Operating System vendor and version: > Linux 2.6.18-92.1.10.el5 #1 SMP Mon Aug 4 14:33:17 EDT 2008 x86_64 > x86_64 x86_64 GNU/Linux > > Summary of my perl5 (revision 5 version 16 subversion 2) > configuration: > > Platform: > osname=linux, osvers=2.6.18-164.el5, archname=x86_64-linux > uname='linux user1 2.6.18-164.el5 #1 smp thu sep 3 03:28:30 edt 2009 > x86_64 x86_64 x86_64 gnulinux ' > config_args='-Dprefix=/utils/perlbox/linux/perl-5.16.2 > -Uuserelocatableinc -Duse64bitall -Aldflags=-Wl,- > R/utils/perlbox/linux/perl-5.16.2/bin -des -Dman1dir=none > -Dman3dir=none -Accflags=-fPIC' > hint=recommended, useposix=true, d_sigaction=define > useithreads=undef, usemultiplicity=undef > useperlio=define, d_sfio=undef, uselargefiles=define, usesocks=undef > use64bitint=define, use64bitall=define, uselongdouble=undef > usemymalloc=n, bincompat5005=undef > Compiler: > cc='cc', ccflags ='-fPIC -fno-strict-aliasing -pipe -fstack- > protector -I/usr/local/include -D_LARGEFILE_SOURCE > -D_FILE_OFFSET_BITS=64', > optimize='-O2', > cppflags='-fPIC -fno-strict-aliasing -pipe -fstack-protector > -I/usr/local/include' > ccversion='', gccversion='4.1.2 20080704 (Red Hat 4.1.2-52)', > gccosandvers='' > intsize=4, longsize=8, ptrsize=8, doublesize=8, byteorder=12345678 > d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16 > ivtype='long', ivsize=8, nvtype='double', nvsize=8, Off_t='off_t', > lseeksize=8 > alignbytes=8, prototype=define > Linker and Libraries: > ld='cc', ldflags =' -Wl,-R/utils/perlbox/linux/perl-5.16.2/bin > -fstack-protector -L/usr/local/lib' > libpth=/usr/local/lib /lib /usr/lib /lib64 /usr/lib64 > /usr/local/lib64 > libs=-lnsl -ldb -ldl -lm -lcrypt -lutil -lc > perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc > libc=/lib/libc-2.5.so, so=so, useshrplib=false, libperl=libperl.a > gnulibc_version='2.5' > Dynamic Linking: > dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E' > cccdlflags='-fPIC', lddlflags='-shared -O2 -Wl,- > R/utils/perlbox/linux/perl-5.16.2/bin -L/usr/local/lib -fstack- > protector' > > > Characteristics of this binary (from libperl): > Compile-time options: HAS_TIMES PERLIO_LAYERS PERL_DONT_CREATE_GVSV > PERL_MALLOC_WRAP PERL_PRESERVE_IVUV > USE_64_BIT_ALL > USE_64_BIT_INT USE_LARGE_FILES USE_LOCALE > USE_LOCALE_COLLATE USE_LOCALE_CTYPE > USE_LOCALE_NUMERIC USE_PERLIO USE_PERL_ATOF > Built under linux > Compiled at Dec 26 2012 13:33:40 > %ENV: > PERLLIB="/common/lib:/consumer/lib" > @INC: > /common/lib > /consumer/lib > /utils/perlbox/linux/perl-5.16.2/lib/site_perl/5.16.2/x86_64-linux > /utils/perlbox/linux/perl-5.16.2/lib/site_perl/5.16.2 > /utils/perlbox/linux/perl-5.16.2/lib/5.16.2/x86_64-linux > /utils/perlbox/linux/perl-5.16.2/lib/5.16.2 > .