Dear stable release managers, Please approve the upload of libjavascript-perl/1.08-1+lenny1 to stable. libjavascript-perl (1.08-1+lenny1) stable; urgency=low * Steal fix_context_destruction.patch from upstream SVN. Fixes a segfault after calling non-present function. Closes: 564772 * add myself to Uploaders -- Damyan Ivanov <dmn@debian.org> Wed, 10 Feb 2010 08:02:09 +0200 The Uploaders addition is so that the upload doesn't look as an NMU (I am member of the Perl group) and that I claim responsibility. fix_context_destruction.patch, interdiff and debfiff to 1.08-1 (currently in lenny) attached. Thanks, dam
# Description: fix segmentation fault when evaluated JavaScript code calls an # undefined external function # Bug-Debian: 564772 # Origin: upstream, svn://svn.versed.se/public/Perl/modules/JavaScript/trunk (revision 931) --- a/lib/JavaScript/Context.pm +++ b/lib/JavaScript/Context.pm @@ -19,10 +19,8 @@ sub new { my $self = bless { _impl => $cx_ptr }, $pkg; - $Context{${$cx_ptr}} = $self; - - weaken($Context{$cx_ptr}); - + $Context{$$cx_ptr} = $self; + weaken($Context{$$cx_ptr}); $self->{runtime} = $runtime; return $self; --- a/t/30-refcount.t +++ b/t/30-refcount.t @@ -31,5 +31,5 @@ my $rt = JavaScript::Runtime->new(); is($sv->REFCNT, 2); } - is($sv->REFCNT, 1); + is($sv->REFCNT, 0); }
diff -u libjavascript-perl-1.08/debian/control libjavascript-perl-1.08/debian/control --- libjavascript-perl-1.08/debian/control +++ libjavascript-perl-1.08/debian/control @@ -7,7 +7,7 @@ Maintainer: Debian Perl Group <pkg-perl-maintainers@lists.alioth.debian.org> Uploaders: Daniel Ruoso <daniel@ruoso.com>, Krzysztof Krzyzaniak (eloy) <eloy@debian.org>, Niko Tyni <ntyni@debian.org>, - gregor herrmann <gregoa@debian.org> + gregor herrmann <gregoa@debian.org>, Damyan Ivanov <dmn@debian.org> Standards-Version: 3.7.3 Homepage: http://search.cpan.org/dist/JavaScript/ Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/libjavascript-perl/ diff -u libjavascript-perl-1.08/debian/changelog libjavascript-perl-1.08/debian/changelog --- libjavascript-perl-1.08/debian/changelog +++ libjavascript-perl-1.08/debian/changelog @@ -1,3 +1,11 @@ +libjavascript-perl (1.08-1+lenny1) stable; urgency=low + + * Steal fix_context_destruction.patch from upstream SVN. Fixes a segfault + after calling non-present function. Closes: 564772 + * add myself to Uploaders + + -- Damyan Ivanov <dmn@debian.org> Wed, 10 Feb 2010 08:02:09 +0200 + libjavascript-perl (1.08-1) unstable; urgency=low * New upstream release. diff -u libjavascript-perl-1.08/debian/patches/series libjavascript-perl-1.08/debian/patches/series --- libjavascript-perl-1.08/debian/patches/series +++ libjavascript-perl-1.08/debian/patches/series @@ -2,0 +3 @@ +fix_context_destruction.patch only in patch2: unchanged: --- libjavascript-perl-1.08.orig/debian/patches/fix_context_destruction.patch +++ libjavascript-perl-1.08/debian/patches/fix_context_destruction.patch @@ -0,0 +1,28 @@ +# Description: fix segmentation fault when evaluated JavaScript code calls an +# undefined external function +# Bug-Debian: 564772 +# Origin: upstream, svn://svn.versed.se/public/Perl/modules/JavaScript/trunk (revision 931) +--- a/lib/JavaScript/Context.pm ++++ b/lib/JavaScript/Context.pm +@@ -19,10 +19,8 @@ sub new { + + my $self = bless { _impl => $cx_ptr }, $pkg; + +- $Context{${$cx_ptr}} = $self; +- +- weaken($Context{$cx_ptr}); +- ++ $Context{$$cx_ptr} = $self; ++ weaken($Context{$$cx_ptr}); + $self->{runtime} = $runtime; + + return $self; +--- a/t/30-refcount.t ++++ b/t/30-refcount.t +@@ -31,5 +31,5 @@ my $rt = JavaScript::Runtime->new(); + is($sv->REFCNT, 2); + } + +- is($sv->REFCNT, 1); ++ is($sv->REFCNT, 0); + }
File lists identical (after any substitutions) Control files: lines which differ (wdiff format) ------------------------------------------------ Depends: perl (>= [-5.10.0-10),-] {+5.10.0-19lenny2),+} perlapi-5.10.0, libc6 (>= 2.7-1), libmozjs1d (>= 1.9~b4) Installed-Size: [-308-] {+304+} [-Source: libjavascript-perl (1.08-1)-] Version: [-1.08-1+b1-] {+1.08-1+lenny1+}
Attachment:
signature.asc
Description: Digital signature