191f110e0Safresh1#!./perl 291f110e0Safresh1 391f110e0Safresh1BEGIN { 491f110e0Safresh1 chdir 't' if -d 't'; 591f110e0Safresh1 @INC = '../lib'; 66fb12b70Safresh1 require Config; 7*3d61058aSafresh1 Config->import; 86fb12b70Safresh1 991f110e0Safresh1} 1091f110e0Safresh1use strict; 1191f110e0Safresh1 1291f110e0Safresh1require './test.pl'; 1391f110e0Safresh1 14*3d61058aSafresh1plan(5); 1591f110e0Safresh1 1691f110e0Safresh1like(runperl(switches => ['-Irun/flib', '-Mbroken'], stderr => 1), 17b8851fccSafresh1 qr/^Global symbol "\$x" requires explicit package name \(did you (?x: 18b8851fccSafresh1 )forget to declare "my \$x"\?\) at run\/flib\/broken.pm line 6\./, 1991f110e0Safresh1 "Ensure -Irun/flib produces correct filename in warnings"); 2091f110e0Safresh1 2191f110e0Safresh1like(runperl(switches => ['-Irun/flib/', '-Mbroken'], stderr => 1), 22b8851fccSafresh1 qr/^Global symbol "\$x" requires explicit package name \(did you (?x: 23b8851fccSafresh1 )forget to declare "my \$x"\?\) at run\/flib\/broken.pm line 6\./, 2491f110e0Safresh1 "Ensure -Irun/flib/ produces correct filename in warnings"); 256fb12b70Safresh1 26*3d61058aSafresh1like(runperl(switches => ['-Irun/flib/', '-M', 'broken'], stderr => 1), 27*3d61058aSafresh1 qr/^Global symbol "\$x" requires explicit package name \(did you (?x: 28*3d61058aSafresh1 )forget to declare "my \$x"\?\) at run\/flib\/broken.pm line 6\./, 29*3d61058aSafresh1 "Ensure -Irun/flib/ produces correct filename in warnings with space after -M"); 30*3d61058aSafresh1 316fb12b70Safresh1SKIP: { 32b8851fccSafresh1 my $no_pmc; 33b8851fccSafresh1 foreach(Config::non_bincompat_options()) { 34b8851fccSafresh1 if($_ eq "PERL_DISABLE_PMC"){ 35b8851fccSafresh1 $no_pmc = 1; 36b8851fccSafresh1 last; 37b8851fccSafresh1 } 38b8851fccSafresh1 } 39b8851fccSafresh1 40b8851fccSafresh1 if ( $no_pmc ) { 416fb12b70Safresh1 skip('Tests fail without PMC support', 2); 426fb12b70Safresh1 } 436fb12b70Safresh1 446fb12b70Safresh1 like(runperl(switches => ['-Irun/flib', '-Mt2'], prog => 'print t2::id()', stderr => 1), 456fb12b70Safresh1 qr/^t2pmc$/, 466fb12b70Safresh1 "Ensure -Irun/flib loads pmc"); 476fb12b70Safresh1 486fb12b70Safresh1 like(runperl(switches => ['-Irun/flib/', '-Mt2'], prog => 'print t2::id()', stderr => 1), 496fb12b70Safresh1 qr/^t2pmc$/, 506fb12b70Safresh1 "Ensure -Irun/flib/ loads pmc"); 516fb12b70Safresh1} 52