call_method(...,G_EVAL) can longjmp() out if the method probing

failed (from Gisle Aas)

p4raw-id: //depot/perl@6127

1 files changed, 1 insertions, 0 deletions

diff --git a/cop.h b/cop.h
index e588675012..3b3c3edbdb 100644
--- a/cop.h
+++ b/cop.h
@@ -423,6 +423,7 @@ L<perlcall>.
 #define G_NOARGS	8	/* Don't construct a @_ array. */
 #define G_KEEPERR      16	/* Append errors to $@, don't overwrite it */
 #define G_NODEBUG      32	/* Disable debugging at toplevel.  */
+#define G_METHOD       64       /* Calling method. */
 
 /* flag bits for PL_in_eval */
 #define EVAL_NULL	0	/* not in an eval */