Blob Blame History Raw
Patch by Alexey Markov <redrat@mail.ru> for calamaris <= 2.59 which avoids the
warning about deprecated construction in code. Since Perl 5.12 defined() must not
be applied to the hashes and arrays. See also Red Hat Bugzilla, ID #970990.

--- calamaris-2.59/calamaris			2004-06-06 18:26:14.000000000 +0200
+++ calamaris-2.59/calamaris.perl_512		2013-08-03 22:57:19.000000000 +0200
@@ -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' );