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 <berick@esilibrary.com>

diff --git a/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm b/src/perl/lib/OpenSRF/DomainObject/oilsResponse.pm
index 25d8f50..23a68be 100644 (file)
--- 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';