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, 1 insertions, 0 deletions

diff --git a/embed.h b/embed.h
index a6bafdf5fc..9df1b9578d 100644
--- a/embed.h
+++ b/embed.h
@@ -925,6 +925,7 @@
 #   define find_script(a,b,c,d)                 Perl_find_script(aTHX_ a,b,c,d)
 #   define force_locale_unlock                  Perl_force_locale_unlock
 #   define free_tied_hv_pool()                  Perl_free_tied_hv_pool(aTHX)
+#   define get_extended_os_errno                Perl_get_extended_os_errno
 #   define get_hash_seed(a)                     Perl_get_hash_seed(aTHX_ a)
 #   define get_no_modify()                      Perl_get_no_modify(aTHX)
 #   define get_opargs()                         Perl_get_opargs(aTHX)