Fix warning produced by modern version of perl.

PR:		175877
Submitted by:	Alexey Markov <redrat@mail.ru>
This commit is contained in:
Dmitry Sivachenko 2013-03-11 12:56:11 +00:00
parent 81a352b922
commit 5cc1539e93
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=313883
2 changed files with 12 additions and 0 deletions

View file

@ -7,6 +7,7 @@
PORTNAME= calamaris
PORTVERSION= 2.59
PORTREVISION= 1
CATEGORIES= www textproc
MASTER_SITES= http://cord.de/tools/squid/calamaris/

View file

@ -0,0 +1,11 @@
--- calamaris.orig 2013-03-11 16:52:12.000000000 +0400
+++ calamaris 2013-03-11 16:52:45.000000000 +0400
@@ -2606,7 +2606,7 @@
100, 100 * $tcp_hit / $tcp );
}
outstop(10);
- if ( defined(%tcp_content) ) {
+ if ( %tcp_content ) {
outstart(11);
if ( $tcp == 0 ) {
outline( 11, 'no matching requests' );