From b8a801583778dee5b9075e938ed318d17c63a162 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 28 Aug 2001 09:38:02 +0000
Subject: security fix and various

---
 perl-install/c/stuff.xs.pm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'perl-install/c')

diff --git a/perl-install/c/stuff.xs.pm b/perl-install/c/stuff.xs.pm
index d0e5bf2a5..f6e63a85d 100644
--- a/perl-install/c/stuff.xs.pm
+++ b/perl-install/c/stuff.xs.pm
@@ -156,6 +156,19 @@ setMouseLive(display, type, emulate3buttons)
 
 print '
 
+int
+is_secure_file(filename)
+  char * filename
+  CODE:
+  {
+    int fd;
+    unlink(filename); /* in case it exists and we manage to remove it */
+    RETVAL = (fd = open(filename, O_RDWR | O_CREAT | O_EXCL, 0600)) != -1;
+    if (RETVAL) close(fd);
+  }
+  OUTPUT:
+  RETVAL
+
 int
 is_ext3(device_name)
   char * device_name
-- 
cgit v1.2.1