multipart upload: drop unused variables

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>

diff --git a/src/PVE/APIServer/AnyEvent.pm b/src/PVE/APIServer/AnyEvent.pm
index 6a201bcdb1f7e68516f0c01bf82f6732aeac7f53..4e1f7530631d54a91d2d6f799d7db58e8849e8c9 100644 (file)
--- a/src/PVE/APIServer/AnyEvent.pm
+++ b/src/PVE/APIServer/AnyEvent.pm
@@ -1183,7 +1183,6 @@ sub file_upload_multipart {
     my ($self, $reqstate, $auth, $method, $path, $rstate) = @_;
 
     my $trim = sub {
-       my ($string) = @_;
        $_[0] =~ /\s*(\S+)/;
        return $1;
     };
@@ -1249,7 +1248,7 @@ sub file_upload_multipart {
        # Phase 2 - dump content into file
        if ($rstate->{phase} == 2) {
            if ($hdl->{rbuf} =~ s/^(.*?)${newline}?+${closeDelimiter}.*$//s) {
-               my ($rest, $eof) = ($1, $3);
+               my $rest = $1;
                my $len = length($rest);
                die "write to temporary file failed - $!"
                    if syswrite($rstate->{outfh}, $rest) != $len;