From c4d3486b126e84c785b5345abb07c75a780a0ed8 Mon Sep 17 00:00:00 2001
From: Holger Weiss <holger@zedat.fu-berlin.de>
Date: Thu, 2 Jul 2020 08:25:35 +0200
Subject: [PATCH] Don't stumble over undefined request arguments

Don't yield an "unitialized value" error if Nginx didn't define the
method that returns the request arguments.
---
 upload.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/upload.pm b/upload.pm
index 92bf7dd..f0c032d 100644
--- a/upload.pm
+++ b/upload.pm
@@ -81,7 +81,7 @@ sub handle_put {
     my $uri = $r->uri =~ s|(?:/[^/]+){$uri_prefix_components}/||r;
     my $provided_hmac;
 
-    if ($r->args =~ /v=([[:xdigit:]]{64})/) {
+    if (defined($r->args) and $r->args =~ /v=([[:xdigit:]]{64})/) {
         $provided_hmac = $1;
     } else {
         $r->log_error(0, 'Rejecting upload: No auth token provided');