From 0ad94e446c44d077cc61413440b1021d247fd966 Mon Sep 17 00:00:00 2001
From: Jochen Hayek <Jochen+github-oss@Hayek.name>
Date: Wed, 17 Dec 2014 17:51:40 +0100
Subject: [PATCH] Update Debug.pm, esp. method "Init"

Sometimes "Init" gets called with an odd number of elements in @_.

Changing this solved my problems with sendxmpprc.
---
 lib/Net/XMPP/Debug.pm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/lib/Net/XMPP/Debug.pm b/lib/Net/XMPP/Debug.pm
index 25fce99..cbf0b34 100644
--- a/lib/Net/XMPP/Debug.pm
+++ b/lib/Net/XMPP/Debug.pm
@@ -183,7 +183,17 @@ sub Init
     my $self = shift;
 
     my %args;
-    while($#_ >= 0) { $args{ lc pop(@_) } = pop(@_); }
+    while($#_ >= 0) 
+      {
+	if($#_ == 0)
+	  {
+	    pop(@_);
+	  }
+	else
+	  {
+	    $args{ lc pop(@_) } = pop(@_);
+	  }
+      }
 
     delete($args{file}) if (defined $args{file} && lc($args{file}) eq "stdout");