8 for my $dir (qw(src src/modules)) {
9 opendir(DIRHANDLE, $dir);
10 for my $file (sort readdir(DIRHANDLE)) {
11 next unless $file =~ /\.cpp$/;
12 open CPP, '<', "$dir/$file" or die "Can't open $dir/$file to scan it: $!";
14 if (/\/\* \$CopyInstall: (\S+) (\S+) (.*) \*\//i) {
15 my($ifile, $idir, $args) = ($1,$2,$3);
16 next if exists $installed{$1.' '.$2};
17 $installed{$1.' '.$2}++;
18 $idir =~ s/\$\(([^)]+)\)/$ENV{$1}/eg;
19 if ($mode eq 'install') {
20 system "install $args $ifile $idir";
23 system "rm $idir/$ifile";