This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The mg parameter to S_tied_handle_method() can be const MG *
[perl5.git] / embed.fnc
index 05ebbc8..fee18ce 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1724,7 +1724,7 @@ sR        |int    |dooneliner     |NN const char *cmd|NN const char *filename
 #  endif
 s      |SV *   |space_join_names_mortal|NN char *const *array
 so     |OP *   |tied_handle_method|NN const char *const methname|NN SV **sp \
-                               |NN IO *const io|NN MAGIC *const mg \
+                               |NN IO *const io|NN const MAGIC *const mg \
                                |const U32 flags|U32 argc|...
 #endif