Re: bless() bug ? Why fails reblessing of 'main::Object' to 'Object' ?

[p5sagit/p5-mst-13.2.git] / embed.fnc

diff --git a/embed.fnc b/embed.fnc
index 9cf223e..f86c780 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1287,7 +1287,7 @@ s |I32    |cr_textfilter  |int idx|SV *sv|int maxlen
 #endif
 
 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
-s      |SV*|isa_lookup |HV *stash|const char *name|int len|int level
+s      |SV*|isa_lookup |HV *stash|const char *name|HV *name_stash|int len|int level
 #endif
 
 #if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)