File tree Expand file tree Collapse file tree 1 file changed +18
-6
lines changed
t/lib/MakeMaker/Test/Setup Expand file tree Collapse file tree 1 file changed +18
-6
lines changed Original file line number Diff line number Diff line change @@ -25,12 +25,14 @@ $typemap =~ s/ //g unless $MM->can_dep_space;
2525chdir File::Spec-> updir;
2626
2727my $PM_TEST = <<'END' ;
28+ use strict;
29+ use warnings;
2830package XS::Test;
2931require Exporter;
3032require DynaLoader;
31- $VERSION = 1.01;
32- @ISA = qw(Exporter DynaLoader);
33- @EXPORT = qw(is_even);
33+ our $VERSION = 1.01;
34+ our @ISA = qw(Exporter DynaLoader);
35+ our @EXPORT = qw(is_even);
3436bootstrap XS::Test $VERSION;
35371;
3638END
5254
5355my $T_TEST = <<'END' ;
5456#!/usr/bin/perl -w
57+ use strict;
58+ use warnings;
5559use Test::More tests => 3;
5660use_ok "XS::Test";
5761ok !is_even(1);
5862ok is_even(2);
5963END
6064
6165my $MAKEFILEPL = <<'END' ;
66+ use strict;
67+ use warnings;
6268use ExtUtils::MakeMaker;
6369WriteMakefile(
6470 NAME => 'XS::%s',
7278my $BS_TEST = ' $DynaLoader::bscode = q(warn "BIG NOISE";)' ;
7379
7480my $T_BOOTSTRAP = <<'EOF' ;
81+ use strict;
82+ use warnings;
7583use Test::More tests => 1;
7684my $w = '';
7785$SIG{__WARN__} = sub { $w .= join '', @_; };
@@ -80,12 +88,14 @@ like $w, qr/NOISE/;
8088EOF
8189
8290my $PM_OTHER = <<'END' ;
91+ use strict;
92+ use warnings;
8393package XS::Other;
8494require Exporter;
8595require DynaLoader;
86- $VERSION = 1.20;
87- @ISA = qw(Exporter DynaLoader);
88- @EXPORT = qw(is_odd);
96+ our $VERSION = 1.20;
97+ our @ISA = qw(Exporter DynaLoader);
98+ our @EXPORT = qw(is_odd);
8999bootstrap XS::Other $VERSION;
901001;
91101END
107117
108118my $T_OTHER = <<'END' ;
109119#!/usr/bin/perl -w
120+ use strict;
121+ use warnings;
110122use Test::More tests => 3;
111123use_ok "XS::Other";
112124ok is_odd(1);
You can’t perform that action at this time.
0 commit comments