On Sat, Jun 28, 2008 at 10:28:56AM +0200, Bastian Blank wrote: > On Mon, Jun 09, 2008 at 09:56:27PM +0300, Niko Tyni wrote: > > As for the timeframe, I have 5.10.0-11 just about ready with the fix > > (and several others), but I'm still waiting for input from Brendan on > > a few things. Brendan, I hope you got <[EMAIL PROTECTED]> ? > There was no update so I intend to NMU this in the next days.
The patch for it. Upload scheduled for 6.7.2008.
Bastian
--
The joys of love made her human and the agonies of love destroyed her.
-- Spock, "Requiem for Methuselah", stardate 5842.8
diff -u perl-5.10.0/patches-applied perl-5.10.0/patches-applied
--- perl-5.10.0/patches-applied
+++ perl-5.10.0/patches-applied
@@ -11,6 +11,7 @@
debian/patches/10_fix_h2ph_include_quote
debian/patches/11_disable_vstring_warning
debian/patches/12_fix_file_path_rmtree_chmod
+debian/patches/13_fix_perlio_via_via
debian/patches/50_debian_use_gdbm
debian/patches/51_debian_ld_run_path
debian/patches/52_debian_extutils_hacks
diff -u perl-5.10.0/debian/changelog perl-5.10.0/debian/changelog
--- perl-5.10.0/debian/changelog
+++ perl-5.10.0/debian/changelog
@@ -1,3 +1,10 @@
+perl (5.10.0-11.1) UNRELEASED; urgency=low
+
+ * Non-maintainer upload.
+ * Fix lost reference in PerlIO::via::via. (closes: #479698)
+
+ -- Bastian Blank <[EMAIL PROTECTED]> Thu, 03 Jul 2008 10:46:02 +0200
+
perl (5.10.0-11) unstable; urgency=high
* [SECURITY] File::Path::rmtree() no longer makes symlink targets
only in patch2:
unchanged:
--- perl-5.10.0.orig/ext/PerlIO/via/via.xs
+++ perl-5.10.0/ext/PerlIO/via/via.xs
@@ -89,7 +89,7 @@
if (!s->fh) {
GV *gv = newGVgen(HvNAME_get(s->stash));
GvIOp(gv) = newIO();
- s->fh = newRV_noinc((SV *) gv);
+ s->fh = newRV((SV *) gv);
s->io = GvIOp(gv);
}
IoIFP(s->io) = PerlIONext(f);
only in patch2:
unchanged:
--- perl-5.10.0.orig/debian/patches/13_fix_perlio_via_via
+++ perl-5.10.0/debian/patches/13_fix_perlio_via_via
@@ -0,0 +1,11 @@
+--- a/ext/PerlIO/via/via.xs
++++ b/ext/PerlIO/via/via.xs
+@@ -89,7 +89,7 @@ PerlIOVia_method(pTHX_ PerlIO * f, const
+ if (!s->fh) {
+ GV *gv = newGVgen(HvNAME_get(s->stash));
+ GvIOp(gv) = newIO();
+- s->fh = newRV_noinc((SV *) gv);
++ s->fh = newRV((SV *) gv);
+ s->io = GvIOp(gv);
+ }
+ IoIFP(s->io) = PerlIONext(f);
signature.asc
Description: Digital signature
