Hi Gerald,

the following has been reported at https://bugs.debian.org/765125 and
-- according to our current understanding -- needs to be fixed for the
upcoming Debian Stable release as this breaks any Embperl installation
if a recent 4.xx CGI.pm version is installed, too.

CGI.pm 4.04 removed "some deprecated some long deprecated
modules/functions and includes refactoring to the temporary file
handling in CGI.pm."

This seems to have broken the meta data in $fdat{-upload}. After
installing CGI.pm 4.06, %fdat only contains this for
test/html/upload.htm:

  'content' => 'Hi there!',
  'multval' => 'A   B       C',
  'single' => 'S',
  'upload' => bless( \*{'File::Temp::$fh'}, 'CGI::File::Temp' )

Full output diff:

--- test/cmp/upload.htm 2014-10-13 23:44:08.657839025 +0200
+++ test/tmp/out.htm    2014-10-16 01:39:26.007068037 +0200
@@ -3,17 +3,21 @@
 <head>
 <title>Embperl Tests - File-Upload</title>
 </head>
-
 <h1>Embperl Tests - File-Upload</h1>
+$VAR1 = {
+          'content' =&gt; 'Hi there!',
+          'multval' =&gt; 'A   B       C',
+          'single' =&gt; 'S',
+          'upload' =&gt; bless( \*{'File::Temp::$fh'}, 'CGI::File::Temp' )
+        };
+
 
-Content-Disposition Content-Type
-^Filename:       \d*upload-filename<br>
-Content-Type:  test/plain<br>
-^CGI-Version
-^cgiok           
-filehandle:     Fh
-Info:          Content-Disposition = form-data; name=&quot;upload&quot;; 
filename=&quot;12upload-filename&quot;
-Content-Type = test/plain
+Filename:       12upload-filename<br>
+Content-Type:  <br>
+CGI-Version:    4.06
+cgiok           1
+filehandle:    CGI::File::Temp
+Info:
 no:   1
 size: 2048
 no:   2
@@ -27,7 +31,7 @@
 buflen:         8219
 Your file has the content
 ----------
-f1=abc1
+f1=abc1
[...]
@@ -47,4 +51,3 @@
 
 </body>
 </html>
-

                Kind regards, Axel
-- 
/~\  Plain Text Ribbon Campaign                   | Axel Beckert
\ /  Say No to HTML in E-Mail and News            | a...@deuxchevaux.org  (Mail)
 X   See http://www.nonhtmlmail.org/campaign.html | a...@noone.org (Mail+Jabber)
/ \  I love long mails: http://email.is-not-s.ms/ | http://noone.org/abe/ (Web)

---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-h...@perl.apache.org

Reply via email to