summaryrefslogtreecommitdiff
path: root/reentr.pl
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-10-04 19:11:57 +0300
committerhv <hv@crypt.org>2002-10-11 22:28:36 +0000
commitb5379b0df09a1d2f8fb44659104d41784790923d (patch)
tree6bac42b96a67497891ed558746056bf58261a1b1 /reentr.pl
parentfb14229d046006b2f5d3159b99a4486315081739 (diff)
downloadperl-b5379b0df09a1d2f8fb44659104d41784790923d.tar.gz
No warn, just ERANGE (Was: Re: [PATCH] reentrant buffers)
Message-ID: <20021004131157.GD278184@lyta.hut.fi> p4raw-id: //depot/perl@17999
Diffstat (limited to 'reentr.pl')
-rw-r--r--reentr.pl27
1 files changed, 4 insertions, 23 deletions
diff --git a/reentr.pl b/reentr.pl
index 1f4e6ac402..85ec64a1c5 100644
--- a/reentr.pl
+++ b/reentr.pl
@@ -784,9 +784,6 @@ Perl_reentrant_retry(const char *f, ...)
# 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);
@@ -881,11 +878,7 @@ Perl_reentrant_retry(const char *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
@@ -916,11 +909,7 @@ Perl_reentrant_retry(const char *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
@@ -950,11 +939,7 @@ Perl_reentrant_retry(const char *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
@@ -986,11 +971,7 @@ Perl_reentrant_retry(const char *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