svn commit: r362694 - in head/net-mgmt/smokeping: . files

[Rodrigo Osorio]

Author: rodrigo
Date: Wed Jul 23 13:41:07 2014
New Revision: 362694
URL: http://svnweb.freebsd.org/changeset/ports/362694
QAT: https://qat.redports.org/buildarchive/r362694/

Log:
  Fix a minima the plugin breakage introduced by Net::DNS 0.75 and above.
  This bug is complex and must be fixed upstream (smokeping)[1].
  [1] https://rt.cpan.org/Public/Bug/Display.html?id=96479
  
  PR:		ports/192037
  Submitted by:	feld
  Reviewed by:	rodrigo (maintainer)
  Approved by:	kwm (mentor)
  MFH:		2014Q3

Added:
  head/net-mgmt/smokeping/files/patch-lib__Smokeping__probes__AnotherDNS.pm   (contents, props changed)
Modified:
  head/net-mgmt/smokeping/Makefile

Modified: head/net-mgmt/smokeping/Makefile
==============================================================================
--- head/net-mgmt/smokeping/Makefile	Wed Jul 23 13:36:58 2014	(r362693)
+++ head/net-mgmt/smokeping/Makefile	Wed Jul 23 13:41:07 2014	(r362694)
@@ -3,7 +3,7 @@
 
 PORTNAME=	smokeping
 PORTVERSION=	2.6.9
-PORTREVISION=	1
+PORTREVISION=	2
 CATEGORIES=	net-mgmt www
 MASTER_SITES=	http://oss.oetiker.ch/smokeping/pub/ \
 		http://smokeping.cs.pu.edu.tw/pub/

Added: head/net-mgmt/smokeping/files/patch-lib__Smokeping__probes__AnotherDNS.pm
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ head/net-mgmt/smokeping/files/patch-lib__Smokeping__probes__AnotherDNS.pm	Wed Jul 23 13:41:07 2014	(r362694)
@@ -0,0 +1,20 @@
+--- lib/Smokeping/probes/AnotherDNS.pm.orig	2012-07-09 09:45:46.000000000 +0000
++++ lib/Smokeping/probes/AnotherDNS.pm	2014-07-22 23:07:45.626343897 +0000
+@@ -25,6 +25,8 @@
+ use IO::Select;
+ use Net::DNS;
+ 
++use constant PACKETSZ => 512;
++
+ sub pod_hash {
+ 	return {
+ 		name => <<DOC,
+@@ -95,7 +97,7 @@
+         $elapsed = tv_interval( $t0, $t1 );
+         if ( defined $ready ) {
+             my $buf = '';
+-            $ready->recv( $buf, &Net::DNS::PACKETSZ );
++            $ready->recv( $buf, PACKETSZ );
+ 	    my ($recvPacket, $err) = Net::DNS::Packet->new(\$buf);
+ 	    if (defined $recvPacket) {
+ 		my $recvHeader = $recvPacket->header();