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 ra...@apache.org on 2003/03/14 05:39:39 UTC
cvs commit: modperl/src/modules/perl Constants.xs
randyk 2003/03/13 20:39:39
Modified: src/modules/perl Constants.xs
Log:
typecast to avoid warnings
Revision Changes Path
1.21 +2 -2 modperl/src/modules/perl/Constants.xs
Index: Constants.xs
===================================================================
RCS file: /home/cvs/modperl/src/modules/perl/Constants.xs,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- Constants.xs 30 Mar 2000 00:44:40 -0000 1.20
+++ Constants.xs 14 Mar 2003 04:39:39 -0000 1.21
@@ -906,7 +906,7 @@
#endif
char *name = EXP_NAME;
double val = constant(name);
- my_newCONSTSUB(stash, name, newSViv(val));
+ my_newCONSTSUB(stash, name, newSViv( (I32) val));
}
}
@@ -955,7 +955,7 @@
if(errno != 0)
croak("Your vendor has not defined Apache::Constants macro `%s'", name);
else
- my_newCONSTSUB(stash, name, newSViv(val));
+ my_newCONSTSUB(stash, name, newSViv( (I32) val));
const char *
SERVER_VERSION()