},
'ExtUtils::Install' => {
- 'DISTRIBUTION' => 'BINGOS/ExtUtils-Install-2.16.tar.gz',
+ 'DISTRIBUTION' => 'BINGOS/ExtUtils-Install-2.18.tar.gz',
'FILES' => q[cpan/ExtUtils-Install],
'EXCLUDED' => [
qw( t/lib/Test/Builder.pm
=head1 VERSION
-2.16
+2.18
=cut
-our $VERSION = '2.16'; # <-- do not forget to update the POD section just above this line!
+our $VERSION = '2.18'; # <-- do not forget to update the POD section just above this line!
$VERSION = eval $VERSION;
=pod
+use strict;
package ExtUtils::Installed;
-use 5.00503;
-use strict;
#use warnings; # XXX requires 5.6
use Carp qw();
use ExtUtils::Packlist;
require VMS::Filespec if $Is_VMS;
-use vars qw($VERSION);
-$VERSION = '2.16';
+our $VERSION = '2.18';
$VERSION = eval $VERSION;
sub _is_prefix {
package ExtUtils::Packlist;
-
-use 5.00503;
use strict;
+
use Carp qw();
use Config;
-use vars qw($VERSION $Relocations);
-$VERSION = '2.16';
+our $Relocations;
+our $VERSION = '2.18';
$VERSION = eval $VERSION;
# Used for generating filehandle globs. IO::File might not be available!
#!/usr/bin/perl -w
+use strict;
# Test ExtUtils::Install.
unshift @INC, 't/lib';
}
-use strict;
use TieOut;
use File::Path;
use File::Spec;
#!/usr/bin/perl -w
+use strict;
# Make sure EUI works with MakeMaker
unshift @INC, 't/lib';
}
-use strict;
use Config;
use ExtUtils::MakeMaker;
#!/usr/bin/perl -w
+use strict;
# Test ExtUtils::Install.
unshift @INC, 't/lib';
}
-use strict;
use TieOut;
use File::Path;
use File::Spec;
#!/usr/bin/perl -w
+use strict;
# Test ExtUtils::Installed
my $Is_VMS = $^O eq 'VMS';
-use strict;
use Config;
use Cwd;
my $fakepath = File::Spec->catdir('auto', $fakedir);
ok( mkpath($fakepath), "Able to create directory $fakepath for testing" );
- ok(open(PACKLIST, '>', File::Spec->catfile($fakepath, '.packlist')));
+ ok(open(PACKLIST, '>', File::Spec->catfile($fakepath, '.packlist')),
+ "Able to open .packlist for writing");
print PACKLIST 'list';
close PACKLIST;
- ok(open(FAKEMOD, '>', File::Spec->catfile($fakepath, 'FakeMod.pm')));
+ ok(open(FAKEMOD, '>', File::Spec->catfile($fakepath, 'FakeMod.pm')),
+ "Able to open FakeMod.pm for writing");
print FAKEMOD <<'FAKE';
package FakeMod;
-use vars qw( $VERSION );
-$VERSION = '1.1.1';
+our $VERSION = '1.1.1';
1;
FAKE
#!/usr/bin/perl -w
+use strict;
BEGIN {
unshift @INC, 't/lib';
is( ExtUtils::Packlist::packlist_file($pl), 'eplist',
'packlist_file() should fetch packlist from ExtUtils::Packlist object' );
+my $w = 0;
BEGIN {
# Call mkfh at BEGIN time, to make sure it does not trigger "Used
# once" warnings.
package MakeMaker::Test::Setup::BFD;
+use strict;
-@ISA = qw(Exporter);
+our @ISA = qw(Exporter);
require Exporter;
-@EXPORT = qw(setup_recurs teardown_recurs);
+our @EXPORT = qw(setup_recurs teardown_recurs);
-use strict;
use File::Path;
use File::Basename;
use MakeMaker::Test::Utils;
package MakeMaker::Test::Utils;
+use strict;
use File::Spec;
-use strict;
use Config;
require Exporter;
package TieOut;
+use strict;
sub TIEHANDLE {
my $scalar = '';