LP#1762815 Empty client TZ defaults to server TZ (Perl)

[opensrf-equinox.git] / src / perl / lib / OpenSRF / DomainObject / oilsMessage.pm

diff --git a/src/perl/lib/OpenSRF/DomainObject/oilsMessage.pm b/src/perl/lib/OpenSRF/DomainObject/oilsMessage.pm
index 33675a8..b84c80c 100644 (file)
--- 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 {