[Opensrf-commits] r1122 - trunk/src/perlmods/OpenSRF/DomainObject

[svn at svn.open-ils.org]

Author: miker
Date: 2007-11-06 09:40:08 -0500 (Tue, 06 Nov 2007)
New Revision: 1122

Modified:
   trunk/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm
Log:
make the perl local support match the C version

Modified: trunk/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm
===================================================================
--- trunk/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm	2007-11-05 13:40:16 UTC (rev 1121)
+++ trunk/src/perlmods/OpenSRF/DomainObject/oilsMessage.pm	2007-11-06 14:40:08 UTC (rev 1122)
@@ -100,8 +100,8 @@
 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] );