cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_MacOS.pm MakeMaker methods for MacOS
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_NW5.pm MakeMaker methods for NetWare
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS2.pm MakeMaker methods for OS/2
+cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS390.pm
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_QNX.pm MakeMaker methods for QNX
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm MakeMaker methods for Unix
cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_UWIN.pm MakeMaker methods for U/WIN
cpan/ExtUtils-MakeMaker/t/testdata/reallylongdirectoryname/arch1/Config.pm test data for MakeMaker
cpan/ExtUtils-MakeMaker/t/testdata/reallylongdirectoryname/arch2/Config.pm test data for MakeMaker
cpan/ExtUtils-MakeMaker/t/testlib.t See if ExtUtils::testlib works
-cpan/ExtUtils-MakeMaker/t/testrules.yml
cpan/ExtUtils-MakeMaker/t/unicode.t
cpan/ExtUtils-MakeMaker/t/VERSION_FROM.t See if MakeMaker's VERSION_FROM works
cpan/ExtUtils-MakeMaker/t/vstrings.t
},
'ExtUtils::MakeMaker' => {
- 'DISTRIBUTION' => 'BINGOS/ExtUtils-MakeMaker-7.44.tar.gz',
+ 'DISTRIBUTION' => 'BINGOS/ExtUtils-MakeMaker-7.48.tar.gz',
'FILES' => q[cpan/ExtUtils-MakeMaker],
'EXCLUDED' => [
qr{^t/lib/Test/},
'README.packaging',
'lib/ExtUtils/MakeMaker/version/vpp.pm',
],
- 'CUSTOMIZED' => [
- # https://github.com/Perl/perl5/issues/17601
- # https://rt.cpan.org/Ticket/Display.html?id=115321
- 't/lib/MakeMaker/Test/Setup/XS.pm',
- ],
},
'ExtUtils::PL2Bat' => {
use 5.00503;
use strict;
+use warnings;
require Exporter;
use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION);
@ISA = qw(Exporter);
@EXPORT = qw(cp rm_f rm_rf mv cat eqtime mkpath touch test_f test_d chmod
dos2unix);
-$VERSION = '7.44';
+$VERSION = '7.48';
$VERSION =~ tr/_//d;
my $Is_VMS = $^O eq 'VMS';
our @EXPORT = qw(test_harness pod2man perllocal_install uninstall
warn_if_old_packlist test_s cp_nonempty);
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
my $Is_VMS = $^O eq 'VMS';
package ExtUtils::Liblist;
use strict;
+use warnings;
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
use File::Spec;
use strict;
use warnings;
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
use ExtUtils::MakeMaker::Config;
package ExtUtils::MM;
use strict;
+use warnings;
use ExtUtils::MakeMaker::Config;
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
require ExtUtils::Liblist;
$Is{QNX} = $^O eq 'qnx';
$Is{AIX} = $^O eq 'aix';
$Is{Darwin} = $^O eq 'darwin';
+$Is{OS390} = $^O eq 'os390';
$Is{Unix} = !grep { $_ } values %Is;
package ExtUtils::MM_AIX;
use strict;
-our $VERSION = '7.44';
+use warnings;
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
use ExtUtils::MakeMaker::Config;
package ExtUtils::MM_Any;
use strict;
-our $VERSION = '7.44';
+use warnings;
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
use Carp;
# rolled their own tarball rather than using "make dist".
if ($meta->{generated_by} &&
$meta->{generated_by} =~ /ExtUtils::MakeMaker version ([\d\._]+)/) {
- my $eummv = do { local $^W = 0; $1+0; };
+ my $eummv = do { no warnings; $1+0; };
if ($eummv < 6.2501) {
return;
}
package ExtUtils::MM_BeOS;
use strict;
+use warnings;
=head1 NAME
require ExtUtils::MM_Unix;
our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
package ExtUtils::MM_Cygwin;
use strict;
+use warnings;
use ExtUtils::MakeMaker::Config;
use File::Spec;
require ExtUtils::MM_Win32;
our @ISA = qw( ExtUtils::MM_Unix );
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
$self->{EXPORT_LIST} ||= '';
}
+sub init_others {
+ my $self = shift;
+
+ $self->SUPER::init_others;
+
+ $self->{LDLOADLIBS} ||= $Config{perllibs};
+
+ return;
+}
+
=item maybe_command
Determine whether a file is native to Cygwin by checking whether it
package ExtUtils::MM_DOS;
use strict;
+use warnings;
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
require ExtUtils::MM_Any;
package ExtUtils::MM_Darwin;
use strict;
+use warnings;
BEGIN {
require ExtUtils::MM_Unix;
our @ISA = qw( ExtUtils::MM_Unix );
}
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
package ExtUtils::MM_MacOS;
use strict;
+use warnings;
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
sub new {
=cut
use strict;
+use warnings;
use ExtUtils::MakeMaker::Config;
use File::Basename;
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
require ExtUtils::MM_Win32;
package ExtUtils::MM_OS2;
use strict;
+use warnings;
use ExtUtils::MakeMaker qw(neatvalue);
use File::Spec;
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
require ExtUtils::MM_Any;
--- /dev/null
+package ExtUtils::MM_OS390;
+
+use strict;
+use warnings;
+our $VERSION = '7.48';
+$VERSION =~ tr/_//d;
+
+use ExtUtils::MakeMaker::Config;
+require ExtUtils::MM_Unix;
+our @ISA = qw(ExtUtils::MM_Unix);
+
+=head1 NAME
+
+ExtUtils::MM_OS390 - OS390 specific subclass of ExtUtils::MM_Unix
+
+=head1 SYNOPSIS
+
+ Don't use this module directly.
+ Use ExtUtils::MM and let it choose.
+
+=head1 DESCRIPTION
+
+This is a subclass of L<ExtUtils::MM_Unix> which contains functionality for
+OS390.
+
+Unless otherwise stated it works just like ExtUtils::MM_Unix.
+
+=head2 Overriden methods
+
+=over
+
+=item xs_make_dynamic_lib
+
+Defines the recipes for the C<dynamic_lib> section.
+
+=cut
+
+sub xs_make_dynamic_lib {
+ my ($self, $attribs, $object, $to, $todir, $ldfrom, $exportlist, $dlsyms) = @_;
+ $exportlist = '' if $exportlist ne '$(EXPORT_LIST)';
+ my $armaybe = $self->_xs_armaybe($attribs);
+ my @m = sprintf '%s : %s $(MYEXTLIB) %s$(DFSEP).exists %s $(PERL_ARCHIVEDEP) $(PERL_ARCHIVE_AFTER) $(INST_DYNAMIC_DEP) %s'."\n", $to, $object, $todir, $exportlist, ($dlsyms || '');
+ my $dlsyms_arg = $self->xs_dlsyms_arg($dlsyms);
+ if ($armaybe ne ':'){
+ $ldfrom = 'tmp$(LIB_EXT)';
+ push(@m," \$(ARMAYBE) cr $ldfrom $object\n");
+ push(@m," \$(RANLIB) $ldfrom\n");
+ }
+
+ # For example in AIX the shared objects/libraries from previous builds
+ # linger quite a while in the shared dynalinker cache even when nobody
+ # is using them. This is painful if one for instance tries to restart
+ # a failed build because the link command will fail unnecessarily 'cos
+ # the shared object/library is 'busy'.
+ push(@m," \$(RM_F) \$\@\n");
+
+ my $libs = '$(LDLOADLIBS)';
+
+ my $ld_run_path_shell = "";
+ if ($self->{LD_RUN_PATH} ne "") {
+ $ld_run_path_shell = 'LD_RUN_PATH="$(LD_RUN_PATH)" ';
+ }
+
+ push @m, sprintf <<'MAKE', $ld_run_path_shell, $dlsyms_arg, $self->xs_obj_opt('$@'), $ldfrom, $libs, $exportlist;
+ %s$(LD) $(LDDLFLAGS) %s $(OTHERLDFLAGS) %s $(MYEXTLIB) %s \
+ $(PERL_ARCHIVE) %s $(PERL_ARCHIVE_AFTER) %s \
+ $(INST_DYNAMIC_FIX)
+ $(CHMOD) $(PERM_RWX) $@
+MAKE
+ join '', @m;
+}
+
+1;
+
+=back
+
+=head1 AUTHOR
+
+Michael G Schwern <schwern@pobox.com> with code from ExtUtils::MM_Unix
+
+=head1 SEE ALSO
+
+L<ExtUtils::MakeMaker>
+
+=cut
+__END__
package ExtUtils::MM_QNX;
use strict;
-our $VERSION = '7.44';
+use warnings;
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
require ExtUtils::MM_Unix;
package ExtUtils::MM_UWIN;
use strict;
-our $VERSION = '7.44';
+use warnings;
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
require ExtUtils::MM_Unix;
require 5.006;
use strict;
+use warnings;
use Carp;
use ExtUtils::MakeMaker::Config;
# If we make $VERSION an our variable parse_version() breaks
use vars qw($VERSION);
-$VERSION = '7.44';
+$VERSION = '7.48';
$VERSION =~ tr/_//d;
require ExtUtils::MM_Any;
chop;
next if /^\s*(if|unless|elsif)/;
if ( m{^ \s* package \s+ \w[\w\:\']* \s+ (v?[0-9._]+) \s* (;|\{) }x ) {
- local $^W = 0;
+ no warnings;
$result = $1;
}
elsif ( m{(?<!\\) ([\$*]) (([\w\:\']*) \bVERSION)\b .* (?<![<>=!])\=[^=]}x ) {
my $normal = eval { version->new( $result ) };
$result = $normal if defined $normal;
}
+ if ( defined $result ) {
+ $result = "undef" unless $result =~ m!^v?[\d_\.\-]+$!
+ or eval { version->parse( $result ) };
+ }
$result = "undef" unless defined $result;
return $result;
}
version::->import;
};
no strict;
+ no warnings;
local *{$name};
- local $^W = 0;
$line = $1 if $line =~ m{^(.+)}s;
eval($line); ## no critic
return ${$name};
}
my $archname = $Config{archname};
+
+ # archname did not change from 5.6 to 5.8, but those versions may
+ # not be not binary compatible so now we append the part of the
+ # version that changes when binary compatibility may change
if ("$]" >= 5.008) {
- # archname did not change from 5.6 to 5.8, but those versions may
- # not be not binary compatible so now we append the part of the
- # version that changes when binary compatibility may change
- $archname .= "-$Config{PERL_REVISION}.$Config{PERL_VERSION}";
+ $archname .= "-$Config{api_revision}.$Config{api_version}";
}
push @ppd_chunks, sprintf <<'PPD_OUT', $archname;
<ARCHITECTURE NAME="%s" />
pure_all :: config pm_to_blib subdirs linkext
$(NOECHO) $(NOOP)
- $(NOECHO) $(NOOP)
-
subdirs :: $(MYEXTLIB)
$(NOECHO) $(NOOP)
package ExtUtils::MM_VMS;
use strict;
+use warnings;
use ExtUtils::MakeMaker::Config;
require Exporter;
use File::Basename;
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
require ExtUtils::MM_Any;
package ExtUtils::MM_VOS;
use strict;
-our $VERSION = '7.44';
+use warnings;
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
require ExtUtils::MM_Unix;
package ExtUtils::MM_Win32;
use strict;
-
+use warnings;
=head1 NAME
require ExtUtils::MM_Any;
require ExtUtils::MM_Unix;
our @ISA = qw( ExtUtils::MM_Any ExtUtils::MM_Unix );
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
$ENV{EMXSHELL} = 'sh'; # to run `commands`
package ExtUtils::MM_Win95;
use strict;
+use warnings;
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
require ExtUtils::MM_Win32;
use strict;
require ExtUtils::MM;
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
our @ISA = qw(ExtUtils::MM);
package ExtUtils::MakeMaker;
use strict;
+use warnings;
BEGIN {require 5.006;}
our %macro_fsentity; # whether a macro is a filesystem name
our %macro_dep; # whether a macro is a dependency
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
# Emulate something resembling CVS $Revision$
}
sub _run_hintfile {
- our $self;
- local($self) = shift; # make $self available to the hint file.
- my($hint_file) = shift;
+ my ($self, $hint_file) = @_;
local($@, $!);
print "Processing hints file $hint_file\n" if $Verbose;
# Just in case the ./ isn't on the hint file, which File::Spec can
# often strip off, we bung the curdir into @INC
- local @INC = (File::Spec->curdir, @INC);
- my $ret = do $hint_file;
- if( !defined $ret ) {
- my $error = $@ || $!;
- warn $error;
+ if(open(my $fh, '<', $hint_file)) {
+ eval join('', <$fh>);
+ warn "Failed to run hint file $hint_file: $@" if $@;
+ }
+ else {
+ warn "Could not open $hint_file for read: $!";
}
}
package ExtUtils::MakeMaker::Config;
use strict;
+use warnings;
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
use Config ();
package ExtUtils::MakeMaker::FAQ;
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
1;
package ExtUtils::MakeMaker::Locale;
use strict;
-our $VERSION = "7.44";
+use warnings;
+our $VERSION = "7.48";
$VERSION =~ tr/_//d;
use base 'Exporter';
package ExtUtils::MakeMaker::Tutorial;
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
use 5.006001;
use strict;
+use warnings;
use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
-$VERSION = '7.44';
+$VERSION = '7.48';
$VERSION =~ tr/_//d;
$CLASS = 'version';
if ( $@ ) { # don't have any version.pm installed
eval "use ExtUtils::MakeMaker::version::vpp";
die "$@" if ( $@ );
- local $^W;
+ no warnings;
delete $INC{'version.pm'};
$INC{'version.pm'} = $INC{'ExtUtils/MakeMaker/version.pm'};
push @version::ISA, "ExtUtils::MakeMaker::version::vpp";
package ExtUtils::MakeMaker::version::regex;
use strict;
+use warnings;
use vars qw($VERSION $CLASS $STRICT $LAX);
-$VERSION = '7.44';
+$VERSION = '7.48';
$VERSION =~ tr/_//d;
#--------------------------------------------------------------------------#
package ExtUtils::Mkbootstrap;
-# There's just too much Dynaloader incest here to turn on strict vars.
-use strict 'refs';
+use strict;
+use warnings;
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
require Exporter;
if (-f "${baseext}_BS"){
$_ = "${baseext}_BS";
package DynaLoader; # execute code as if in DynaLoader
+ no strict 'vars';
local($osname, $dlsrc) = (); # avoid warnings
($osname, $dlsrc) = @Config::Config{qw(osname dlsrc)};
$bscode = "";
if ($Config{'dlsrc'} =~ /^dl_dld/){
package DynaLoader;
+ no strict 'vars';
push(@dl_resolve_using, dl_findfile('-lc'));
}
use 5.006;
use strict qw[ subs refs ];
# no strict 'vars'; # until filehandles are exempted
+use warnings;
use Carp;
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(&Mksymlists);
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
sub Mksymlists {
use strict;
use warnings;
-our $VERSION = '7.44';
+our $VERSION = '7.48';
$VERSION =~ tr/_//d;
use Cwd;
}
chdir 't';
+use warnings;
use Test::More;
my $Has_Test_Pod;
plan skip_all => 'Shared perl library' if $Config{useshrplib} eq 'true';
plan skip_all => $^O if $^O =~ m!^(MSWin32|cygwin|haiku|darwin)$!;
plan skip_all => 'Skipped when not PERL_CORE nor in git repo' unless $ENV{PERL_CORE} or $release;
+plan skip_all => 'Skipped as perl.exp is not in scope' if -s '../../../perl.exp' && $ENV{PERL_CORE};
my @tests = list_static();
plan skip_all => "No tests" unless @tests;
plan tests => 6 * @tests;
}
use strict;
+use warnings;
use Test::More tests => 7;
use MakeMaker::Test::Setup::BFD;
}
use strict;
+use warnings;
use Test::More tests => 26;
use MakeMaker::Test::Utils;
use MakeMaker::Test::Setup::BFD;
}
use strict;
+use warnings;
use File::Path;
use Config;
my @INSTDIRS = ('../dummy-install', '../dummy install');
}
use strict;
+use warnings;
use Test::More tests => 52;
use MakeMaker::Test::Utils;
use MakeMaker::Test::Setup::BFD;
chdir 't';
use strict;
+use warnings;
use Test::More tests => 6;
#!/usr/bin/perl -w
+use strict;
+use warnings;
+
BEGIN {
unshift @INC, 't/lib';
}
}
chdir 't';
+use strict;
+use warnings;
use Test::More;
BEGIN {
chdir 't';
use strict;
+use warnings;
use Test::More;
BEGIN {
# Our copy of Perl (with a unix-path) should always be executable.
SKIP: {
- skip "The Perl may not be installed yet when in core" if $ENV{PERL_CORE};
+ skip "The Perl may not be installed yet when in core", 1 if $ENV{PERL_CORE};
ok(MM->maybe_command($Config{perlpath}), qq{'$Config{perlpath}' should be executable});
}
}
chdir 't';
-
+use strict;
+use warnings;
use Test::More;
BEGIN {
chdir 't';
use strict;
+use warnings;
use Test::More;
if ($^O =~ /os2/i) {
plan( tests => 32 );
BEGIN { use_ok( 'ExtUtils::MM_Unix' ); }
use strict;
+use warnings;
use File::Spec;
my $class = 'ExtUtils::MM_Unix';
#!/usr/bin/perl -w
+use strict;
+use warnings;
+
BEGIN {
unshift @INC, 't/lib';
}
chdir 't';
+my @Methods;
+
BEGIN {
@Methods = (qw(wraplist
rootdir
chdir 't';
use strict;
+use warnings;
use Test::More;
BEGIN {
#!/usr/bin/perl -w
+use strict;
+use warnings;
+
BEGIN {
unshift @INC, 't/lib/';
}
chdir 't';
use strict;
+use warnings;
use Test::More tests => 1;
use MakeMaker::Test::Utils;
use ExtUtils::MakeMaker;
#!/usr/bin/perl -w
+use strict;
+use warnings;
+
# This is a test of WriteEmptyMakefile.
BEGIN {
#!/usr/bin/perl -w
use strict;
+use warnings;
use lib 't/lib';
use TieOut;
}
use strict;
+use warnings;
use Test::More tests => 2;
require ExtUtils::MakeMaker;
}
use strict;
+use warnings;
use Config;
use ExtUtils::MakeMaker;
use utf8;
unlike( $ppd_html, qr{^\s*<REQUIRE NAME="warnings::" />}m, 'no <REQUIRE> for build_require' );
my $archname = $Config{archname};
-if( "$]" >= 5.008 ) {
- # XXX This is a copy of the internal logic, so it's not a great test
+# XXX This is a copy of the internal logic, so it's not a great test
+if( "$]" >= 5.010) {
+ $archname .= "-$^V->{version}->[0].$^V->{version}->[1]";
+}
+elsif( "$]" >= 5.008 ) {
$archname .= "-$Config{PERL_REVISION}.$Config{PERL_VERSION}";
}
like( $ppd_html, qr{^\s*<ARCHITECTURE NAME="$archname" />}m,
}
use strict;
+use warnings;
use Test::More tests => 50;
use File::Spec;
unshift @INC, 't/lib/';
}
+use strict;
+use warnings;
use File::Temp qw[tempdir];
my $tmpdir = tempdir( DIR => 't', CLEANUP => 1 );
use Cwd; my $cwd = getcwd; END { chdir $cwd } # so File::Temp can cleanup
{
package Test::MM_Win32;
use ExtUtils::MM_Win32;
- @ISA = qw(ExtUtils::MM_Win32);
+ our @ISA = qw(ExtUtils::MM_Win32);
my $mm = bless {}, 'Test::MM_Win32';
unshift @INC, 't/lib/';
}
+use strict;
+use warnings;
use Test::More tests => 3;
use Config ();
}
chdir 't';
+use strict;
+use warnings;
use ExtUtils::Command;
use Test::More tests => 1;
#!/usr/bin/perl -w
+use strict;
+use warnings;
+
use lib 't/lib';
use File::Temp qw[tempdir];
#!/usr/bin/perl -w
+use strict;
+use warnings;
+
+my $Testfile;
+
BEGIN {
unshift @INC, 't/lib/';
}
}
use strict;
+use warnings;
use lib './lib';
use Test::More 'no_plan';
#!/usr/bin/perl -w
+use strict;
+use warnings;
+
# Try to test fixin. I say "try" because what fixin will actually do
# is highly variable from system to system.
local $SIG{__WARN__} = sub { $stderr .= join '', @_ };
$mm->check_hints;
- is( $stderr, <<OUT, 'hint files produce errors' );
-Argh!
-OUT
+ like( $stderr, qr{^Failed to run hint file hints\S+\.pl: Argh!\n\z}, 'hint files produce errors' );
}
END {
use lib './lib';
use strict;
+use warnings;
use ExtUtils::MakeMaker;
use Test::More "no_plan";
# Disable all XS loading.
+use strict;
+use warnings;
use Carp;
require DynaLoader;
delete $DynaLoader::{boot_DynaLoader};
if ($^O eq 'MSWin32') {
+ # Load Win32. Then clear the stash of all other entries but GetCwd and SetChildShowWindow
+ # SetChildShowWindow and GetCwd are provided by perl core in modern perls, so we
+ # can use them in miniperl. on older perls, we can load them from Win32 so the
+ # test can proceed as normal.
+
require Win32;
- my $GetCwd = *{'Win32::GetCwd'}{CODE};
- my $SetChildShowWindow = *{'Win32::SetChildShowWindow'}{CODE};
- %{*main::Win32::{HASH}} = ();
- *{'Win32::GetCwd'} = $GetCwd;
- *{'Win32::SetChildShowWindow'} = $SetChildShowWindow;
+
+ foreach my $slot (keys %Win32::) {
+ next if $slot eq 'GetCwd';
+ next if $slot eq 'SetChildShowWindow';
+ delete $Win32::{$slot};
+ }
}
# This isn't 100%. Things like Win32.pm will crap out rather than
@EXPORT = qw(setup_recurs teardown_recurs);
use strict;
+use warnings;
use File::Path;
use File::Basename;
use MakeMaker::Test::Utils;
@EXPORT = qw(run_tests list_dynamic list_static);
use strict;
+use warnings;
use File::Path;
use MakeMaker::Test::Utils;
use Config;
'Makefile.PL' => sprintf($MAKEFILEPL, 'Test', 'lib/XS/Test.pm', qq{'$typemap'}, ''),
);
-my %label2files = (basic => \%Files);
+my %label2files = (basic => \%Files, basic2 => \%Files); # basic2 so no clash
$label2files{bscode} = +{
%{ $label2files{'basic'} }, # make copy
sub list_static {
(
- ( !$Config{usedl} ? [ 'basic', '', '' ] : ()), # still needs testing on static perl
+ ( !$Config{usedl} ? [ 'basic2', '', '' ] : ()), # still needs testing on static perl
[ 'static', '', '' ],
[ 'basic', ' static', '_static' ],
[ 'multi', ' static', '_static' ],
use File::Spec;
use strict;
+use warnings;
use Config;
use Cwd qw(getcwd);
use Carp qw(croak);
sub have_compiler {
my $have_compiler = 0;
- eval {
- require ExtUtils::CBuilder;
- my $cb = ExtUtils::CBuilder->new(quiet=>1);
- $have_compiler = $cb->have_compiler;
- };
+
+ in_dir(sub {
+ eval {
+ require ExtUtils::CBuilder;
+ my $cb = ExtUtils::CBuilder->new(quiet=>1);
+ $have_compiler = $cb->have_compiler;
+ };
+ });
+
return $have_compiler;
}
package TieIn;
+use strict;
+use warnings;
+
sub TIEHANDLE {
bless( \(my $scalar), $_[0]);
}
package TieOut;
+use strict;
+use warnings;
+
sub TIEHANDLE {
my $scalar = '';
bless( \$scalar, $_[0]);
#!/usr/bin/perl -w
+use strict;
+use warnings;
+
BEGIN {
unshift @INC, 't/lib/';
}
#!/usr/bin/perl -w
+use strict;
+use warnings;
+
BEGIN {
unshift @INC, 't/lib';
}
}
use strict;
+use warnings;
use Test::More;
BEGIN {
eval { require CPAN::Meta; CPAN::Meta->VERSION(2.143240) }
}
use strict;
+use warnings;
use Test::More tests => 16;
require ExtUtils::MM_Any;
# This mostly means no XS modules.
use strict;
+use warnings;
use lib 't/lib';
use Test::More;
#!/usr/bin/perl -w
+use strict;
+use warnings;
+
BEGIN {
unshift @INC, 't/lib';
}
}
use strict;
+use warnings;
use Test::More tests => 1;
use ExtUtils::MakeMaker;
#!/usr/bin/perl -w
+use strict;
+use warnings;
+
BEGIN {
unshift @INC, 't/lib';
}
q[my $VERSION = '1.01'] => 'undef',
q[local $VERSION = '1.02'] => 'undef',
q[local $FOO::VERSION = '1.30'] => 'undef',
- q[if( $Foo::VERSION >= 3.00 ) {]=> 'undef',
+ q[if( $Foo::VERSION >= 3.00 ) {]=> undef,
q[our $VERSION = '1.23';] => '1.23',
q[$CGI::VERSION='3.63'] => '3.63',
q[$VERSION = "1.627"; # ==> ALSO update the version in the pod text below!] => '1.627',
'$VERSION = substr(q$Revision: 2.8 $, 10) + 2 . "";' => '4.8',
q[our $VERSION = do { my @r = ( q$Revision: 2.7 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };] => '2.07', # Fucking seriously?
'elsif ( $Something::VERSION >= 1.99 )' => undef,
-
);
if( $Has_Version ) {
$versions{'package Foo::Bar v1.2.3;' } = 'v1.2.3';
$versions{' package Foo::Bar 1.23 ;' } = '1.23';
$versions{"package Foo'Bar 1.23;" } = '1.23';
- $versions{"package Foo::Bar 1.2.3;" } = '1.2.3';
$versions{'package Foo 1.230;' } = '1.230';
- $versions{'package Foo 1.23_01;' } = '1.23_01';
- $versions{'package Foo v1.23_01;' } = 'v1.23_01';
- $versions{q["package Foo 1.23"]} = 'undef';
+ $versions{q["package Foo 1.23"]} = undef;
+ $versions{q[our $VERSION = "1.00 / the fucking fuck";]} = 'undef';
$versions{<<'END'} = '1.23';
package Foo 1.23;
our $VERSION = 2.34;
$versions{'package Foo::Bar v1.2.3 { }' } = 'v1.2.3';
$versions{' package Foo::Bar 1.23 { }' } = '1.23';
$versions{"package Foo'Bar 1.23 { }" } = '1.23';
- $versions{"package Foo::Bar 1.2.3 { }" } = '1.2.3';
$versions{'package Foo 1.230 { }' } = '1.230';
- $versions{'package Foo 1.23_01 { }' } = '1.23_01';
- $versions{'package Foo v1.23_01 { }' } = 'v1.23_01';
$versions{<<'END'} = '1.23';
package Foo 1.23 {
our $VERSION = 2.34;
}
use strict;
+use warnings;
use Test::More tests => 6;
use TieOut;
# Ensure pm_to_blib runs at the right times.
use strict;
+use warnings;
use lib 't/lib';
use File::Temp qw[tempdir];
# Test our simulation of pod2man
use strict;
+use warnings;
use lib 't/lib';
use ExtUtils::Command::MM;
}
use strict;
+use warnings;
use Config;
use Test::More tests => 8;
use MakeMaker::Test::Utils;
}
use strict;
+use warnings;
use Test::More;
if( $^O eq 'VMS' ) {
}
use strict;
+use warnings;
use Config;
use Test::More tests => 21;
use File::Temp qw[tempdir];
}
use strict;
+use warnings;
use Config;
use Test::More;
chdir 't';
use strict;
+use warnings;
use Test::More tests => 5;
use ExtUtils::MM;
use MakeMaker::Test::Utils;
}
use strict;
+use warnings;
use Test::More tests => 11;
use ExtUtils::MakeMaker;
use TieOut;
#!/usr/bin/perl -w
+use strict;
+use warnings;
+
BEGIN {
unshift @INC, 't/lib';
}
}
use strict;
-
+use warnings;
use TieOut;
use MakeMaker::Test::Utils;
use Config;
chdir 't';
+use strict;
+use warnings;
use Config;
use ExtUtils::MM;
use MakeMaker::Test::Utils;
my @cmds = $mm->split_command($echo, @test_args);
isnt( @cmds, 0 );
-@results = _run(@cmds);
+my @results = _run(@cmds);
is( join('', @results), join('', @test_args));
my %test_args = ( foo => 42, bar => 23, car => 'har' );
-$even_args = $mm->oneliner(q{print !(@ARGV % 2)});
+my $even_args = $mm->oneliner(q{print !(@ARGV % 2)});
@cmds = $mm->split_command($even_args, %test_args);
isnt( @cmds, 0 );
# Use things from t/lib/
use lib './lib';
use strict;
+use warnings;
use ExtUtils::MakeMaker;
use Test::More tests => 1;
}
chdir 't';
+use strict;
+use warnings;
use Test::More tests => 5;
BEGIN {
+++ /dev/null
----
-# TAP::Harness test rules
-# "t\02-xsdynamic.t" (and possibly "t\03-xsstatic.t") should *not* be run in parallel
-# ... allowing overlap of these tests causes race conditions which lead to intermittent failures
-seq:
- - seq:
- # serialize all tests in files matching "t/0*.t"
- - t{\\,/}0*.t
- - par:
- # run all other tests in parallel
- - **
chdir 't';
use strict;
+use warnings;
use ExtUtils::MM;
use MakeMaker::Test::Utils qw(makefile_name make make_run run hash2files);
use Test::More;
local $_;
SKIP: {
skip "No vstring test <5.8", 2
- if "$]" < 5.008 && $pkg eq 'BareV2String' && $descrip =~ m!^2-part!;
+ if "$]" <= 5.008 && $pkg eq 'BareV2String' && $descrip =~ m!^2-part!;
my $warnings;
eval { $warnings = capture_make("Fake::$pkg" => $version); };
is($@, '', "$descrip not fatal") or skip "$descrip WM failed", 1;
}
use strict;
+use warnings;
use Config;
use Test::More tests => 43;
/ExtUtils/MM_MacOS.pm
/ExtUtils/MM_NW5.pm
/ExtUtils/MM_OS2.pm
+/ExtUtils/MM_OS390.pm
/ExtUtils/MM_QNX.pm
/ExtUtils/MM_UWIN.pm
/ExtUtils/MM_Unix.pm
Devel::PPPort dist/Devel-PPPort/Makefile.PL c939c8d33d11994c06f546869df63d4518ece797
Digest cpan/Digest/Digest.pm 43f7f544cb11842b2f55c73e28930da50774e081
ExtUtils::Constant cpan/ExtUtils-Constant/t/Constant.t d5c75c41d6736a0c5897130f534af0896a7d6f4d
-ExtUtils::MakeMaker cpan/ExtUtils-MakeMaker/t/lib/MakeMaker/Test/Setup/XS.pm 9dd84951b7602239516659c15d23c3c9eeebd1ab
ExtUtils::PL2Bat cpan/ExtUtils-PL2Bat/t/make_executable.t 6e63dbf43ee7ff5a54e615a576360cb0f1825694
Filter::Util::Call pod/perlfilter.pod 9b4aec0d8518274ddb0dd37e3b770fe13a44dd1f
Locale::Maketext::Simple cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm 57ed38905791a17c150210cd6f42ead22a7707b6
https://perl5.git.perl.org / perl5.git / commitdiff