Bug#408494: Can't locate object method "IVX" via package "B::NV" at /usr/lib/perl/5.8/B/C.pm line 650.

[Andree Leidenfrost]

Package: perl
Version: 5.8.8-7
Severity: normal
Tags: patch

Dear Perl maintainers,

I'm getting the above error when running perlcc on a perl script.

The attached patch fixes the issue for me. It appears to be just a copy and 
paste error. See also 
https://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=199736.

Best regards,
Andree

-- System Information:
Debian Release: 4.0
  APT prefers unstable
  APT policy: (500, 'unstable')
Architecture: ia64
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.18-3-mckinley
Locale: LANG=en_AU.UTF-8, LC_CTYPE=en_AU.UTF-8 (charmap=UTF-8)

Versions of packages perl depends on:
ii  libc6.1                     2.3.6.ds1-10 GNU C Library: Shared libraries
ii  libdb4.4                    4.4.20-8     Berkeley v4.4 Database Libraries [
ii  libgdbm3                    1.8.3-3      GNU dbm database routines (runtime
ii  perl-base                   5.8.8-7      The Pathologically Eclectic Rubbis
ii  perl-modules                5.8.8-7      Core Perl modules

Versions of packages perl recommends:
pn  perl-doc                      <none>     (no description available)

-- no debconf information

--- C.pm.orig   2007-01-26 19:16:54.000000000 +1100
+++ C.pm        2007-01-26 19:16:57.000000000 +1100
@@ -647,7 +647,7 @@
     return $sym if defined $sym;
     my $val= $sv->NVX;
     $val .= '.00' if $val =~ /^-?\d+$/;
-    $xpvnvsect->add(sprintf("0, 0, 0, %d, %s", $sv->IVX, $val));
+    $xpvnvsect->add(sprintf("0, 0, 0, %d, %s", $sv->NVX, $val));
     $svsect->add(sprintf("&xpvnv_list[%d], %lu, 0x%x",
                         $xpvnvsect->index, $sv->REFCNT , $sv->FLAGS));
     return savesym($sv, sprintf("&sv_list[%d]", $svsect->index));