X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/0cb9638729211ea71a75ae8756c03ba21553bd53..d8a83dd3ecf2b61bda27d39770e9942db2eb1719:/universal.c diff --git a/universal.c b/universal.c index 3e5547a..032a536 100644 --- a/universal.c +++ b/universal.c @@ -183,7 +183,7 @@ XS(XS_UNIVERSAL_VERSION) GV *gv; SV *sv; char *undef; - double req; + NV req; if(SvROK(ST(0))) { sv = (SV*)SvRV(ST(0));