You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@apache.org on 2001/02/17 00:30:31 UTC
cvs commit: modperl/src/modules/perl mod_perl.c mod_perl.h perl_util.c
dougm 01/02/16 15:30:30
Modified: . Changes
src/modules/perl mod_perl.c mod_perl.h perl_util.c
Log:
adjust U magic functions to Perl 5.7.x-dev prototype change
Revision Changes Path
1.581 +2 -0 modperl/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl/Changes,v
retrieving revision 1.580
retrieving revision 1.581
diff -u -r1.580 -r1.581
--- Changes 2001/02/11 15:33:12 1.580
+++ Changes 2001/02/16 23:30:23 1.581
@@ -10,6 +10,8 @@
=item 1.25_01-dev
+adjust 'U' magic functions to Perl 5.7.x-dev prototype change
+
Put Apache's CFLAGS into AP_CFLAGS instead of CFLAGS, so that
people who like to override CFLAGS from the make line (make
CFLAGS='-arch ppc -arch i386') can do so without stomping the
1.135 +1 -1 modperl/src/modules/perl/mod_perl.c
Index: mod_perl.c
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/mod_perl.c,v
retrieving revision 1.134
retrieving revision 1.135
diff -u -r1.134 -r1.135
--- mod_perl.c 2000/12/20 06:39:48 1.134
+++ mod_perl.c 2001/02/16 23:30:27 1.135
@@ -382,7 +382,7 @@
}
#ifdef PERL_TIE_SCRIPTNAME
-static I32 scriptname_val(IV ix, SV* sv)
+static PERL_MG_UFUNC(scriptname_val, ix, sv)
{
dTHR;
request_rec *r = perl_request_rec(NULL);
1.108 +4 -0 modperl/src/modules/perl/mod_perl.h
Index: mod_perl.h
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/mod_perl.h,v
retrieving revision 1.107
retrieving revision 1.108
diff -u -r1.107 -r1.108
--- mod_perl.h 2000/12/30 05:08:59 1.107
+++ mod_perl.h 2001/02/16 23:30:27 1.108
@@ -197,6 +197,10 @@
#define AvFILLp(av) ((XPVAV*) SvANY(av))->xav_fill
#endif
+#ifndef PERL_MG_UFUNC
+#define PERL_MG_UFUNC(name,ix,sv) I32 name(IV ix, SV *sv)
+#endif
+
#ifdef eval_pv
# ifndef perl_eval_pv
# define perl_eval_pv eval_pv
1.45 +1 -2 modperl/src/modules/perl/perl_util.c
Index: perl_util.c
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/perl_util.c,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -r1.44 -r1.45
--- perl_util.c 2001/01/05 05:48:14 1.44
+++ perl_util.c 2001/02/16 23:30:28 1.45
@@ -426,8 +426,7 @@
}
}
-static I32
-errgv_empty_set(IV ix, SV* sv)
+static PERL_MG_UFUNC(errgv_empty_set, ix, sv)
{
sv_setsv(sv, &sv_no);
return TRUE;