From 93ad9acc6486cf57d39e6f625de13c44fede8444 Mon Sep 17 00:00:00 2001 From: Guillaume Rousse Date: Thu, 4 Feb 2010 18:43:31 +0000 Subject: check the file exists before deleting it --- del-syslog | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/del-syslog b/del-syslog index 372ed2d..8df0bb8 100755 --- a/del-syslog +++ b/del-syslog @@ -32,6 +32,7 @@ sub del_sysklogd_entry { my ($package) = @_; my $file = "/etc/syslog.conf"; + my $content; open(my $in, '<', $file) or die "Can't open $file for reading: $!"; @@ -58,6 +59,9 @@ sub del_rsyslog_entry { my $file = "/etc/rsyslog.d/$package.conf"; + # check the file exists + return unless -f $file; + # check the file is the one created by package installation open(my $in, '<', $file) or die "Can't open $file for reading: $!"; -- cgit v1.2.1