Bug#317058: libapt-pkg-perl: segfault in XS_AptPkg___pkg_records_DESTROY

[Niko Tyni]

Hi,

FWIW, I have broken this down into a minimal testcase (attached). It
segfaults for both sid (libapt-pkg-perl 0.1.17) and sarge (0.1.13).

Looks like a 'use overload' line in URI.pm from liburi-perl somehow
causes the SIGSEGV. I have not investigated this further.

Cheers,
-- 
Niko Tyni               [EMAIL PROTECTED]

#!/usr/bin/perl -w
use strict;

use URI;

# the problem is this line from URI.pm

# use overload ('""'     => sub { ${$_[0]} },
#              '=='     => sub { overload::StrVal($_[0]) eq
#                                overload::StrVal($_[1])
#                              },
#              fallback => 1,
#             );

use AptPkg::Cache;

my ($a,$p);

sub aptpkg_init {

    $a = AptPkg::Cache->new             or die;
    $p = $a->packages        or die;
}

aptpkg_init;