[Koha-bugs] [Bug 17717] process_message_queue.pl: Can't locate Authen/CAS/Client/ Response/Failure.pm

bugzilla-daemon at bugs.koha-community.org bugzilla-daemon at bugs.koha-community.org
Sat Dec 3 15:08:10 CET 2016


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

--- Comment #2 from mjnkml at gmail.com ---
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 at 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 at 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.


More information about the Koha-bugs mailing list