fix warning

uperl · May 10, 2024 · b95cb9c · b95cb9c
1 parent b6a787f
commit b95cb9c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/t/plack_middleware_zstandard.t b/t/plack_middleware_zstandard.t
@@ -40,7 +40,7 @@ subtest 'basic' => sub {
   subtest 'short string as array' => sub {
 
     my @content = ('Hello', undef, ' ', 'World');
-    local @res = ( 200, [ 'Content-Type' => 'text/plain', 'Content-Length' => length(join '', @content) ], [ @content ] );
+    local @res = ( 200, [ 'Content-Type' => 'text/plain', 'Content-Length' => length(join '', grep defined, @content) ], [ @content ] );
 
     req(
       GET('/', 'Accept-Encoding' => 'zstd'),