5 $r->content_type('application/octet-stream');
8 $ENV{'YPPSC_YARRG_SRCBASE'}= $sourcebasedir;
9 my $pipe= new IO::Pipe or die $!;
10 my $pid= fork(); defined $pid or die $!;
14 cd -P "$YPPSC_YARRG_SRCBASE"
17 if test -d .git; then find .git -print0; fi
18 ) | cpio -Hustar -o --quiet -0 -R 1000:1000
25 while ($l= read $pipe, $d, 65536) {
30 defined $l or die "read pipe $!";
31 $pipe->error and die "pipe error $!";
33 # deliberately ignore errors