Bug#442900: libdevel-caller-perl: FTBFS on alpha and ia64 (failing tests)

[Niko Tyni]

found 442900 2.02-1
clone 442900 -1
reassign -1 libpadwalker-perl 1.5-1
retitle -1 libpadwalker-perl: truncated pointer breaks libdevel-caller-perl on alpha and ia64
tag -1 patch
block 442900 with -1
thanks

On Mon, Sep 17, 2007 at 09:42:25PM +0300, Niko Tyni wrote:
> Package: libdevel-caller-perl
> Version: 0.11-1
> Severity: important
> 
> The package is failing to build on alpha and ia64 due to failing tests.
> >From the alpha buildd log:
> 
>  /usr/bin/perl Build test
>  t/Devel-Caller....cx_type is 0 not CXt_SUB
>  # Looks like you planned 72 tests but only ran 1.
>  # Looks like your test died just after 1.
>  dubious
>      Test returned status 255 (wstat 65280, 0xff00)
>  DIED. FAILED tests 2-72

I finally looked into this on ia64 (merulo.d.o), and the bug is in
libpadwalker-perl, in PadWalker::_upcontext(), which truncates the
PERL_CONTEXT pointer returned by PadWalker::upcontext() into 32 bits.

Patch attached.

Cheers,
-- 
Niko Tyni   ntyni at debian.org
-------------- next part --------------
--- PadWalker.xs	2007/12/29 13:22:06	1.1
+++ PadWalker.xs	2007/12/29 13:22:16
@@ -534,4 +534,4 @@
   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))));
+    XPUSHs(sv_2mortal(newSViv((IV)upcontext(aTHX_ uplevel, 0, 0, 0, 0))));