1 files changed, 22 insertions, 0 deletions
diff --git a/perl-install/c/stuff.xs.pl b/perl-install/c/stuff.xs.pl
index 77d5f586f..977894a57 100644
--- a/perl-install/c/stuff.xs.pl
+++ b/perl-install/c/stuff.xs.pl
@@ -601,6 +601,28 @@ get_hw_address(const char* ifname)
   RETVAL
 
 
+void
+strftime(fmt, sec, min, hour, mday, mon, year, wday = -1, yday = -1, isdst = -1)
+    char *      fmt
+    int     sec
+    int     min
+    int     hour
+    int     mday
+    int     mon
+    int     year
+    int     wday
+    int     yday
+    int     isdst
+    CODE:
+    {   
+        char *buf = my_strftime(fmt, sec, min, hour, mday, mon, year, wday, yday, isdst);
+        if (buf) {
+        ST(0) = sv_2mortal(newSVpv(buf, 0));
+        Safefree(buf);
+        }
+    }
+
+
 
 char *
 kernel_version()