Package: libpadwalker-perl Version: 1.5-1 Severity: normal Tags: patch Hi,
Attached is the diff for my libpadwalker-perl 1.6-0.1 NMU, which I just uploaded to 7-day DELAYED. Cheers, -- Niko Tyni [EMAIL PROTECTED]
diff -Nru libpadwalker-perl-1.5/Changes libpadwalker-perl-1.6/Changes --- libpadwalker-perl-1.5/Changes 2007-01-05 18:22:48.000000000 +0200 +++ libpadwalker-perl-1.6/Changes 2008-01-14 12:50:22.000000000 +0200 @@ -111,3 +111,9 @@ 1.5 Fri Jan 5 16:22:27 GMT 2007 - Fix egregrious bug in 1.4 :-( + +1.6 Mon Jan 14 10:48:09 GMT 2008 + - Make _upcontext work in 64-bit architectures. + (http://rt.cpan.org/Ticket/Display.html?id=32287) + Thanks to Niko Tyni. + diff -Nru /tmp/rFw4F8srPv/libpadwalker-perl-1.5/debian/changelog /tmp/Y1HYI2CMKv/libpadwalker-perl-1.6/debian/changelog --- libpadwalker-perl-1.5/debian/changelog 2008-03-18 21:15:15.000000000 +0200 +++ libpadwalker-perl-1.6/debian/changelog 2008-03-18 21:15:15.000000000 +0200 @@ -1,3 +1,15 @@ +libpadwalker-perl (1.6-0.1) unstable; urgency=low + + * Non-maintainer upload. + * New upstream release. + + the only change fixes pointer truncation on 64-bit architectures. + (Closes: #458195) + * Fix build failure with Perl 5.10: don't try to remove /usr/share/perl5 if + it does not exist. (Closes: #463546) + * Update debian/watch. (Closes: #450230) + + -- Niko Tyni <[EMAIL PROTECTED]> Tue, 18 Mar 2008 20:43:45 +0200 + libpadwalker-perl (1.5-1) unstable; urgency=low * New upstream release (Closes: #438569). diff -Nru /tmp/rFw4F8srPv/libpadwalker-perl-1.5/debian/rules /tmp/Y1HYI2CMKv/libpadwalker-perl-1.6/debian/rules --- libpadwalker-perl-1.5/debian/rules 2008-03-18 21:15:15.000000000 +0200 +++ libpadwalker-perl-1.6/debian/rules 2008-03-18 21:15:15.000000000 +0200 @@ -37,7 +37,7 @@ dh_clean -k $(MAKE) test $(MAKE) install DESTDIR=$(TMP) PREFIX=/usr - rmdir --ignore-fail-on-non-empty --parents $(TMP)/usr/share/perl5 + [ ! -d $(TMP)/usr/share/perl5 ] || rmdir --ignore-fail-on-non-empty --parents $(TMP)/usr/share/perl5 touch install-stamp # Build architecture-independent files here. diff -Nru /tmp/rFw4F8srPv/libpadwalker-perl-1.5/debian/watch /tmp/Y1HYI2CMKv/libpadwalker-perl-1.6/debian/watch --- libpadwalker-perl-1.5/debian/watch 2008-03-18 21:15:15.000000000 +0200 +++ libpadwalker-perl-1.6/debian/watch 2008-03-18 21:15:15.000000000 +0200 @@ -1,3 +1,3 @@ -# format version number, currently 2; this line is compulsory! -version=2 -http://www.cpan.org/modules/by-module/PadWalker-(.*)(.tar.gz|.tar|.tgz) +# format version number, currently 3; this line is compulsory! +version=3 +http://search.cpan.org/dist/PadWalker/ .*/PadWalker-v?(\d[\d_.]+)\.(?:tar(?:\.gz|\.bz2)?|tgz|zip) diff -Nru /tmp/rFw4F8srPv/libpadwalker-perl-1.5/META.yml /tmp/Y1HYI2CMKv/libpadwalker-perl-1.6/META.yml --- libpadwalker-perl-1.5/META.yml 2007-01-05 18:22:23.000000000 +0200 +++ libpadwalker-perl-1.6/META.yml 2008-01-14 12:52:45.000000000 +0200 @@ -1,7 +1,7 @@ # http://module-build.sourceforge.net/META-spec.html #XXXXXXX This is a prototype!!! It will change in the future!!! XXXXX# name: PadWalker -version: 1.5 +version: 1.6 license: perl version_from: PadWalker.pm installdirs: site diff -Nru /tmp/rFw4F8srPv/libpadwalker-perl-1.5/PadWalker.pm /tmp/Y1HYI2CMKv/libpadwalker-perl-1.6/PadWalker.pm --- libpadwalker-perl-1.5/PadWalker.pm 2007-01-05 18:22:16.000000000 +0200 +++ libpadwalker-perl-1.6/PadWalker.pm 2008-01-14 12:48:07.000000000 +0200 @@ -12,7 +12,7 @@ @EXPORT_OK = qw(peek_my peek_our closed_over peek_sub var_name); %EXPORT_TAGS = (all => [EMAIL PROTECTED]); -$VERSION = '1.5'; +$VERSION = '1.6'; bootstrap PadWalker $VERSION; diff -Nru /tmp/rFw4F8srPv/libpadwalker-perl-1.5/PadWalker.xs /tmp/Y1HYI2CMKv/libpadwalker-perl-1.6/PadWalker.xs --- libpadwalker-perl-1.5/PadWalker.xs 2007-01-05 18:20:11.000000000 +0200 +++ libpadwalker-perl-1.6/PadWalker.xs 2008-01-14 10:58:48.000000000 +0200 @@ -532,6 +532,5 @@ _upcontext(uplevel) I32 uplevel PPCODE: - /* I'm not sure why this is here, but I'll leave it in case - * somebody is using it in an insanely evil way. */ - XPUSHs(sv_2mortal(newSViv((U32)upcontext(aTHX_ uplevel, 0, 0, 0, 0)))); + /* This is used by Devel::Caller. */ + XPUSHs(sv_2mortal(newSViv((IV)upcontext(aTHX_ uplevel, 0, 0, 0, 0)))); diff -Nru /tmp/rFw4F8srPv/libpadwalker-perl-1.5/README /tmp/Y1HYI2CMKv/libpadwalker-perl-1.6/README --- libpadwalker-perl-1.5/README 2007-01-05 18:20:53.000000000 +0200 +++ libpadwalker-perl-1.6/README 2008-01-14 10:59:27.000000000 +0200 @@ -1,12 +1,7 @@ ----------------------------------------------------------------------------- -| PadWalker v1.5 - Robin Houston +| PadWalker v1.6 - Robin Houston ----------------------------------------------------------------------------- -[ Note: versions 1.3-1.5 are forward-compatibility releases, designed to - make PadWalker compatible with the development version of Perl, and with - Perl 5.10 when it is released. There is no reason for most users to upgrade - immediately. ] - NAME PadWalker - play with other peoples' lexical variables
