From b5e34146cdf050cd2b023c9119c494d26bc4329a Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Wed, 26 Feb 2014 14:23:25 -0500 Subject: [PATCH] perl max_chunk_size additions * Class definitions for Partial and PartialComplete need unique class hints. * Fixed class name copy/paste-o Signed-off-by: Bill Erickson --- src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm b/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm index 25d8f50..23a68be 100644 --- a/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm +++ b/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm @@ -284,7 +284,10 @@ package OpenSRF::DomainObject::oilsResult::Partial; use OpenSRF::DomainObject::oilsResponse qw/:status/; use base 'OpenSRF::DomainObject::oilsResult'; use vars qw/$status $statusCode/; -OpenSRF::Utils::JSON->register_class_hint( hint => 'osrfResult', name => 'OpenSRF::DomainObject::oilsResult::Partial', type => 'hash' ); +OpenSRF::Utils::JSON->register_class_hint( + hint => 'osrfResultPartial', + name => 'OpenSRF::DomainObject::oilsResult::Partial', + type => 'hash'); $status = 'Partial Response'; @@ -324,7 +327,10 @@ package OpenSRF::DomainObject::oilsResult::PartialComplete; use OpenSRF::DomainObject::oilsResponse qw/:status/; use base 'OpenSRF::DomainObject::oilsResult'; use vars qw/$status $statusCode/; -OpenSRF::Utils::JSON->register_class_hint( hint => 'osrfResult', name => 'OpenSRF::DomainObject::oilsResult::Partial', type => 'hash' ); +OpenSRF::Utils::JSON->register_class_hint( + hint => 'osrfResultPartialComplete', + name => 'OpenSRF::DomainObject::oilsResult::PartialComplete', + type => 'hash'); $status = 'Partial Response Finalized'; -- 2.11.0