This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
One-argument syswrite
[perl5.git] / t / comp / cpp.t
1 #!./perl
2
3 # $RCSfile: cpp.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:18 $
4
5 BEGIN {
6     chdir 't' if -d 't';
7     @INC = '../lib';
8     $ENV{PERL5LIB} = '../lib';
9 }
10
11 use Config;
12 if ( $^O eq 'MacOS' ||
13      ($Config{'cppstdin'} =~ /\bcppstdin\b/) &&
14      ! -x $Config{'binexp'} . "/cppstdin" ) {
15     print "1..0 # Skip: \$Config{cppstdin} unavailable\n";
16     exit;               # Cannot test till after install, alas.
17 }
18
19 system qq{$^X -"P" "comp/cpp.aux"};