#584 fix for case where port has no corresponding properties row

2019-05-27 13:39:54 +01:00
parent 416cffe52a
commit 902ab6c5f8
1 changed files with 2 additions and 1 deletions
--- a/lib/App/Netdisco/Util/Port.pm
+++ b/lib/App/Netdisco/Util/Port.pm
@@ -219,7 +219,8 @@ Returns true if the C<$port> L<DBIx::Class> object has a phone connected.
 =cut

 sub port_has_phone {
-  return (shift)->properties->remote_is_phone;
+  my $properties = (shift)->properties;
+  return ($properties ? $properties->remote_is_phone : undef);
 }

 1;