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