From 62c1e33fbe385549e958f7699d17bfc9e0cd1ca2 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Tue, 12 Oct 2010 22:07:17 -0700 Subject: [perl #78362] Make mro_package_moved check for recursion The existence of main::main::... caused mro_package_moved to break Text::Template, and probably Acme::Meta as well. --- embed.fnc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'embed.fnc') diff --git a/embed.fnc b/embed.fnc index e11144892b..ee596d1a3e 100644 --- a/embed.fnc +++ b/embed.fnc @@ -2362,7 +2362,7 @@ sd |AV* |mro_get_linear_isa_dfs|NN HV* stash|U32 level md |void |mro_isa_changed_in|NN HV* stash pd |void |mro_isa_changed_in3|NULLOK HV* stash|NULLOK const char *stashname|STRLEN stashname_len Apd |void |mro_method_changed_in |NN HV* stash -pdx |void |mro_package_moved |NULLOK HV * const stash|NULLOK const HV * const oldstash|NULLOK const GV * const gv|NULLOK const char *newname|STRLEN newname_len +pdx |void |mro_package_moved |NULLOK HV * const stash|NULLOK const HV * const oldstash|NULLOK const GV * const gv|NULLOK const char *newname|I32 newname_len : Only used in perl.c p |void |boot_core_mro Apon |void |sys_init |NN int* argc|NN char*** argv -- cgit v1.2.1