The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

### 21 755 1154549128 1253821169 makepp_test_script.pl
# Ignore child process INT (matters on AIX)
$SIG{INT} = 'IGNORE';
eval { makepp } and die 1;
-f 'x' and -f '.makepp/x.mk' or die 2;
for( qw(a lb) ) {
unlink;
open my $fh, '>', $_;
close $fh;
}
makepp \'clean';
-f 'la' || -f 'b' || -f 'x' and die 3;
-f 'a' && -f 'lb' or die 4;
mkdir '.makepp'; # test harness needs it
open my $fh, '>', '.makepp/log';
print $fh "N_FILES\010\010\010\01\n";
close $fh;
1;
### 15 644 1103069835 1253820874 Makeppfile
x: la lb
&touch $@
perl { is_windows ? die : kill 'INT', $$ }
a:
&echo a -o a
la: a
&ln -fs a la
b:
&echo b -o b
lb: b
&ln -fs b lb