Pārlūkot izejas kodu

suppress warnings

George S. Baugh 5 gadi atpakaļ
vecāks
revīzija
46b166670d
1 mainītis faili ar 1 papildinājumiem un 1 dzēšanām
  1. 1 1
      www/server.psgi

+ 1 - 1
www/server.psgi

@@ -101,7 +101,7 @@ my $app = sub {
     }
 
     # If it's just a file, serve it up
-    my $alist = $env->{HTTP_ACCEPT_ENCODING};
+    my $alist = $env->{HTTP_ACCEPT_ENCODING} || '';
     $alist =~ s/\s//g;
     my @accept_encodings;
     @accept_encodings = split(/,/, $alist);