[perl-Fedora-Bugzilla] Add patch to login-callback-reference

[Emmanuel Seyman]

commit 21901a3421ce1189d045305d7b74940ae52b0344
Author: Emmanuel Seyman <emmanuel.seyman at club-internet.fr>
Date:   Mon Aug 6 22:02:51 2012 +0200

    Add patch to login-callback-reference

 perl-Fedora-Bugzilla-0.13-no-pass-callback.patch |   21 +++++++++++++++++++++
 perl-Fedora-Bugzilla.spec                        |    8 +++++++-
 2 files changed, 28 insertions(+), 1 deletions(-)
---
diff --git a/perl-Fedora-Bugzilla-0.13-no-pass-callback.patch b/perl-Fedora-Bugzilla-0.13-no-pass-callback.patch
new file mode 100644
index 0000000..a7f0e4d
--- /dev/null
+++ b/perl-Fedora-Bugzilla-0.13-no-pass-callback.patch
@@ -0,0 +1,21 @@
+--- Fedora-Bugzilla-0.13/lib/Fedora/Bugzilla/XMLRPC.pm.orig
++++ Fedora-Bugzilla-0.13/lib/Fedora/Bugzilla/XMLRPC.pm
+@@ -32,13 +32,14 @@ has login_cb => (is => 'ro', isa => 'CodeRef', required => 1);
+ 
+ sub new { 
+     my $class = shift; 
++    my $login_cb = pop @_;
+     
+     # call XML::RPC's constructor 
+     my $obj = $class->SUPER::new(@_); 
+     $obj = $class->meta->new_object( 
+         # pass in the constructed object using the special key __INSTANCE__ 
+         __INSTANCE__ => $obj,
+-        login_cb     => pop @_,
++        login_cb     => $login_cb,
+     );
+     $obj->BUILDALL;
+     return $obj;
+-- 
+1.7.4.2
+
diff --git a/perl-Fedora-Bugzilla.spec b/perl-Fedora-Bugzilla.spec
index bb2ebc8..a31292e 100644
--- a/perl-Fedora-Bugzilla.spec
+++ b/perl-Fedora-Bugzilla.spec
@@ -1,6 +1,6 @@
 Name:           perl-Fedora-Bugzilla
 Version:        0.13
-Release:        13%{?dist}
+Release:        14%{?dist}
 Summary:        Access Fedora's Bugzilla
 
 Group:          Development/Libraries
@@ -10,6 +10,8 @@ Source0:        http://search.cpan.org/CPAN/authors/id/R/RS/RSRCHBOY/Fedora-Bugz
 Patch0:         perl-Fedora-Bugzilla-0.13-no-CascadeClear.patch
 # https://rt.cpan.org/Public/Bug/Display.html?id=78054
 Patch1:         perl-Fedora-Bugzilla-0.13-fix-NewBug.patch
+# https://rt.cpan.org/Public/Bug/Display.html?id=67217
+Patch2:         perl-Fedora-Bugzilla-0.13-no-pass-callback.patch
 Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
 
 BuildArch:      noarch
@@ -71,6 +73,7 @@ works to expose those as well.
 %setup -q -n Fedora-Bugzilla-%{version}
 %patch0 -p1 -b .no-CascadeClear
 %patch1 -p1
+%patch2 -p1
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor 
@@ -96,6 +99,9 @@ make test
 
 
 %changelog
+* Mon Aug 06 2012 Emmanuel Seyman <emmanuel.seyman at club-internet.fr> - 0.13-14
+- Add patch to login-callback-reference (#755638)
+
 * Fri Jul 20 2012 Fedora Release Engineering <rel-eng at lists.fedoraproject.org> - 0.13-13
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_18_Mass_Rebuild