mirror of
https://github.com/Perl/perl5.git
synced 2026-01-26 08:38:23 +00:00
8b1b46cdfe
That is, turn
BEGIN {
require Foo;
Foo->import(...);
}
into
use Foo ...;
(Except for a few tests that did the `require Config; Config->import`
dance without actually using `%Config` anywhere, so I just deleted the
import code.)
51 lines
1.5 KiB
Perl
51 lines
1.5 KiB
Perl
#!./perl
|
|
|
|
BEGIN {
|
|
chdir 't' if -d 't';
|
|
@INC = '../lib';
|
|
}
|
|
use Config;
|
|
use strict;
|
|
use warnings;
|
|
|
|
require './test.pl';
|
|
|
|
plan(5);
|
|
|
|
like(runperl(switches => ['-Irun/flib', '-Mbroken'], stderr => 1),
|
|
qr/^Global symbol "\$x" requires explicit package name \(did you (?x:
|
|
)forget to declare "my \$x"\?\) at run\/flib\/broken.pm line 6\./,
|
|
"Ensure -Irun/flib produces correct filename in warnings");
|
|
|
|
like(runperl(switches => ['-Irun/flib/', '-Mbroken'], stderr => 1),
|
|
qr/^Global symbol "\$x" requires explicit package name \(did you (?x:
|
|
)forget to declare "my \$x"\?\) at run\/flib\/broken.pm line 6\./,
|
|
"Ensure -Irun/flib/ produces correct filename in warnings");
|
|
|
|
like(runperl(switches => ['-Irun/flib/', '-M', 'broken'], stderr => 1),
|
|
qr/^Global symbol "\$x" requires explicit package name \(did you (?x:
|
|
)forget to declare "my \$x"\?\) at run\/flib\/broken.pm line 6\./,
|
|
"Ensure -Irun/flib/ produces correct filename in warnings with space after -M");
|
|
|
|
SKIP: {
|
|
my $no_pmc;
|
|
foreach(Config::non_bincompat_options()) {
|
|
if($_ eq "PERL_DISABLE_PMC"){
|
|
$no_pmc = 1;
|
|
last;
|
|
}
|
|
}
|
|
|
|
if ( $no_pmc ) {
|
|
skip('Tests fail without PMC support', 2);
|
|
}
|
|
|
|
like(runperl(switches => ['-Irun/flib', '-Mt2'], prog => 'print t2::id()', stderr => 1),
|
|
qr/^t2pmc$/,
|
|
"Ensure -Irun/flib loads pmc");
|
|
|
|
like(runperl(switches => ['-Irun/flib/', '-Mt2'], prog => 'print t2::id()', stderr => 1),
|
|
qr/^t2pmc$/,
|
|
"Ensure -Irun/flib/ loads pmc");
|
|
}
|