SecBSD/ports
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

SecBSD's official ports repository

Browse source
This commit is contained in:
purplerain 2023-08-16 22:26:55 +00:00
commit 2c0afcbbf3
Signed by: purplerain
GPG key ID: F42C07F07E2E35B7
64331 changed files with 5339189 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

38
net/p5-Net-IPTrie/patches/patch-lib_Net_IPTrie_Node_pm Normal file
View file

@ -0,0 +1,38 @@
https://rt.cpan.org/Public/Bug/Display.html?id=97458
Avoid warning with newer Perl.
Reference is already weak at lib/Net/IPTrie/Node.pm line 60.
Index: lib/Net/IPTrie/Node.pm
--- lib/Net/IPTrie/Node.pm.orig
+++ lib/Net/IPTrie/Node.pm
@@ -4,7 +4,7 @@ use warnings;
use strict;
use Carp;
use Class::Struct;
-use Scalar::Util qw(weaken);
+use Scalar::Util qw(weaken isweak);
use vars qw($VERSION);
$VERSION = '0.7';
@@ -56,7 +56,9 @@ Net::IPTrie::Node
sub new {
my $ret = shift->SUPER::new(@_);
- if ( defined($ret->{'Net::IPTrie::_Node::up'}) ) {
+ if ( defined($ret->{'Net::IPTrie::_Node::up'}) &&
+ !isweak($ret->{'Net::IPTrie::_Node::up'}) )
+ {
weaken $ret->{'Net::IPTrie::_Node::up'};
}
return $ret;
@@ -66,7 +68,9 @@ sub up {
my $self = shift;
if (@_) {
$self->{'Net::IPTrie::_Node::up'} = shift;
- if ( defined($self->{'Net::IPTrie::_Node::up'}) ) {
+ if ( defined($self->{'Net::IPTrie::_Node::up'}) &&
+ !isweak($self->{'Net::IPTrie::_Node::up'}) )
+ {
weaken $self->{'Net::IPTrie::_Node::up'};
}
}