aports/testing/perl-net-xmpp/loop-var.patch
Celeste 8bb4dd48e6 testing/perl-net-xmpp: new aport
https://metacpan.org/release/Net-XMPP/
XMPP Support Library

Needed by testing/perl-net-jabber
2024-01-12 12:55:05 +00:00

26 lines
985 B
Diff

Patch-Source: https://github.com/dap/Net-XMPP/commit/a0224e2b2c4a46b53a2591c0f369d63ae580d592.patch
Reference: https://rt.cpan.org/Public/Bug/Display.html?id=58949
--
From a0224e2b2c4a46b53a2591c0f369d63ae580d592 Mon Sep 17 00:00:00 2001
From: Darian Anthony Patrick <dap@darianpatrick.com>
Date: Mon, 22 Dec 2014 15:02:25 -0800
Subject: [PATCH] RT#58949 User array member alias
---
lib/Net/XMPP/Stanza.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/Net/XMPP/Stanza.pm b/lib/Net/XMPP/Stanza.pm
index 15d6c5b..cb1b7b2 100644
--- a/lib/Net/XMPP/Stanza.pm
+++ b/lib/Net/XMPP/Stanza.pm
@@ -1366,7 +1366,7 @@ sub _parse_tree
{
foreach my $xTree (@xTrees)
{
- if( exists($Net::XMPP::Namespaces::NS{$xTrees[0]->get_attrib("xmlns")}))
+ if( exists($Net::XMPP::Namespaces::NS{$xTree->get_attrib("xmlns")}))
{
$self->AddChild($xTree);
$self->{TREE}->remove_child($xTree);