},
'ExtUtils::MakeMaker' => {
- 'DISTRIBUTION' => 'BINGOS/ExtUtils-MakeMaker-6.78.tar.gz',
+ 'DISTRIBUTION' => 'BINGOS/ExtUtils-MakeMaker-6.79_01.tar.gz',
'FILES' => q[cpan/ExtUtils-MakeMaker],
'EXCLUDED' => [
qr{^t/lib/Test/},
+6.79_01 Tue Oct 1 14:59:27 BST 2013
+ VMS fixes:
+ * Remove MM_TEST_ROOT feature for VMS test support
+
6.78 Mon Sep 23 13:44:39 BST 2013
No changes from 6.77_08
our @EXPORT = qw(test_harness pod2man perllocal_install uninstall
warn_if_old_packlist);
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
my $Is_VMS = $^O eq 'VMS';
use strict;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
use File::Spec;
require ExtUtils::Liblist::Kid;
use strict;
use warnings;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
use ExtUtils::MakeMaker::Config;
use Cwd 'cwd';
use strict;
use ExtUtils::MakeMaker::Config;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
require ExtUtils::Liblist;
require ExtUtils::MakeMaker;
package ExtUtils::MM_AIX;
use strict;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
require ExtUtils::MM_Unix;
our @ISA = qw(ExtUtils::MM_Unix);
package ExtUtils::MM_Any;
use strict;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
use Carp;
use File::Spec;
require ExtUtils::MM_Unix;
our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
=item os_flavor
require ExtUtils::MM_Win32;
our @ISA = qw( ExtUtils::MM_Unix );
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
=head1 NAME
use strict;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
require ExtUtils::MM_Any;
require ExtUtils::MM_Unix;
our @ISA = qw( ExtUtils::MM_Unix );
}
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
=head1 NAME
use strict;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
sub new {
die <<'UNSUPPORTED';
use ExtUtils::MakeMaker::Config;
use File::Basename;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
require ExtUtils::MM_Win32;
our @ISA = qw(ExtUtils::MM_Win32);
use ExtUtils::MakeMaker qw(neatvalue);
use File::Spec;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
require ExtUtils::MM_Any;
require ExtUtils::MM_Unix;
package ExtUtils::MM_QNX;
use strict;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
require ExtUtils::MM_Unix;
our @ISA = qw(ExtUtils::MM_Unix);
package ExtUtils::MM_UWIN;
use strict;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
require ExtUtils::MM_Unix;
our @ISA = qw(ExtUtils::MM_Unix);
# If we make $VERSION an our variable parse_version() breaks
use vars qw($VERSION);
-$VERSION = '6.78';
+$VERSION = '6.79_01';
$VERSION = eval $VERSION; ## no critic [BuiltinFunctions::ProhibitStringyEval]
require ExtUtils::MM_Any;
use File::Basename;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
require ExtUtils::MM_Any;
require ExtUtils::MM_Unix;
package ExtUtils::MM_VOS;
use strict;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
require ExtUtils::MM_Unix;
our @ISA = qw(ExtUtils::MM_Unix);
require ExtUtils::MM_Any;
require ExtUtils::MM_Unix;
our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
$ENV{EMXSHELL} = 'sh'; # to run `commands`
use strict;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
require ExtUtils::MM_Win32;
our @ISA = qw(ExtUtils::MM_Win32);
use strict;
require ExtUtils::MM;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
our @ISA = qw(ExtUtils::MM);
{
my @Prepend_parent;
my %Recognized_Att_Keys;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
$VERSION = eval $VERSION; ## no critic [BuiltinFunctions::ProhibitStringyEval]
# Emulate something resembling CVS $Revision$
use strict;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
use Config ();
package ExtUtils::MakeMaker::FAQ;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
1;
__END__
package ExtUtils::MakeMaker::Tutorial;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
=head1 NAME
# There's just too much Dynaloader incest here to turn on strict vars.
use strict 'refs';
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
require Exporter;
our @ISA = ('Exporter');
our @ISA = qw(Exporter);
our @EXPORT = qw(&Mksymlists);
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
sub Mksymlists {
my(%spec) = @_;
use strict;
use warnings;
-our $VERSION = '6.78';
+our $VERSION = '6.79_01';
use Cwd;
use File::Spec;
sub setup_recurs {
- setup_mm_test_root();
- chdir 'MM_TEST_ROOT:[t]' if $Is_VMS;
while(my($file, $text) = each %Files) {
# Convert to a relative, native file path.
sub setup {
- setup_mm_test_root();
- chdir 'MM_TEST_ROOT:[t]' if $^O eq 'VMS';
while(my($file, $text) = each %Files) {
# Convert to a relative, native file path.
);
sub setup_recurs {
- setup_mm_test_root();
- chdir 'MM_TEST_ROOT:[t]' if $^O eq 'VMS';
while(my($file, $text) = each %Files) {
# Convert to a relative, native file path.
sub setup_xs {
- setup_mm_test_root();
- chdir 'MM_TEST_ROOT:[t]' if $Is_VMS;
while(my($file, $text) = each %Files) {
# Convert to a relative, native file path.
return 1;
}
-1;
\ No newline at end of file
+1;
our @EXPORT = qw(which_perl perl_lib makefile_name makefile_backup
make make_run run make_macro calibrate_mtime
- setup_mm_test_root
have_compiler slurp
$Is_VMS $Is_MacOS
run_ok
return wantarray ? @out : join "", @out;
}
-=item B<setup_mm_test_root>
-
-Creates a rooted logical to avoid the 8-level limit on older VMS systems.
-No action taken on non-VMS systems.
-
-=cut
-
-sub setup_mm_test_root {
- if( $Is_VMS ) {
- # On older systems we might exceed the 8-level directory depth limit
- # imposed by RMS. We get around this with a rooted logical, but we
- # can't create logical names with attributes in Perl, so we do it
- # in a DCL subprocess and put it in the job table so the parent sees it.
- open( MMTMP, '>mmtesttmp.com' ) ||
- die "Error creating command file; $!";
- print MMTMP <<'COMMAND';
-$ MM_TEST_ROOT = F$PARSE("SYS$DISK:[--]",,,,"NO_CONCEAL")-".][000000"-"]["-"].;"+".]"
-$ DEFINE/JOB/NOLOG/TRANSLATION=CONCEALED MM_TEST_ROOT 'MM_TEST_ROOT'
-COMMAND
- close MMTMP;
-
- system '@mmtesttmp.com';
- 1 while unlink 'mmtesttmp.com';
- }
-}
-
=item have_compiler
$have_compiler = have_compiler;