File: 01-closes-file.patch

package info (click to toggle)
libcorona-perl 0.1004-3
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd, stretch
  • size: 220 kB
  • sloc: perl: 1,438; makefile: 37
file content (10 lines) | stat: -rw-r--r-- 356 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
 
--- libcorona-perl-0.1004/lib/Corona/Server.pm
+++ libcorona-perl-0.1004/lib/Corona/Server.pm
@@ -97,6 +97,7 @@ sub _write_response {
             $offset += $sent if $sent > 0;
             last if $offset >= $length;
         }
+        $res->[2]->close;
     } else {
         Plack::Util::foreach($res->[2], sub { $fh->syswrite(join '', @_) });
     }