# if defined(USE_HOSTENT_BUFFER) || defined(USE_NETENT_BUFFER) || defined(USE_PROTOENT_BUFFER) || defined(USE_SERVENT_BUFFER)
int anint;
# endif
-#ifdef PERL_REENTRANT_MAXSIZE
- static const char larger[] = "Result from %s larger than %d bytes";
-#endif
va_list ap;
va_start(ap, f);
break;
}
}
-#ifdef PERL_REENTRANT_MAXSIZE
- else if (ckWARN(WARN_MISC))
- Perl_warner(aTHX_ packWARN(WARN_MISC),
- larger, OP_NAME(PL_op), PERL_REENTRANT_MAXSIZE);
-#endif
+ SETERRNO(ERANGE, LIB_INVARG);
}
break;
#endif
break;
}
}
-#ifdef PERL_REENTRANT_MAXSIZE
- else if (ckWARN(WARN_MISC))
- Perl_warner(aTHX_ packWARN(WARN_MISC),
- larger, OP_NAME(PL_op), PERL_REENTRANT_MAXSIZE);
-#endif
+ SETERRNO(ERANGE, LIB_INVARG);
}
break;
#endif
break;
}
}
-#ifdef PERL_REENTRANT_MAXSIZE
- else if (ckWARN(WARN_MISC))
- Perl_warner(aTHX_ packWARN(WARN_MISC),
- larger, OP_NAME(PL_op), PERL_REENTRANT_MAXSIZE);
-#endif
+ SETERRNO(ERANGE, LIB_INVARG);
}
break;
#endif
break;
}
}
-#ifdef PERL_REENTRANT_MAXSIZE
- else if (ckWARN(WARN_MISC))
- Perl_warner(aTHX_ packWARN(WARN_MISC),
- larger, OP_NAME(PL_op), PERL_REENTRANT_MAXSIZE);
-#endif
+ SETERRNO(ERANGE, LIB_INVARG);
}
break;
#endif