From b18652c87304e9f236661da06908505c57ea3310 Mon Sep 17 00:00:00 2001 From: Ian Jackson Date: Sat, 31 Oct 2009 14:07:37 +0000 Subject: [PATCH] get_source=1: Actually print the header --- yarrg/commod-update-receiver | 3 ++- yarrg/dictionary-update-receiver | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/yarrg/commod-update-receiver b/yarrg/commod-update-receiver index cbd98f8..e03a918 100755 --- a/yarrg/commod-update-receiver +++ b/yarrg/commod-update-receiver @@ -62,7 +62,8 @@ sub must_param ($$) { my %o; if (param('get_source')) { - header('application/octet-stream'); + # There's another copy of this in dictionary-update-receiver. Sorry. + print header('application/octet-stream') or die $!; source_tarball('..', sub { print $_[0] or die $!; }); exit 0; } diff --git a/yarrg/dictionary-update-receiver b/yarrg/dictionary-update-receiver index 8ccea98..3baef66 100755 --- a/yarrg/dictionary-update-receiver +++ b/yarrg/dictionary-update-receiver @@ -43,7 +43,8 @@ use IO::Handle; use Commods; if (param('get_source')) { - header('application/octet-stream'); + # There's another copy of this in commod-update-receiver. Sorry. + print header('application/octet-stream') or die $!; source_tarball('..', sub { print $_[0] or die $!; }); exit 0; } -- 2.30.2