diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2005-06-30 07:29:17 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2005-06-30 07:29:17 +0000 |
commit | a75a383cd9e9ecf46af135884668ba939f29cb49 (patch) | |
tree | c2a3a242cc6ee92c83e9d2a138b358353546aa4a /perl-install | |
parent | 48d5a9c30cbd7a6f51ed5c55da6cf72e0df576d2 (diff) | |
download | drakx-a75a383cd9e9ecf46af135884668ba939f29cb49.tar drakx-a75a383cd9e9ecf46af135884668ba939f29cb49.tar.gz drakx-a75a383cd9e9ecf46af135884668ba939f29cb49.tar.bz2 drakx-a75a383cd9e9ecf46af135884668ba939f29cb49.tar.xz drakx-a75a383cd9e9ecf46af135884668ba939f29cb49.zip |
(strftime) add it thus avoiding to load bloaty POSIX in net_applet
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/c/stuff.xs.pl | 22 |
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() |