mg.c: Split out functionality to a seprate function

This commit creates a function that gets the extended errno on systems
(such as VMS and Windows) that have that, returning plain errno on
systems that don't.  Previously this code was interweaved into code with
a larger purpose.  The splitting makes it possible for other code that
just wants the errno to get it.

The new function is callable from elsewhere in core, but remains private
for now.  In principal it could be documented and made public if needed.

1 files changed, 5 insertions, 0 deletions

diff --git a/proto.h b/proto.h
index e4698aa469..ca7863f125 100644
--- a/proto.h
+++ b/proto.h
@@ -1218,6 +1218,11 @@ Perl_get_deprecated_property_msg(const Size_t warning_offset)
         __attribute__warn_unused_result__;
 #define PERL_ARGS_ASSERT_GET_DEPRECATED_PROPERTY_MSG
 
+PERL_CALLCONV int
+Perl_get_extended_os_errno(void)
+        __attribute__visibility__("hidden");
+#define PERL_ARGS_ASSERT_GET_EXTENDED_OS_ERRNO
+
 PERL_CALLCONV void
 Perl_get_hash_seed(pTHX_ unsigned char * const seed_buffer)
         __attribute__visibility__("hidden");