summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Build/source/texk/texlive/linked_scripts/ctanupload/ctanupload.pl1
-rwxr-xr-xMaster/texmf-dist/scripts/ctanupload/ctanupload.pl1
2 files changed, 2 insertions, 0 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/ctanupload/ctanupload.pl b/Build/source/texk/texlive/linked_scripts/ctanupload/ctanupload.pl
index 4c3939b3440..a365e7fd47a 100644
--- a/Build/source/texk/texlive/linked_scripts/ctanupload/ctanupload.pl
+++ b/Build/source/texk/texlive/linked_scripts/ctanupload/ctanupload.pl
@@ -442,6 +442,7 @@ eval {
print @response[3..$#response-3];
local $, = "\n# ";
print LOG '', @response[3..$#response-3] if $LOG;
+ 1;
} or do {
print "Can't display HTML response, storing reponse if log file 'ctanupload_response.html'\n";
open (HLOG, '>', 'ctanupload_response.html');
diff --git a/Master/texmf-dist/scripts/ctanupload/ctanupload.pl b/Master/texmf-dist/scripts/ctanupload/ctanupload.pl
index 4c3939b3440..a365e7fd47a 100755
--- a/Master/texmf-dist/scripts/ctanupload/ctanupload.pl
+++ b/Master/texmf-dist/scripts/ctanupload/ctanupload.pl
@@ -442,6 +442,7 @@ eval {
print @response[3..$#response-3];
local $, = "\n# ";
print LOG '', @response[3..$#response-3] if $LOG;
+ 1;
} or do {
print "Can't display HTML response, storing reponse if log file 'ctanupload_response.html'\n";
open (HLOG, '>', 'ctanupload_response.html');