From 8ec8e31364e302d4305c72f2ba3fd5bc6683336c Mon Sep 17 00:00:00 2001
From: Mattias Amnefelt <mattiasa@cantemo.com>
Date: Sat, 5 May 2018 19:46:12 +0000
Subject: [PATCH] Modern perl complains if you assign where it expects a
 boolean

---
 lib/Netdot/Model/Device.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/Netdot/Model/Device.pm b/lib/Netdot/Model/Device.pm
index 5ac555f39..bd81e12ab 100644
--- a/lib/Netdot/Model/Device.pm
+++ b/lib/Netdot/Model/Device.pm
@@ -4393,7 +4393,8 @@ sub _fork_init {
 
     # Tell DBI that we don't want to disconnect the server's DB handle
     my $dbh = $class->db_Main;
-    unless ( $dbh->{InactiveDestroy} = 1 ) {
+    $dbh->{InactiveDestroy} = 1;
+    unless ( $dbh->{InactiveDestroy} == 1 ) {
 	$class->throw_fatal("Model::Device::_fork_init: Cannot set InactiveDestroy: ", $dbh->errstr);
     }
 
@@ -5398,7 +5399,8 @@ sub _launch_child {
 
     # Tell DBI that we don't want to disconnect the server's DB handle
     my $dbh = $class->db_Main;
-    unless ( $dbh->{InactiveDestroy} = 1 ) {
+    $dbh->{InactiveDestroy} = 1;
+    unless ( $dbh->{InactiveDestroy} == 1 ) {
 	$class->throw_fatal("Model::Device::_launch_child: Cannot set InactiveDestroy: ", $dbh->errstr);
     }
     # Run given code