use clearenv if available

[perl5.git] / op.h

diff --git a/op.h b/op.h
index 2c4937f..0f54a67 100644 (file)
--- a/op.h
+++ b/op.h
@@ -109,6 +109,7 @@ Deprecated.  Use C<GIMME_V> instead.
                                /*  On OP_DBSTATE, indicates breakpoint
                                 *    (runtime property) */
                                /*  On OP_AELEMFAST, indiciates pad var */
+                               /*  On OP_REQUIRE, was seen as CORE::require */
 
 /* old names; don't use in new code, but don't break them, either */
 #define OPf_LIST       OPf_WANT_LIST
@@ -506,6 +507,9 @@ struct loop {
 #define PERL_LOADMOD_NOIMPORT          0x2
 #define PERL_LOADMOD_IMPORT_OPS                0x4
 
+/* used in perly.y */
+#define ref(o, type) doref(o, type, TRUE)
+
 #ifdef USE_REENTRANT_API
 #include "reentr.h"
 #endif