Subject: | A couple of small, easy to fix bugs |
I was confronted with:
Show quoted text
---------- BEGIN ----------
t/13tarzip.............Use of uninitialized value in sprintf at
C:\progs\perl5100\cpan\build\CPAN-1.9402-jt9Gcc\blib\lib/CPAN/Tarzip.pm
line 251.
# Looks like your test exited with 9 before it could output anything.
t/13tarzip.............dubious
Test returned status 9 (wstat 2304, 0x900)
DIED. FAILED test 1
Failed 1/1 tests, 0.00% okay
---------- END ----------
The warning and the problem can be fixed with the following changes:
---------- BEGIN patch to CPAN/Tarzip.pm ----------
if ($CPAN::META->has_usable("Archive::Tar")) {
- $foundAT = sprintf "'%s'", "Archive::Tar::"->VERSION;
+ $foundAT = sprintf "'%s'", "Archive::Tar"->VERSION;
---------- END patch to CPAN/Tarzip.pm ----------
---------- BEGIN patch to CPAN/Tarzip.pm ----------
if ($CPAN::META->has_inst("Compress::Zlib")) {
- $foundCZ = sprintf "'%s'", "Compress::Zlib::"->VERSION;
+ $foundCZ = sprintf "'%s'", "Compress::Zlib"->VERSION;
---------- END patch to CPAN/Tarzip.pm ----------
---------- BEGIN patch to CPAN.pm ----------
'Archive::Tar' => [
sub {require Archive::Tar;
- unless
(CPAN::Version->vge(Archive::Tar::->VERSION, 1.50)) {
+ unless
(CPAN::Version->vge(Archive::Tar::->VERSION, 1.00)) {
for ("Will not use
Archive::Tar, need 1.00\n") {
$CPAN::Frontend->mywarn($_);
die $_;
}
}
unless
(CPAN::Version->vge(Archive::Tar::->VERSION, 1.50)) {
my $atv =
Archive::Tar->VERSION;
$CPAN::Frontend->mywarn("You have Archive::Tar $atv, but 1.50 or later
is recommended. Please upgrade.\n");
}
},
],
---------- END patch to CPAN.pm ----------