pkg/53454: It crushes.

[mes%yki.jp@localhost]

>Number:         53454
>Category:       pkg
>Synopsis:       It crushes.
>Confidential:   no
>Severity:       serious
>Priority:       medium
>Responsible:    pkg-manager
>State:          open
>Class:          sw-bug
>Submitter-Id:   net
>Arrival-Date:   Mon Jul 16 09:15:00 +0000 2018
>Originator:     M. Meiarashi
>Release:        pkgsrc current
>Organization:
>Environment:
(perl is perl-5.26.2 of pkgsrc)
>Description:
Perl terminates with the following message:
    Can't use 'defined(%hash)' (Maybe you should just omit the defined()?) at /usr/pkg/bin/calamaris line 2609.

According to 
https://perldoc.perl.org/functions/defined.html
it says "Use of defined on aggregates (hashes and arrays) is no longer supported."
>How-To-Repeat:
Just invoke calamaris.
>Fix:
The line 2609 of the script:
  if ( defined(%tcp_content) ) {
should be like
  if ( %tcp_content ) {