BEGIN {
if($] < 5.007) {
print "1..1\n";
warn "Skipped for perl 5.6.x\n";
print "ok 1\n";
exit(0);
}
};
use warnings;
use strict;
use Test::More tests => 2;
use Test::Warn;
# Suppress "Set up gcc environment ..." warning.
# (Affects ActivePerl only.)
$ENV{ACTIVEPERL_CONFIG_SILENT} = 1;
my $w = 'config file removed';
warnings_like {require_rewrite()} [qr/$w/], 'warn_test';
ok($@, '"Inline Bogus" test');
sub require_rewrite {
eval {require './t/07rewrite2_config.p';};
}