From fec35ab4120b22377e43807718361586cfa57516 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Tue, 10 Apr 2018 15:06:56 -0400 Subject: [PATCH] LP#1762815 Empty client TZ defaults to server TZ (Perl) Fixes an issue in the Perl client time zone handling that resulted in the server defaulting to UTC time instead of the server time zone when no time zone value was received from the client. Signed-off-by: Bill Erickson Signed-off-by: Jason Stephenson --- src/perl/lib/OpenSRF/DomainObject/oilsMessage.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/src/perl/lib/OpenSRF/DomainObject/oilsMessage.pm b/src/perl/lib/OpenSRF/DomainObject/oilsMessage.pm index 33675a8..b84c80c 100644 --- a/src/perl/lib/OpenSRF/DomainObject/oilsMessage.pm +++ b/src/perl/lib/OpenSRF/DomainObject/oilsMessage.pm @@ -244,6 +244,7 @@ sub handler { if( $val ) { local $ENV{TZ} = $tz || $ENV{TZ}; # automatic revert at the end of this scope + delete $ENV{TZ} unless $ENV{TZ}; # avoid UTC fall-back tzset(); return OpenSRF::Application->handler($session, $self->payload); } else { -- 2.11.0