add my_[l]stat_flags(); make my_[l]stat() mathoms

my_stat() and my_lstat() call get magic on the stack arg, so create _flags()
variants that allow us to control this. (I can't just change the signature
or the mg_get() behaviour since my_[l]stat() are listed as being in the
public API, even though they're undocumented.)

1 files changed, 4 insertions, 0 deletions

diff --git a/perl.h b/perl.h
index b551f4bca4..3d60a33076 100644
--- a/perl.h
+++ b/perl.h
@@ -3425,6 +3425,10 @@ struct nexttoken {
 #include "warnings.h"
 #include "utf8.h"
 
+/* these would be in doio.h if there was such a file */
+#define my_stat()  my_stat_flags(SV_GMAGIC)
+#define my_lstat() my_lstat_flags(SV_GMAGIC)
+
 /* defined in sv.c, but also used in [ach]v.c */
 #undef _XPV_HEAD
 #undef _XPVMG_HEAD