}
$!=0; (waitpid $pid, 0) == $pid or die "$!";
die "$dir ($script) $outfile $?" if $?;
+ print STDERR
+ "CGI::Auth::Flexible srcdump_dir_cpio saved $dir into $outfile\n"
+ or die $!;
$$tarballcounter++;
return $outfile;
}
\$srctarballcounter, \$needlicence, \%dirsdone);
$dirsdone{$incdir}++;
}
+ $!=0;
+ my $r = system qw(tar -zvvc -f), "$dumpdir/source.tmp", '--', @srcfiles;
+ die "tar $r $!" if $r;
die "licence file not found" unless defined $needlicence;
srcdump_install($c,$v, $dumpdir, 'licence', 'text/plain');
+ srcdump_install($c,$v, $dumpdir, 'source', 'application/octet-stream');
close $lockf or die $!;
}