CPAN.pm's ->get method destroys objects

diotalevi has asked for the wisdom of the Perl Monks concerning the following question:

CPAN 1.76's ->get method destroys objects when I use it. This code sample shows that I have a CPAN::Module object prior to ->get and an unrelated filename afterwards. What I especially don't understand is why I'm seeing canon.pl since that's part of the testing package for B::Deobfuscate. Help?

use CPAN;
use Data::Dumper;
$_ = CPAN::Shell->expandany( 'B::Keywords' );
print Dumper( $_ );
$_->get;
print Dumper( $_ );
[download]

Going to read /root/.cpan/Metadata
  Database was generated on Thu, 23 Oct 2003 06:50:15 GMT
$VAR1 = bless( {
                 'ID' => 'B::Keywords',
                 'RO' => {
                           'userid' => 'JJORE',
                           'stats' => 'd',
                           'stati' => 'n',
                           'description' => 'Lists of reserved barewor
+ds and symbol names',
                           'CPAN_VERSION' => '0.06',
                           'chapterid' => ' 2',
                           'CPAN_FILE' => 'J/JJ/JJORE/B-Keywords-0.06.
+tar.gz',
                           'CPAN_USERID' => 'JJORE',
                           'statd' => 'b',
                           'statl' => 'p',
                           'statp' => 'p'
                         }
               }, 'CPAN::Module' );
Running get for module B::Keywords
CPAN: LWP::UserAgent loaded ok
Fetching with LWP:
  ftp://archive.progeny.com/CPAN/authors/id/J/JJ/JJORE/B-Keywords-0.06
+.tar.gz
CPAN: Digest::MD5 loaded ok
CPAN: Compress::Zlib loaded ok
Checksum for /root/.cpan/sources/authors/id/J/JJ/JJORE/B-Keywords-0.06
+.tar.gz ok
Scanning cache /root/.cpan/build for sizes
B-Keywords-0.06
B-Keywords-0.06/SIGNATURE
B-Keywords-0.06/LICENSE
B-Keywords-0.06/t
B-Keywords-0.06/t/1.t
B-Keywords-0.06/META.yml
B-Keywords-0.06/MANIFEST
B-Keywords-0.06/Makefile.PL
B-Keywords-0.06/Changes
B-Keywords-0.06/lib
B-Keywords-0.06/lib/B
B-Keywords-0.06/lib/B/Keywords.pm
B-Keywords-0.06/MANIFEST.SKIP
B-Keywords-0.06/README
$VAR1 = 'canon.pl';
[download]

Comment on CPAN.pm's ->get method destroys objects Select or Download Code

Replies are listed 'Best First'.
Re: CPAN.pm's ->get method destroys objects by Zaxo (Archbishop) on Oct 24, 2003 at 07:00 UTC
Yours appears to overwrite $_, but that doesn't mean get() ordinarily destroys the object which calls it. Still, not localizing $_ is probably is a bug, if that's the source of the problem. After Compline, Zaxo	[reply]
Re: Re: CPAN.pm's ->get method destroys objects by diotalevi (Canon) on Oct 24, 2003 at 14:57 UTC
Ah I see. The original code went `$_->get for @packages;` so I kept the sense of that by just assigning to $_ in my example. That is indeed the problem. Substituting in `for my $pkg ( @packages ) { $pkg->get }` corrected the problem.	[reply] [d/l] [select]
Re: CPAN.pm's ->get method destroys objects by bobn (Chaplain) on Oct 24, 2003 at 04:41 UTC
Doesn't do that to me. Perl 5.8.0 on redhat 9. CPAN 1.76. $VAR1 looks the same before and after the ->get. --Bob Niederman, http://bob-n.com All code given here is UNTESTED unless otherwise stated.	[reply]
Re: CPAN.pm's ->get method destroys objects by Abigail-II (Bishop) on Oct 24, 2003 at 08:22 UTC
I can't reproduce that with CPAN.pm version 1.76_01, which comes with 5.8.1. I suggest you upgrade to the newest version of CPAN.pm (it lives on CPAN as well), and try again. If you still have a problem, file a bug report. Abigail	[reply]