torsten at apache
Jun 30, 2008, 2:47 AM
Post #1 of 1
(1205 views)
Permalink
|
|
svn commit: r672737 - in /perl/modperl/branches/threading: src/modules/perl/ xs/Apache2/Access/ xs/Apache2/Directive/
|
|
Author: torsten
Date: Mon Jun 30 02:47:16 2008
New Revision: 672737
URL: http://svn.apache.org/viewvc?rev=672737&view=rev
Log:
silence a few unused warnings
Modified:
perl/modperl/branches/threading/src/modules/perl/mod_perl.c
perl/modperl/branches/threading/src/modules/perl/modperl_env.c
perl/modperl/branches/threading/src/modules/perl/modperl_perl_global.c
perl/modperl/branches/threading/src/modules/perl/modperl_util.c
perl/modperl/branches/threading/xs/Apache2/Access/Apache2__Access.h
perl/modperl/branches/threading/xs/Apache2/Directive/Apache2__Directive.h
Modified: perl/modperl/branches/threading/src/modules/perl/mod_perl.c
URL: http://svn.apache.org/viewvc/perl/modperl/branches/threading/src/modules/perl/mod_perl.c?rev=672737&r1=672736&r2=672737&view=diff
==============================================================================
--- perl/modperl/branches/threading/src/modules/perl/mod_perl.c (original)
+++ perl/modperl/branches/threading/src/modules/perl/mod_perl.c Mon Jun 30 02:47:16 2008
@@ -588,7 +588,7 @@
/* PERL_SYS_TERM() needs 'my_perl' as of 5.9.5 */
#if MP_PERL_VERSION_AT_LEAST(5, 9, 5) && defined(USE_ITHREADS)
modperl_cleanup_data_t *cdata = (modperl_cleanup_data_t *)data;
- PerlInterpreter *my_perl = cdata == NULL ? NULL : (PerlInterpreter *)cdata->data;
+ PERL_UNUSED_DECL PerlInterpreter *my_perl = cdata == NULL ? NULL : (PerlInterpreter *)cdata->data;
#endif
MP_init_status = 0;
MP_threads_started = 0;
Modified: perl/modperl/branches/threading/src/modules/perl/modperl_env.c
URL: http://svn.apache.org/viewvc/perl/modperl/branches/threading/src/modules/perl/modperl_env.c?rev=672737&r1=672736&r2=672737&view=diff
==============================================================================
--- perl/modperl/branches/threading/src/modules/perl/modperl_env.c (original)
+++ perl/modperl/branches/threading/src/modules/perl/modperl_env.c Mon Jun 30 02:47:16 2008
@@ -43,7 +43,7 @@
} \
else { \
SV *sv = newSVpv(val, 0); \
- hv_store(hv, key, klen, sv, FALSE); \
+ (void)hv_store(hv, key, klen, sv, FALSE); \
modperl_envelem_tie(sv, key, klen); \
svp = &sv; \
} \
@@ -62,7 +62,7 @@
{
I32 klen = strlen(key);
if (hv_exists(hv, key, klen)) {
- hv_delete(hv, key, strlen(key), G_DISCARD);
+ (void)hv_delete(hv, key, strlen(key), G_DISCARD);
}
}
@@ -335,8 +335,8 @@
while (ent->key) {
SV *sv = newSVpvn(ent->val, ent->vlen);
- hv_store(hv, ent->key, ent->klen,
- sv, ent->hash);
+ (void)hv_store(hv, ent->key, ent->klen,
+ sv, ent->hash);
MP_TRACE_e(MP_FUNC, "$ENV{%s} = \"%s\";", ent->key, ent->val);
modperl_envelem_tie(sv, ent->key, ent->klen);
ent++;
Modified: perl/modperl/branches/threading/src/modules/perl/modperl_perl_global.c
URL: http://svn.apache.org/viewvc/perl/modperl/branches/threading/src/modules/perl/modperl_perl_global.c?rev=672737&r1=672736&r2=672737&view=diff
==============================================================================
--- perl/modperl/branches/threading/src/modules/perl/modperl_perl_global.c (original)
+++ perl/modperl/branches/threading/src/modules/perl/modperl_perl_global.c Mon Jun 30 02:47:16 2008
@@ -272,8 +272,8 @@
while ((entry = hv_iternext(ohv))) {
SV *sv = newSVsv(HeVAL(entry));
modperl_envelem_tie(sv, HeKEY(entry), HeKLEN(entry));
- hv_store(hv, HeKEY(entry), HeKLEN(entry),
- sv, HeHASH(entry));
+ (void)hv_store(hv, HeKEY(entry), HeKLEN(entry),
+ sv, HeHASH(entry));
}
HvRITER(ohv) = hv_riter;
Modified: perl/modperl/branches/threading/src/modules/perl/modperl_util.c
URL: http://svn.apache.org/viewvc/perl/modperl/branches/threading/src/modules/perl/modperl_util.c?rev=672737&r1=672736&r2=672737&view=diff
==============================================================================
--- perl/modperl/branches/threading/src/modules/perl/modperl_util.c (original)
+++ perl/modperl/branches/threading/src/modules/perl/modperl_util.c Mon Jun 30 02:47:16 2008
@@ -745,7 +745,7 @@
{
int len;
char *filename = package2filename(package, &len);
- hv_delete(GvHVn(PL_incgv), filename, len, G_DISCARD);
+ (void)hv_delete(GvHVn(PL_incgv), filename, len, G_DISCARD);
free(filename);
}
@@ -775,7 +775,7 @@
* unload
*/
if (GvSTASH(val) == stash) {
- hv_delete(stash, key, len, G_DISCARD);
+ (void)hv_delete(stash, key, len, G_DISCARD);
}
}
}
Modified: perl/modperl/branches/threading/xs/Apache2/Access/Apache2__Access.h
URL: http://svn.apache.org/viewvc/perl/modperl/branches/threading/xs/Apache2/Access/Apache2__Access.h?rev=672737&r1=672736&r2=672737&view=diff
==============================================================================
--- perl/modperl/branches/threading/xs/Apache2/Access/Apache2__Access.h (original)
+++ perl/modperl/branches/threading/xs/Apache2/Access/Apache2__Access.h Mon Jun 30 02:47:16 2008
@@ -37,11 +37,11 @@
hv = newHV();
- hv_store(hv, "method_mask", 11,
- newSViv((IV)reqs[x].method_mask), 0);
+ (void)hv_store(hv, "method_mask", 11,
+ newSViv((IV)reqs[x].method_mask), 0);
- hv_store(hv, "requirement", 11,
- newSVpv(reqs[x].requirement,0), 0);
+ (void)hv_store(hv, "requirement", 11,
+ newSVpv(reqs[x].requirement,0), 0);
av_push(av, newRV_noinc((SV*)hv));
}
Modified: perl/modperl/branches/threading/xs/Apache2/Directive/Apache2__Directive.h
URL: http://svn.apache.org/viewvc/perl/modperl/branches/threading/xs/Apache2/Directive/Apache2__Directive.h?rev=672737&r1=672736&r2=672737&view=diff
==============================================================================
--- perl/modperl/branches/threading/xs/Apache2/Directive/Apache2__Directive.h (original)
+++ perl/modperl/branches/threading/xs/Apache2/Directive/Apache2__Directive.h Mon Jun 30 02:47:16 2008
@@ -46,13 +46,13 @@
if (value) {
if (!hash_ent) {
subhash = newHV();
- hv_store(hash, key, keylen, newRV_noinc((SV *)subhash), 0);
+ (void)hv_store(hash, key, keylen, newRV_noinc((SV *)subhash), 0);
}
else {
subhash = (HV *)SvRV(*hash_ent);
}
- hv_store(subhash, args, argslen, value, 0);
+ (void)hv_store(subhash, args, argslen, value, 0);
}
else {
if (hash_ent) {
@@ -62,12 +62,13 @@
else {
args_array = newAV();
av_push(args_array, newSVsv(*hash_ent));
- hv_store(hash, key, keylen, newRV_noinc((SV *)args_array), 0);
+ (void)hv_store(hash, key, keylen,
+ newRV_noinc((SV *)args_array), 0);
}
av_push(args_array, newSVpv(args, argslen));
}
else {
- hv_store(hash, key, keylen, newSVpv(args, argslen), 0);
+ (void)hv_store(hash, key, keylen, newSVpv(args, argslen), 0);
}
}
}
|
