1
0
mirror of https://git.FreeBSD.org/ports.git synced 2024-12-23 04:23:08 +00:00

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
This commit is contained in:
Rodrigo Osorio 2014-07-23 13:41:07 +00:00
parent ed8224d156
commit 251ac3c995
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=362694
2 changed files with 21 additions and 1 deletions

View File

@ -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/

View File

@ -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();