fix perl error that shows when running under exabgp on startup due to…

… undefined variable
sysadminblog · May 13, 2016 · 821cd2c · 821cd2c
1 parent 2a79da3
commit 821cd2c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/healthcheck.pl b/healthcheck.pl
@@ -746,7 +746,8 @@ sub update_status_file {
   open STATUSFH, '>', $statusfile;
   print STATUSFH "Service State: $status\n";
   print STATUSFH "Last State Change: $current_time\n";
-  print STATUSFH "Nexthop: $service_nexthop\n";
+  if (! defined $service_nexthop) { print STATUSFH "Nexthop: ".get_value('nexthop')."\n"; }
+  else { print STATUSFH "Nexthop: $service_nexthop\n"; }
   print STATUSFH "Managed IP's: ";
   foreach my $ip (@service_ips) {
     print STATUSFH "$ip ";