From 411ac3c5a84994a251a64a40aa33c38b19b33dc1 Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 6 Nov 2007 14:40:08 +0000
Subject: [PATCH] make the perl local support match the C version

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1122 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perlmods/OpenSRF/DomainObject/oilsMessage.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm b/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm
index 19a4c12..0d0f327 100644
--- a/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm
+++ b/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm
@@ -100,8 +100,8 @@ server how you see the world.
 sub sender_locale {
 	my $self = shift;
 	my $val = shift;
-	$self->{sender_locale} = $val if (defined $val);
-	return $self->{sender_locale};
+	$self->{locale} = $val if (defined $val);
+	return $self->{locale};
 }
 
 =head2 OpenSRF::DomainObject::oilsMessage->threadTrace( [$new_threadTrace] );
-- 
2.11.0