Package: libcupt-perl
Version: 1.5.14.1

Hi Eugene et al, a mystery for you.

Hoping to test the latest libwww-curl-perl.  So:

 # cupt build-dep libwww-curl-perl
 Building the package cache... [done]
 Initializing package resolver and worker... [done]
 Scheduling requested actions... Can't locate object method "is_installed" via 
package "Cupt::Cache::SourceVersion" at /usr/share/perl5/Cupt/Cache.pm line 
415, <$fh> line 16006.
  at /usr/share/perl5/Cupt/Cache.pm line 415
         Cupt::Cache::get_pin('Cupt::Cache=ARRAY(0x95feff8)', 
'Cupt::Cache::SourceVersion=ARRAY(0x9294b80)') called at 
/usr/share/perl5/Cupt/Cache.pm line 506
         
Cupt::Cache::get_sorted_pinned_versions('Cupt::Cache=ARRAY(0x95feff8)', 
'Cupt::Cache::Package=ARRAY(0x9294bd0)') called at 
/usr/share/perl5/Cupt/Cache.pm line 537
         Cupt::Cache::get_policy_version('Cupt::Cache=ARRAY(0x95feff8)', 
'Cupt::Cache::Package=ARRAY(0x9294bd0)') called at /usr/bin/cupt line 284
         main::select_package_version('libwww-curl-perl', 'CODE(0x95548e0)', 0) 
called at /usr/bin/cupt line 304
         main::select_source_package_version('libwww-curl-perl', 1) called at 
/usr/bin/cupt line 1666
         main::manage_packages('build-depends') called at /usr/bin/cupt line 140
         main::__ANON__() called at /usr/bin/cupt line 152
         eval {...} called at /usr/bin/cupt line 151
         main::main() called at /usr/bin/cupt line 166
  at /usr/share/perl5/Cupt/Core.pm line 103
         Cupt::Core::mycatch() called at /usr/bin/cupt line 154
         main::main() called at /usr/bin/cupt line 166

/usr/share/perl5/Cupt/Cache.pm says:

        sub get_pin ($$) {
[...]
                # discourage downgrading 
                # downgradings will usually have pin <= 0
                if (defined $self->_system_state) { # for example, for source 
versions will return false...
[...]
                                        if ($installed_info->{'want'} eq 'hold' 
&& $version->is_installed()) {
                                                $result += 
$self->_config->get_number('cupt::cache::obey-hold');
                                        }

Line 415 is the "if ($installed_info->..." line.  Also probably relevant:

        $ dpkg --get-selections | grep hold
        ifupdown                                        hold
        libwww-curl-perl                                hold

Taking the package off hold fixes it, so no harm done.

Regards,
Jonathan



-- 
To UNSUBSCRIBE, email to debian-bugs-dist-requ...@lists.debian.org
with a subject of "unsubscribe". Trouble? Contact listmas...@lists.debian.org

Reply via email to