Errors will not terminate the script or result in a nonzero exit code.
This commit is contained in:
parent
4ef2a8cfdb
commit
01352f4c52
1 changed files with 7 additions and 3 deletions
10
debian/init.d
vendored
10
debian/init.d
vendored
|
@ -1,7 +1,7 @@
|
||||||
#! /usr/bin/perl -w
|
#! /usr/bin/perl -w
|
||||||
#
|
#
|
||||||
# System startup script for tinc
|
# System startup script for tinc
|
||||||
# $Id: init.d,v 1.7 2000/05/18 23:09:31 zarq Exp $
|
# $Id: init.d,v 1.8 2000/05/19 00:15:37 zarq Exp $
|
||||||
#
|
#
|
||||||
# Based on Lubomir Bulej's Redhat init script.
|
# Based on Lubomir Bulej's Redhat init script.
|
||||||
#
|
#
|
||||||
|
@ -25,7 +25,10 @@ if (! -f $DAEMON) { exit 0; }
|
||||||
|
|
||||||
|
|
||||||
sub find_nets {
|
sub find_nets {
|
||||||
open(FH, $NETSFILE) || die "Please create $NETSFILE.\n";
|
if(! open(FH, $NETSFILE)) {
|
||||||
|
warn "Please create $NETSFILE.\n";
|
||||||
|
exit 0;
|
||||||
|
}
|
||||||
while (<FH>) {
|
while (<FH>) {
|
||||||
chomp;
|
chomp;
|
||||||
if( /^[ ]*([^ \#]+)/i ) {
|
if( /^[ ]*([^ \#]+)/i ) {
|
||||||
|
@ -33,7 +36,8 @@ sub find_nets {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
if($#NETS == -1) {
|
if($#NETS == -1) {
|
||||||
die "$NETSFILE doesn't contain any nets.\n";
|
warn "$NETSFILE doesn't contain any nets.\n";
|
||||||
|
exit 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue