dougm 01/01/29 13:51:30
Modified: . Changes ToDo
lib/Apache PerlRun.pm
Log:
avoid 'prototype mismatch' warnings in Apache::PerlRun::flush_namespace
Revision Changes Path
1.577 +3 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.576
retrieving revision 1.577
diff -u -r1.576 -r1.577
--- Changes 2001/01/29 18:11:37 1.576
+++ Changes 2001/01/29 21:51:28 1.577
@@ -10,6 +10,9 @@
=item 1.24_02-dev
+avoid 'prototype mismatch' warnings in Apache::PerlRun::flush_namespace
+[Wenzhong Tang <[EMAIL PROTECTED]>]
+
xsubpp now run with -nolinenumbers (5.004_04 bombs otherwise)
DSO support for hpux with native cc
1.276 +0 -3 modperl/ToDo
Index: ToDo
===================================================================
RCS file: /home/cvs/modperl/ToDo,v
retrieving revision 1.275
retrieving revision 1.276
diff -u -r1.275 -r1.276
--- ToDo 2001/01/26 18:38:16 1.275
+++ ToDo 2001/01/29 21:51:29 1.276
@@ -10,9 +10,6 @@
- From: Andy Wardley <[EMAIL PROTECTED]>
Subject: Problems with SERVER_MERGE and DIR_MERGE
-- From: Wenzhong Tang <[EMAIL PROTECTED]>
- Subject: RE: Prototype mismatch in Apache::PerlRun line 343
-
- hooking up PL_check (-c) to ap_configtest_only
- fileno(STD{IN,OUT}) should be r->connection->client->fd or
1.35 +6 -1 modperl/lib/Apache/PerlRun.pm
Index: PerlRun.pm
===================================================================
RCS file: /home/cvs/modperl/lib/Apache/PerlRun.pm,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -r1.34 -r1.35
--- PerlRun.pm 2001/01/12 15:45:12 1.34
+++ PerlRun.pm 2001/01/29 21:51:30 1.35
@@ -340,7 +340,12 @@
if (defined &$fullname) {
no warnings;
local $^W = 0;
- *{$fullname} = sub {};
+ if (my $p = prototype $fullname) {
+ eval "*{\$fullname} = sub ($p) {}";
+ }
+ else {
+ *{$fullname} = sub {};
+ }
undef &$fullname;
}
if (*{$fullname}{IO}) {
