[libcatalyst-plugin-subrequest-perl] 05/06: add patch fixing compatibility with Catalyst 5.90006x

[Damyan Ivanov]

This is an automated email from the git hooks/post-receive script.

dmn pushed a commit to branch master
in repository libcatalyst-plugin-subrequest-perl.

commit b08f1d2b6390f1e6ad6603dcb9abc07b439c8b37
Author: Damyan Ivanov <dmn at debian.org>
Date:   Wed May 14 09:19:42 2014 +0000

    add patch fixing compatibility with Catalyst 5.90006x
---
 debian/patches/Cat-5.9.patch | 40 ++++++++++++++++++++++++++++++++++++++++
 debian/patches/series        |  1 +
 2 files changed, 41 insertions(+)

diff --git a/debian/patches/Cat-5.9.patch b/debian/patches/Cat-5.9.patch
new file mode 100644
index 0000000..dae91c9
--- /dev/null
+++ b/debian/patches/Cat-5.9.patch
@@ -0,0 +1,40 @@
+Description: compatibility with Catalyst 5.9
+ Taken from https://gist.github.com/jjn1056/9947765
+Author: John Napiorkowski
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=94392
+Bug-Debian: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=747502
+
+--- a/lib/Catalyst/Plugin/SubRequest.pm
++++ b/lib/Catalyst/Plugin/SubRequest.pm
+@@ -102,18 +102,29 @@ sub sub_request_response {
+ 
+   # need this so that
+   my $writer = Catalyst::Plugin::SubRequest::Writer->new;
+-  my $response_cb = sub { $writer };
++  my $response_cb = sub {
++    my $response = shift;
++    my ($status, $headers, $body) = @$response;
++    if($body) {
++      return;
++    } else {
++      return $writer;
++    }
++  };
++
+   my $i_ctx = $class->prepare( env => $env, response_cb => $response_cb );
+   $i_ctx->stash($stash);
+   $i_ctx->dispatch;
+   $i_ctx->finalize;
+   $c->stats->profile( end => 'subrequest: ' . $path ) if $c->debug;
+ 
+-  $i_ctx->response->body($writer->body);
++  if($writer->_is_closed) {
++    $i_ctx->response->body($writer->body);
++  }
+ 
+   return $i_ctx->response;
+ }
+ 
+ package Catalyst::Plugin::SubRequest::Writer;
+ use Moose;
+ has body => (
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..2a6ebcc
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1 @@
+Cat-5.9.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libcatalyst-plugin-subrequest-perl.git