[libembperl-perl] 01/01: Add patch to make Embperl compatible with libcgi-pm-perl >= 4.04

[Axel Beckert]

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

abe pushed a commit to branch master
in repository libembperl-perl.

commit f90cc6b931b60e0a1b39db8b1d06143355fcb14c
Author: Axel Beckert <abe at deuxchevaux.org>
Date:   Thu Oct 23 01:44:27 2014 +0200

    Add patch to make Embperl compatible with libcgi-pm-perl >= 4.04
    
    Closes: #765125
---
 debian/changelog                               |  5 +++
 debian/patches/cgi-pm-4.04-compatibility.patch | 45 ++++++++++++++++++++++++++
 debian/patches/series                          |  1 +
 3 files changed, 51 insertions(+)

diff --git a/debian/changelog b/debian/changelog
index 1ce2725..47b9df9 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,7 +1,12 @@
 libembperl-perl (2.5.0-4) UNRELEASED; urgency=medium
 
+  [ Salvatore Bonaccorso ]
   * Update Vcs-Browser URL to cgit web frontend
 
+  [ Axel Beckert ]
+  * Add patch to make Embperl compatible with libcgi-pm-perl >= 4.04
+    (Closes: #765125)
+
  -- Salvatore Bonaccorso <carnil at debian.org>  Sat, 16 Aug 2014 09:31:31 +0200
 
 libembperl-perl (2.5.0-3) unstable; urgency=medium
diff --git a/debian/patches/cgi-pm-4.04-compatibility.patch b/debian/patches/cgi-pm-4.04-compatibility.patch
new file mode 100644
index 0000000..9019d82
--- /dev/null
+++ b/debian/patches/cgi-pm-4.04-compatibility.patch
@@ -0,0 +1,45 @@
+Description: Add CGI.pm 4.x compatibility
+Author: Axel Beckert <abe at debian.org>
+Bug-Debian: https://bugs.debian.org/765125
+
+Index: libembperl-perl/Embperl.pm
+===================================================================
+--- libembperl-perl.orig/Embperl.pm	2014-10-23 01:06:48.000000000 +0200
++++ libembperl-perl/Embperl.pm	2014-10-23 01:21:19.892269141 +0200
+@@ -332,7 +332,7 @@
+ 	
+ 	$self -> log ("[$$]FORM: $_=$fdat->{$_}\n") if ($dbgForm) ; 
+ 
+-	if (ref($fdat->{$_}) eq 'Fh') 
++	if (ref($fdat->{$_}) eq 'Fh' or ref($fdat->{$_}) =~ /File::Temp/) 
+ 	    {
+ 	    $fdat->{"-$_"} = $cgi -> uploadInfo($fdat->{$_}) ;
+ 	    }
+Index: libembperl-perl/test/cmp/upload.htm
+===================================================================
+--- libembperl-perl.orig/test/cmp/upload.htm	2014-10-13 23:44:08.657839025 +0200
++++ libembperl-perl/test/cmp/upload.htm	2014-10-23 01:17:13.031528111 +0200
+@@ -11,8 +11,8 @@
+ Content-Type:	test/plain<br>
+ ^CGI-Version
+ ^cgiok           
+-filehandle:     Fh
+-Info:		Content-Disposition = form-data; name="upload"; filename="12upload-filename"
++^filehandle:     (Fh|CGI::File::Temp)
++^Info:		
+ Content-Type = test/plain
+ no:   1
+ size: 2048
+Index: libembperl-perl/test/html/upload.htm
+===================================================================
+--- libembperl-perl.orig/test/html/upload.htm	2014-10-23 01:16:00.204491900 +0200
++++ libembperl-perl/test/html/upload.htm	2014-10-23 01:22:31.439326828 +0200
+@@ -8,7 +8,7 @@
+ !]
+ <h1>Embperl Tests - File-Upload</h1>
+ 
+-[+ do { $cgiok = $CGI::VERSION > 2.45 ; @info = sort keys %{$fdat{-upload}} ; $cgiok?"@info":'Content-Disposition Content-Type' } +]
++[+ do { $cgiok = $CGI::VERSION > 2.45; $cgi4 = $CGI::VERSION >= 4; @info = sort keys %{$fdat{-upload}} ; ($cgiok||$cgi4)?"@info":'Content-Disposition Content-Type' } +]
+ Filename:       [+ $cgiok?$fdat{upload}:'upload-filename' +]<br>
+ Content-Type:	[+ $cgiok?$fdat{-upload} -> {'Content-Type'}:'test/plain' +]<br>
+ CGI-Version:    [+ $CGI::VERSION +]
diff --git a/debian/patches/series b/debian/patches/series
index d5309e5..9df62a9 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,3 +1,4 @@
 pod-errors.patch
 apache2.4-compat.patch
 perl5.20-compat.patch
+cgi-pm-4.04-compatibility.patch

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