richter 02/05/20 05:59:10
Modified: . Tag: Embperl2c Changes.pod epapinit.c
Embperl Tag: Embperl2c Object.pm
Log:
-
Revision Changes Path
No revision
No revision
1.129.4.70 +3 -2 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.129.4.69
retrieving revision 1.129.4.70
diff -u -r1.129.4.69 -r1.129.4.70
--- Changes.pod 20 May 2002 12:11:19 -0000 1.129.4.69
+++ Changes.pod 20 May 2002 12:59:09 -0000 1.129.4.70
@@ -23,8 +23,9 @@
- Fixed random segfaults, that had occured when Perl had reallocated it's
internal Stack.
- When apache is started with -D EMBPERL_APDEBUG, it outputs a configuration
- trace
-
+ trace.
+ - When file is not found, Embperl::Object now returns status 404, instead of
+ 500. Reported by Cameron McBride.
=head1 2.0b7 (BETA) 21. Mar. 2002
1.1.2.35 +1 -2 embperl/epapinit.c
Index: epapinit.c
===================================================================
RCS file: /home/cvs/embperl/epapinit.c,v
retrieving revision 1.1.2.34
retrieving revision 1.1.2.35
diff -u -r1.1.2.34 -r1.1.2.35
--- epapinit.c 20 May 2002 12:30:33 -0000 1.1.2.34
+++ epapinit.c 20 May 2002 12:59:09 -0000 1.1.2.35
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: epapinit.c,v 1.1.2.34 2002/05/20 12:30:33 richter Exp $
+# $Id: epapinit.c,v 1.1.2.35 2002/05/20 12:59:09 richter Exp $
#
###################################################################################*/
@@ -383,7 +383,6 @@
#undef EPCFG_INT
#undef EPCFG_BOOL
#undef EPCFG_CHAR
-#define EPCFG_STR EPCFG
#define EPCFG_INT EPCFG
#define EPCFG_BOOL EPCFG
#define EPCFG_CHAR EPCFG
No revision
No revision
1.1.2.22 +13 -5 embperl/Embperl/Attic/Object.pm
Index: Object.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Attic/Object.pm,v
retrieving revision 1.1.2.21
retrieving revision 1.1.2.22
diff -u -r1.1.2.21 -r1.1.2.22
--- Object.pm 20 May 2002 07:04:25 -0000 1.1.2.21
+++ Object.pm 20 May 2002 12:59:09 -0000 1.1.2.22
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Object.pm,v 1.1.2.21 2002/05/20 07:04:25 richter Exp $
+# $Id: Object.pm,v 1.1.2.22 2002/05/20 12:59:09 richter Exp $
#
###################################################################################
@@ -285,11 +285,19 @@
}
}
- if (!-f $filename && $appcfg -> object_fallback)
+ if (!-f $filename)
{
- $fallback = 1 ;
- $filename = $appcfg -> object_fallback ;
- print Embperl::LOG "[$$]Embperl::Object use fallback: $filename\n" if
($debug);
+ if ($appcfg -> object_fallback)
+ {
+ $fallback = 1 ;
+ $filename = $appcfg -> object_fallback ;
+ print Embperl::LOG "[$$]Embperl::Object use fallback: $filename\n"
if ($debug);
+ }
+ else
+ {
+ print Embperl::LOG "[$$]Embperl::Object $filename not found, no
fallback\n" if ($debug);
+ return NOT_FOUND ;
+ }
}
if ($fn eq $filename)
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
