This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
support POSIX::uname() via win32_uname()
[perl5.git] / win32 / perlhost.h
index e514bf1..cc5b5e5 100644 (file)
@@ -98,6 +98,10 @@ public:
     {
        return g_win32_get_sitelib(pl);
     };
     {
        return g_win32_get_sitelib(pl);
     };
+    virtual int Uname(struct utsname *name, int &err)
+    {
+       return win32_uname(name);
+    };
 };
 
 class CPerlSock : public IPerlSock
 };
 
 class CPerlSock : public IPerlSock