From ac13c77d7ddd607b32f5948560bfe41cb2dcd756 Mon Sep 17 00:00:00 2001
From: Christian Poessinger <christian@poessinger.com>
Date: Tue, 23 Apr 2019 12:55:32 +0200
Subject: T1345: fix Perl error when removing RADIUS configuration

---
 lib/Vyatta/Login/RadiusServer.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/Vyatta/Login/RadiusServer.pm b/lib/Vyatta/Login/RadiusServer.pm
index f2e15de2..39c7cea1 100644
--- a/lib/Vyatta/Login/RadiusServer.pm
+++ b/lib/Vyatta/Login/RadiusServer.pm
@@ -39,8 +39,9 @@ sub remove_pam_radius {
 	   "pam-auth-update --package --remove radius") == 0
 	or die "pam-auth-update remove failed";
 
-    unlink($PAM_RAD_AUTH)
-	or die "Can't remove $PAM_RAD_AUTH";
+    if (-e $PAM_RAD_AUTH) {
+        unlink ($PAM_RAD_AUTH) or die "Can't remove $PAM_RAD_AUTH";
+    }
 }
 
 sub add_pam_radius {
-- 
cgit v1.2.3