From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Tue, 6 Nov 2007 14:40:08 +0000 (+0000)
Subject: make the perl local support match the C version
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=411ac3c5a84994a251a64a40aa33c38b19b33dc1;p=working%2FOpenSRF.git

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
---

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] );