chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge ../ypp-sc-tools.pctb-dict-test
[ypp-sc-tools.db-live.git]
/
yarrg
/
web
/
source.tar.gz
diff --git
a/yarrg/web/source.tar.gz
b/yarrg/web/source.tar.gz
index 157b65fe5b6e4c36b90632d0900fa231fcf32d44..1d92ad8584255028578f7b1cbb2da41f9376f5f5 100755
(executable)
--- a/
yarrg/web/source.tar.gz
+++ b/
yarrg/web/source.tar.gz
@@
-33,14
+33,16
@@
the YARRG website's source code.
the YARRG website's source code.
-</%doc><%perl>
+</%doc><%flags>
+inherit => undef
+</%flags><%perl>
use IO::Pipe;
use CommodsWeb;
$r->content_type('application/octet-stream');
$m->flush_buffer();
use IO::Pipe;
use CommodsWeb;
$r->content_type('application/octet-stream');
$m->flush_buffer();
-$ENV{'YPPSC_YARRG_SRCBASE'}=
$sourcebasedir
;
+$ENV{'YPPSC_YARRG_SRCBASE'}=
sourcebasedir()
;
my $pipe= new IO::Pipe or die $!;
my $pid= fork(); defined $pid or die $!;
if (!$pid) {
my $pipe= new IO::Pipe or die $!;
my $pid= fork(); defined $pid or die $!;
if (!$pid) {
@@
-51,7
+53,10
@@
if (!$pid) {
git-ls-files -z;
git-ls-files -z --others --exclude-from=.gitignore;
if test -d .git; then find .git -print0; fi
git-ls-files -z;
git-ls-files -z --others --exclude-from=.gitignore;
if test -d .git; then find .git -print0; fi
- ) | cpio -Hustar -o --quiet -0 -R 1000:1000
+ ) | (
+ cpio -Hustar -o --quiet -0 -R 1000:1000 || \
+ cpio -Hustar -o --quiet -0
+ ) | gzip
';
die $!;
}
';
die $!;
}