https://bugs.koha-community.org/bugzilla3/show_bug.cgi?id=17717

--- Comment #2 from [email protected] ---
After extracting Failure to its own file, process_message_queue.pl runs without
a peep. I don't understand enough of Perl to know what's going on.

Files end up like this:

root@koha:/usr/share/perl5/Authen/CAS/Client# find
.
./Response.pm.bak
./Response
./Response/Failure.pm
./Response.pm

Failure.pm is cut out of Response.pm: (didn't have much success with multi-line
comments!)

root@koha:/usr/share/perl5/Authen/CAS/Client# cat Response/Failure.pm
require 5.006_001;

use strict;
use warnings;

#======================================================================
# Authen::CAS::Client::Response::Failure
#
package Authen::CAS::Client::Response::Failure;

use base qw/ Authen::CAS::Client::Response /;

sub _ATTRIBUTES () { code => undef, message => '', $_[0]->SUPER::_ATTRIBUTES }

sub new { my $class = shift; $class->SUPER::new( @_, _ok => 0 ) }

sub code    { my ( $self ) = @_; $self->{code} }
sub message { my ( $self ) = @_; $self->{message} }

-- 
You are receiving this mail because:
You are watching all bug changes.
_______________________________________________
Koha-bugs mailing list
[email protected]
http://lists.koha-community.org/cgi-bin/mailman/listinfo/koha-bugs
website : http://www.koha-community.org/
git : http://git.koha-community.org/
bugs : http://bugs.koha-community.org/

Reply via email to