Modified: perl/embperl/trunk/test/html/sidurl/geturlsess.htm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/sidurl/geturlsess.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/sidurl/geturlsess.htm (original)
+++ perl/embperl/trunk/test/html/sidurl/geturlsess.htm Thu Sep 21 03:39:10 2023
@@ -41,7 +41,7 @@
<table>
<tr>
- <td>[+ $ks[$row] +]</td><td>[+ $udat{$ks[$row] || ''} +]</td>
+ <td>[+ $ks[$row] +]</td><td>[+ 0+$udat{$ks[$row] || ''} +]</td>
</tr>
</table>
@@ -55,7 +55,7 @@
-]
- $mdat{cnt} = -[+ $mdat{cnt} +]- <br>
+ $mdat{cnt} = -[+ 0+$mdat{cnt} +]- <br>
$udat{cnt} = -[+ $udat{cnt} +]- <br>
Modified: perl/embperl/trunk/test/html/upload.htm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/upload.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/upload.htm (original)
+++ perl/embperl/trunk/test/html/upload.htm Thu Sep 21 03:39:10 2023
@@ -8,7 +8,7 @@ use Data::Dumper ;
!]
<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 +]
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/sidurl/geturlsess.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/sidurl/geturlsess.htm (original)
+++ perl/embperl/trunk/test/html/sidurl/geturlsess.htm Thu Sep 21 03:39:10 2023
@@ -41,7 +41,7 @@
<table>
<tr>
- <td>[+ $ks[$row] +]</td><td>[+ $udat{$ks[$row] || ''} +]</td>
+ <td>[+ $ks[$row] +]</td><td>[+ 0+$udat{$ks[$row] || ''} +]</td>
</tr>
</table>
@@ -55,7 +55,7 @@
-]
- $mdat{cnt} = -[+ $mdat{cnt} +]- <br>
+ $mdat{cnt} = -[+ 0+$mdat{cnt} +]- <br>
$udat{cnt} = -[+ $udat{cnt} +]- <br>
Modified: perl/embperl/trunk/test/html/upload.htm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/test/html/upload.htm?rev=1912443&r1=1912442&r2=1912443&view=diff
==============================================================================
--- perl/embperl/trunk/test/html/upload.htm (original)
+++ perl/embperl/trunk/test/html/upload.htm Thu Sep 21 03:39:10 2023
@@ -8,7 +8,7 @@ use Data::Dumper ;
!]
<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 +]
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org