X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=win32%2FGenCAPI.pl;h=77e7aad8b8b219eee12862c20cc44af3e667383e;hb=92b7311ab7166cba6ce64057c5409d8cdc4cdecf;hp=af71291830f4a7ae26c3acd09e8fe59b3a6b0fff;hpb=ac5c734f32ccd9787762253192de0d559609abae;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/win32/GenCAPI.pl b/win32/GenCAPI.pl
index af71291..77e7aad 100644
--- a/win32/GenCAPI.pl
+++ b/win32/GenCAPI.pl
@@ -990,6 +990,11 @@ int          _win32_utime(const char *f, struct utimbuf *t)
     return pPerl->PL_piLIO->Utime((char*)f, t, ErrorNo());
 }
 
+int          _win32_uname(struct utsname *name)
+{
+    return pPerl->PL_piENV->Uname(name, ErrorNo());
+}
+
 char*   _win32_getenv(const char *name)
 {
     return pPerl->PL_piENV->Getenv(name, ErrorNo());