1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
### SPAR <http://www.cpan.org/scripts/>
### 1 755 1358594656 1358594656 is_relevant.pl
is_windows < 1 # ActiveState doesn't have WUNTRACED
### 30 755 1358594656 1361413899 makepp_test_script.pl
# This tests multiply waiting for a looping mpp that stops itself.
# It must correctly recognize changes, like a newly started mpp would.
use POSIX 'WUNTRACED';
my $pid = fork;
if( $pid ) {
waitpid $pid, WUNTRACED;
kill 'CONT', $pid;
waitpid $pid, WUNTRACED;
n_files 'n_files1';
c_cp 'a', 'a1';
unlink 'b';
kill 'CONT', $pid;
waitpid $pid, WUNTRACED;
n_files 'n_files2';
c_cp 'd', 'e';
kill 'CONT', $pid;
waitpid $pid, WUNTRACED;
n_files 'n_files3'; # Explicitly in case CONT wakes it up
kill $_, $pid or last
for qw(TERM CONT KILL); # Be sure it's gone
waitpid $pid, 0;
} else {
exec PERL, '-w', $makepp_path, '--loop';
}
1;
### 15 644 1358594656 1368039849 Makeppfile
signature md5 # In case rebuild occurs in new second.
$(phony all): f a
a: b
&sed s/(b)/$$1a/ b -o a # Don't reexpand on next iteration
b: c
&cut -c0..2 c -o b
c: d e
&cat d e -o c
f: e
&grep /a/ e -o f # Fail except last time
### 1 644 1358594656 1358594656 d
abcde
### 1 644 1358594656 1358594656 e
bb
### D 755 1358594656 1358594656 answers
### 2 644 1358594656 1358594656 answers/a
abac
abac
### 2 644 1358594656 1358594656 answers/a1
abac
bab
### 1 644 1358594656 1368039849 answers/n_files1
3 0 1
### 1 644 1358594656 1368039849 answers/n_files2
1 0 1
### 1 644 1358594656 1368039849 answers/n_files3
4 1 0
|
