cvs commit: modperl/src/modules/perl Constants.xs

[randyk]

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()