X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.db-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Fsource.tar.gz;h=1d92ad8584255028578f7b1cbb2da41f9376f5f5;hp=7a0525a564880bd035c4db55d78a5cb8cbb50d34;hb=555b3391b3cd9967a29b219fff242b583137d2b8;hpb=d07ad9029cd3df15db62d13f40345911e124f0a7

diff --git a/yarrg/web/source.tar.gz b/yarrg/web/source.tar.gz
index 7a0525a..1d92ad8 100755
--- a/yarrg/web/source.tar.gz
+++ b/yarrg/web/source.tar.gz
@@ -33,14 +33,16 @@
  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();
 
-$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) {
@@ -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
-		) | cpio -Hustar -o --quiet -0 -R 1000:1000 | gzip
+		) | (
+		 cpio -Hustar -o --quiet -0 -R 1000:1000 || \
+		 cpio -Hustar -o --quiet -0
+		) | gzip
 	';
 	die $!;
 }