Further tweaks to perluniintro.pod

[p5sagit/p5-mst-13.2.git] / reentr.pl

diff --git a/reentr.pl b/reentr.pl
index 1f4e6ac..85ec64a 100644 (file)
--- 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