avoid warning about uninitialized value

66084986 · Dietmar Maurer · e6e3a140 · 66084986
Commit 66084986 authored May 21, 2013 by Dietmar Maurer
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

HTTPServer.pm PVE/HTTPServer.pm +2 -1

No files found.
--- a/PVE/HTTPServer.pm
+++ b/PVE/HTTPServer.pm
@@ -164,7 +164,8 @@ sub response {

    $reqstate->{log}->{code} = $code;

-    my $res = "$reqstate->{proto}->{str} $code $msg\015\012";
+    my $proto = $reqstate->{proto} ? $reqstate->{proto}->{str} : 'HTTP/1.0';
+    my $res = "$proto $code $msg\015\012";

    my $ctime = time();
    my $date = HTTP::Date::time2str($ctime);