richter at locus
Mar 28, 2000, 12:14 PM
Post #1 of 1
(463 views)
Permalink
|
|
cvs commit: embperl/test/html upload.htm
|
|
richter 00/03/28 11:14:12
Modified: . Changes.pod Embperl.pm Embperl.xs EmbperlObject.pm
TODO embpcgi.bat embpcgi.pl embpcgi.test.bat
embpcgi.test.pl embpexec.bat embpexec.pl test.pl
Embperl Mail.pm Module.pm
emacs embperl.el
test/cmp error.htm errpage.htm includeerr2.htm
opmasktrap.htm upload.htm varerr.htm
test/html upload.htm
Log:
- Fixed SIGSEGV which occurs in cleanup with Perl 5.6. Spotted by
Aaron Johnson.
- Changed make test so it works correctly with new error messages of
Perl 5.6.
Revision Changes Path
1.105 +4 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.104
retrieving revision 1.105
diff -u -r1.104 -r1.105
--- Changes.pod 2000/03/14 05:15:48 1.104
+++ Changes.pod 2000/03/28 19:14:07 1.105
@@ -6,6 +6,10 @@
NOTE: This version is only available via L<"CVS"|CVS/"INTRO">
+ - Fixed SIGSEGV which occurs in cleanup with Perl 5.6. Spotted by
+ Aaron Johnson.
+ - Changed make test so it works correctly with new error messages of
+ Perl 5.6.
- Fixed a bug that Execute will always fail when $@ was set before.
Patch from Francis J. Lacoste.
- Changed test so it accpects charset in Content-Type header from
1.90 +0 -0 embperl/Embperl.pm
Index: Embperl.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl.pm,v
retrieving revision 1.89
retrieving revision 1.90
diff -u -r1.89 -r1.90
--- Embperl.pm 2000/03/20 05:45:46 1.89
+++ Embperl.pm 2000/03/28 19:14:07 1.90
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Embperl.pm,v 1.89 2000/03/20 05:45:46 richter Exp $
+# $Id: Embperl.pm,v 1.90 2000/03/28 19:14:07 richter Exp $
#
###################################################################################
1.25 +1 -1 embperl/Embperl.xs
Index: Embperl.xs
===================================================================
RCS file: /home/cvs/embperl/Embperl.xs,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -r1.24 -r1.25
--- Embperl.xs 2000/01/04 06:10:02 1.24
+++ Embperl.xs 2000/03/28 19:14:07 1.25
@@ -71,7 +71,7 @@
SV * gv
CODE:
RETVAL = "" ;
- if (gv && SvTYPE(gv) == SVt_PVGV)
+ if (gv && SvTYPE(gv) == SVt_PVGV && GvGP (gv) && GvGP (gv) -> gp_file )
{
GV * fgv = GvFILEGV(gv) ;
if (fgv && SvTYPE(fgv) == SVt_PVGV)
1.14 +0 -0 embperl/EmbperlObject.pm
Index: EmbperlObject.pm
===================================================================
RCS file: /home/cvs/embperl/EmbperlObject.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- EmbperlObject.pm 2000/03/20 05:45:46 1.13
+++ EmbperlObject.pm 2000/03/28 19:14:08 1.14
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: EmbperlObject.pm,v 1.13 2000/03/20 05:45:46 richter Exp $
+# $Id: EmbperlObject.pm,v 1.14 2000/03/28 19:14:08 richter Exp $
#
###################################################################################
1.88 +7 -1 embperl/TODO
Index: TODO
===================================================================
RCS file: /home/cvs/embperl/TODO,v
retrieving revision 1.87
retrieving revision 1.88
diff -u -r1.87 -r1.88
--- TODO 2000/03/19 13:39:03 1.87
+++ TODO 2000/03/28 19:14:08 1.88
@@ -61,8 +61,12 @@
- package cache patch [Francis J. Lacoste 17.03.00]
-- param restore after Execute patch [Francis J. Lacoste 17.03.00]
+- param restore after Execute patch [Francis J. Lacoste 17.03.00/27.03.00]
+- send last modified header if no perl in the doc [Christain Gilmore 23.02.00]
+
+- turn off all perl processin [Kee Hinckley 22.03.00]
+
Test
----
- test FORBIDDEN
@@ -96,6 +100,8 @@
- var cleanup of in imported subs [Lai Yiu Fai 14.3.00]
- using outputfile inside a outputfile crashs
+
+- define _MSWSOCK_ with apache 1.3.12 [Randy Kobes 23.3.00]
Docs
----
1.6 +2 -2 embperl/embpcgi.bat
Index: embpcgi.bat
===================================================================
RCS file: /home/cvs/embperl/embpcgi.bat,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- embpcgi.bat 1999/11/02 08:32:45 1.5
+++ embpcgi.bat 2000/03/28 19:14:08 1.6
@@ -1,9 +1,9 @@
@rem = '--*-Perl-*--
@echo off
-/usr/bin/perl -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
+/usr/bin/perldbg -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
-#!/usr/bin/perl --
+#!/usr/bin/perldbg --
#line 8
###################################################################################
#
1.6 +1 -1 embperl/embpcgi.pl
Index: embpcgi.pl
===================================================================
RCS file: /home/cvs/embperl/embpcgi.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- embpcgi.pl 1999/11/02 08:32:45 1.5
+++ embpcgi.pl 2000/03/28 19:14:08 1.6
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perldbg
###################################################################################
#
# Embperl - Copyright (c) 1997-1999 Gerald Richter / ECOS
1.4 +2 -2 embperl/embpcgi.test.bat
Index: embpcgi.test.bat
===================================================================
RCS file: /home/cvs/embperl/embpcgi.test.bat,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- embpcgi.test.bat 1999/11/02 08:32:46 1.3
+++ embpcgi.test.bat 2000/03/28 19:14:08 1.4
@@ -1,9 +1,9 @@
@rem = '--*-Perl-*--
@echo off
-/usr/bin/perl -x -T %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
+/usr/bin/perldbg -x -T %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
-#!/usr/bin/perl --
+#!/usr/bin/perldbg --
#line 8
###################################################################################
#
1.6 +1 -1 embperl/embpcgi.test.pl
Index: embpcgi.test.pl
===================================================================
RCS file: /home/cvs/embperl/embpcgi.test.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- embpcgi.test.pl 1999/11/02 08:32:46 1.5
+++ embpcgi.test.pl 2000/03/28 19:14:08 1.6
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perldbg
###################################################################################
#
# Embperl - Copyright (c) 1997-1999 Gerald Richter / ECOS
1.17 +2 -2 embperl/embpexec.bat
Index: embpexec.bat
===================================================================
RCS file: /home/cvs/embperl/embpexec.bat,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- embpexec.bat 1999/10/05 06:01:21 1.16
+++ embpexec.bat 2000/03/28 19:14:08 1.17
@@ -1,9 +1,9 @@
@rem = '--*-Perl-*--
@echo off
-/usr/bin/perl -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
+/usr/bin/perldbg -x %0 %1 %2 %3 %4 %5 %6 %7 %8 %9
goto endofperl
@rem ';
-#!/usr/bin/perl --
+#!/usr/bin/perldbg --
#line 8
###################################################################################
#
1.17 +1 -1 embperl/embpexec.pl
Index: embpexec.pl
===================================================================
RCS file: /home/cvs/embperl/embpexec.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- embpexec.pl 1999/10/05 06:01:22 1.16
+++ embpexec.pl 2000/03/28 19:14:08 1.17
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perldbg
###################################################################################
#
# Embperl - Copyright (c) 1997-1999 Gerald Richter / ECOS
1.54 +2 -2 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -r1.53 -r1.54
--- test.pl 1999/11/17 07:29:28 1.53
+++ test.pl 2000/03/28 19:14:08 1.54
@@ -22,8 +22,8 @@
'errdoc/errdoc.htm???8?262144',
'rawinput/rawinput.htm????16',
'var.htm',
- 'varerr.htm???-1',
- 'varerr.htm???2',
+# 'varerr.htm???-1',
+# 'varerr.htm???2',
'escape.htm',
'spaces.htm',
'tagscan.htm',
1.13 +0 -0 embperl/Embperl/Mail.pm
Index: Mail.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Mail.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- Mail.pm 2000/03/20 05:45:46 1.12
+++ Mail.pm 2000/03/28 19:14:10 1.13
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Mail.pm,v 1.12 2000/03/20 05:45:46 richter Exp $
+# $Id: Mail.pm,v 1.13 2000/03/28 19:14:10 richter Exp $
#
###################################################################################
1.14 +0 -0 embperl/Embperl/Module.pm
Index: Module.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Module.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- Module.pm 2000/03/20 05:45:46 1.13
+++ Module.pm 2000/03/28 19:14:10 1.14
@@ -9,7 +9,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Module.pm,v 1.13 2000/03/20 05:45:46 richter Exp $
+# $Id: Module.pm,v 1.14 2000/03/28 19:14:10 richter Exp $
#
###################################################################################
@@ -25,7 +25,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Module.pm,v 1.13 2000/03/20 05:45:46 richter Exp $
+# $Id: Module.pm,v 1.14 2000/03/28 19:14:10 richter Exp $
#
###################################################################################
1.82 +0 -0 embperl/emacs/embperl.el
Index: embperl.el
===================================================================
RCS file: /home/cvs/embperl/emacs/embperl.el,v
retrieving revision 1.81
retrieving revision 1.82
diff -u -r1.81 -r1.82
--- embperl.el 2000/03/20 05:45:47 1.81
+++ embperl.el 2000/03/28 19:14:10 1.82
@@ -19,9 +19,9 @@
;; Author : Erik Arneson (erik [at] mind)
;; Created On : Wed Jul 22 17:16:39 PDT 1998
;; Last Modified By: Erik Arneson
-;; Last Modified On: $Date: 2000/03/20 05:45:47 $
+;; Last Modified On: $Date: 2000/03/28 19:14:10 $
;; Version : 1.00
-;; $Id: embperl.el,v 1.81 2000/03/20 05:45:47 richter Exp $
+;; $Id: embperl.el,v 1.82 2000/03/28 19:14:10 richter Exp $
;;
;; Please note that this software is very beta and rather broken. I
;; don't know how useful it will be, although I definitely plan on
1.5 +6 -6 embperl/test/cmp/error.htm
Index: error.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/error.htm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- error.htm 1999/10/05 06:02:04 1.4
+++ error.htm 2000/03/28 19:14:11 1.5
@@ -2,16 +2,16 @@
<H1>Internal Server Error</H1>
The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error
-^\[.*?\]ERR\: 32\: Line 13\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\.
-^\[.*?\]ERR\: 32\: Line 14\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\.
-^\[.*?\]ERR\: 32\: Line 15\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\.
-^\[.*?\]ERR\: 32\: Line 16\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\.
-^\[.*?\]ERR\: 32\: Line 17\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\.
+^\[.*?\]ERR\: 32\: Line 13\: Warning in Perl code\: Use of uninitialized value
+^\[.*?\]ERR\: 32\: Line 14\: Warning in Perl code\: Use of uninitialized value
+^\[.*?\]ERR\: 32\: Line 15\: Warning in Perl code\: Use of uninitialized value
+^\[.*?\]ERR\: 32\: Line 16\: Warning in Perl code\: Use of uninitialized value
+^\[.*?\]ERR\: 32\: Line 17\: Warning in Perl code\: Use of uninitialized value
^^\[.*?\]ERR\: 32\: Line 21\: Warning in Perl code\: Unquoted string "qqqqqqqqqqqqqq" may clash with future reserved word at .*? line \d*\.
^\[.*?\]ERR\: 24\: Line 21\: Error in Perl code\: syntax error at .*? line \d*\, at EOF
^\[.*?\]ERR\: 24\: Line 32\: Error in Perl code\: syntax error at .*? line \d*\, at EOF
^\[.*?\]ERR\: 24\: Line 32\: Error in Perl code\: Can.*?
-^\[.*?\]ERR\: 32\: Line 32\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\.
+^\[.*?\]ERR\: 32\: Line 32\: Warning in Perl code\: Use of uninitialized value
^^\[.*?\]ERR\: 32\: Line 46\: Warning in Perl code\: Bareword found where operator expected at .*?
^^\[.*?\]ERR\: 32\: Line 46\: Warning in Perl code\: \(Missing operator before is\?\)
^\[.*?\]ERR\: 24\: Line 46\: Error in Perl code\: syntax error at .*? line \d*\, near \"\;\$error is here \"\;
1.7 +9 -9 embperl/test/cmp/errpage.htm
Index: errpage.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/errpage.htm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- errpage.htm 2000/03/12 13:11:31 1.6
+++ errpage.htm 2000/03/28 19:14:11 1.7
@@ -4,20 +4,20 @@
<H1>Internal Server Error</H1>
The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error\.
-^\[.*?\]ERR\: 32\: Line 13\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\.
-^\[.*?\]ERR\: 32\: Line 14\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\.
-^\[.*?\]ERR\: 32\: Line 15\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\.
-^\[.*?\]ERR\: 32\: Line 16\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\.
-^\[.*?\]ERR\: 32\: Line 17\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\.
+^\[.*?\]ERR\: 32\: Line 13\: Warning in Perl code\: Use of uninitialized value
+^\[.*?\]ERR\: 32\: Line 14\: Warning in Perl code\: Use of uninitialized value
+^\[.*?\]ERR\: 32\: Line 15\: Warning in Perl code\: Use of uninitialized value
+^\[.*?\]ERR\: 32\: Line 16\: Warning in Perl code\: Use of uninitialized value
+^\[.*?\]ERR\: 32\: Line 17\: Warning in Perl code\: Use of uninitialized value
^^\[.*?\]ERR\: 32\: Line 21\: Warning in Perl code\: Unquoted string "qqqqqqqqqqqqqq" may clash with future reserved word at .*? line \d*\.
^\[.*?\]ERR\: 24\: Line 21\: Error in Perl code\: syntax error at .*? line \d*\, at EOF
^\[.*?\]ERR\: 24\: Line 32\: Error in Perl code\: syntax error at .*? line \d*\, at EOF
^\[.*?\]ERR\: 24\: Line 32\: Error in Perl code\: Can.*?
-^\[.*?\]ERR\: 32\: Line 32\: Warning in Perl code\: Use of uninitialized value at .*? line \d*\.
+^\[.*?\]ERR\: 32\: Line 32\: Warning in Perl code\: Use of uninitialized value
^^\[.*?\]ERR\: 32\: Line 46\: Warning in Perl code\: Bareword found where operator expected at .*?
^^\[.*?\]ERR\: 32\: Line 46\: Warning in Perl code\: \(Missing operator before is\?\)
^\[.*?\]ERR\: 24\: Line 46\: Error in Perl code\: syntax error at .*? line \d*\, near \"\;\$error is here \"\;
-^<br> Missing right bracket at .*? line \d*\, at end of line
+^<br> Missing right.*?bracket
^<br> syntax error at .*? line \d*\, at EOF
^\[.*?\]ERR\: 20\: Line 58\: \<\;\/tr\>\; without \<\;tr\>\;
^\[.*?\]ERR\: 45\: Line 58\: Unclosed HTML tag <table> at end of file
@@ -92,6 +92,6 @@
caused the error.<P>
^^More information about this error may be available
^^in the server error log.<P>
-<P>Additionally, a 500 Internal Server Error
-error was encountered while trying to use an ErrorDocument to handle the request.
+^^<P>Additionally, a 500 Internal Server Error
+^^error was encountered while trying to use an ErrorDocument to handle the request.
</BODY></HTML>
1.3 +7 -7 embperl/test/cmp/includeerr2.htm
Index: includeerr2.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/includeerr2.htm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- includeerr2.htm 1999/10/05 06:02:11 1.2
+++ includeerr2.htm 2000/03/28 19:14:11 1.3
@@ -2,16 +2,16 @@
<H1>Internal Server Error</H1>
The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error
-^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value at .*?incsub.htm line 6.<p>
-^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value at .*?incsub.htm line 6.<p>
-^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value at .*?incsub.htm line 6.<p>
-^\[.*?\]ERR\: 32\: Line 18\: Warning in Perl code: Use of uninitialized value at .*?incsub.htm in block starting at line 18.<p>
+^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value
+^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value
+^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value
+^\[.*?\]ERR\: 32\: Line 18\: Warning in Perl code: Use of uninitialized value
^\[.*?\]ERR\: 24\: Line 6\: Error in Perl code: Can't locate object method "is" via package "here" at .*?incerr.htm line 6.<p>
-^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value at .*?incerr.htm in block starting at line 6.<p>
+^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value
^\[.*?\]ERR\: 24\: Line 6\: Error in Perl code: Can't locate object method "is" via package "here" at .*?incerr.htm line 6.<p>
-^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value at .*?incerr.htm in block starting at line 6.<p>
+^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value
^\[.*?\]ERR\: 24\: Line 6\: Error in Perl code: Can't locate object method "is" via package "here" at .*?incerr.htm line 6.<p>
-^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value at .*?incerr.htm in block starting at line 6.<p>
+^\[.*?\]ERR\: 32\: Line 6\: Warning in Perl code: Use of uninitialized value
^ HTML\:\:Embperl.*?<P>
</BODY></HTML>
1.4 +1 -1 embperl/test/cmp/opmasktrap.htm
Index: opmasktrap.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/opmasktrap.htm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- opmasktrap.htm 1999/07/06 11:56:11 1.3
+++ opmasktrap.htm 2000/03/28 19:14:11 1.4
@@ -2,7 +2,7 @@
<H1>Internal Server Error</H1>
The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error\.
-^\[.*?\]ERR\: 32\: Line 204: Warning in Perl code\: Use of uninitialized value at
+^\[.*?\]ERR\: 32\: Line 204: Warning in Perl code\: Use of uninitialized value
^-\[.*?\]ERR\: 32\: Line 211: Warning in Perl code
^\[.*?]ERR\: 24\: Line 211: Error in Perl code\:
^\[.*?\]ERR\: 24\: Line 215: Error in Perl code\: syntax error at .*? line \d*\, near \"\;package main\"\;
1.12 +1 -1 embperl/test/cmp/upload.htm
Index: upload.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/upload.htm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12
--- upload.htm 1999/11/02 19:30:02 1.11
+++ upload.htm 2000/03/28 19:14:11 1.12
@@ -6,7 +6,7 @@
<h1>Embperl Tests - File-Upload</h1>
-Content-Type Content-Disposition
+Content-Disposition Content-Type
^Filename: \d*upload-filename<br>
Content-Type: test/plain<br>
^CGI-Version
1.4 +8 -3 embperl/test/cmp/varerr.htm
Index: varerr.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/varerr.htm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- varerr.htm 1999/10/05 06:02:25 1.3
+++ varerr.htm 2000/03/28 19:14:11 1.4
@@ -2,11 +2,16 @@
<H1>Internal Server Error</H1>
The server encountered an internal error or misconfiguration and was unable to complete your request.<P>
^Please contact the server administrator\,.*?and inform them of the time the error occurred\, and anything you might have done that may have caused the error\.
-^\[.*?\]ERR\: 32\: Line 16: Warning in Perl code\: Use of uninitialized value at .*? line \d*\.
-^\[.*?\]ERR\: 32\: Line 17: Warning in Perl code\: Use of uninitialized value at .*? line \d*\.
-^\[.*?\]ERR\: 32\: Line 18: Warning in Perl code\: Use of uninitialized value at .*? line \d*\.
+^\[.*?\]ERR\: 32\: Line 16: Warning in Perl code\: Use of uninitialized value
+^\[.*?\]ERR\: 32\: Line 17: Warning in Perl code\: Use of uninitialized value
+^\[.*?\]ERR\: 32\: Line 18: Warning in Perl code\: Use of uninitialized value
^\[.*?\]ERR\: (32\: Line 19: Warning|24\: Line 19: Error) in Perl code\: Global symbol \"\;\$?d\"\; requires explicit package name at.*?
^\[.*?\]ERR\: (32\: Line 20: Warning|24\: Line 20: Error) in Perl code\: Global symbol \"\;\$?e\"\; requires explicit package name at.*?
+^^
+^^
+^^
+^^
+^^
^ HTML\:\:Embperl.*?<P>
</BODY></HTML>
1.10 +1 -1 embperl/test/html/upload.htm
Index: upload.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/upload.htm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- upload.htm 1999/11/02 08:33:39 1.9
+++ upload.htm 2000/03/28 19:14:12 1.10
@@ -6,7 +6,7 @@
<h1>Embperl Tests - File-Upload</h1>
-[.+ $cgiok = $CGI::VERSION > 2.45 ; @info = keys %{$fdat{-upload}} ; $cgiok?"@info":'Content-Type Content-Disposition' +]
+[.+ $cgiok = $CGI::VERSION > 2.45 ; @info = sort keys %{$fdat{-upload}} ; $cgiok?"@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 +]
|
