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-unsubscr...@perl.apache.org For additional commands, e-mail: embperl-cvs-h...@perl.apache.org
