From 64b6a8f0e37e6eecf15639a4b798391da18ee0b0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 6 Jan 2003 23:32:55 +0000
Subject: common::secured_file() is a wrapper around c::is_secure_file()

---
 perl-install/common.pm | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'perl-install/common.pm')

diff --git a/perl-install/common.pm b/perl-install/common.pm
index ce86aa4a6..f44a0c0bf 100644
--- a/perl-install/common.pm
+++ b/perl-install/common.pm
@@ -207,6 +207,12 @@ sub set_alternative {
 
 sub files_exist { and_(map { -f "$::prefix$_" } @_) }
 
+sub secured_file {
+    my ($f) = @_;
+    c::is_secure_file($f) or die "can't ensure a safe $f";
+    $f;
+}
+
 sub set_permissions {
     my ($file, $perms, $owner, $group) = @_;
     # We only need to set the permissions during installation to be able to
-- 
cgit v1.2.1