RE: Using ENV{'TZ'} in mod_perl

["Garrett, Philip (MAN-Corporate)" <suppressed>]

Tyler Fullerton wrote:
> 
> If I have the following script: www.somewhere.com/e3/datetz.cgi (where
> e3 is using PerlRun) that does the following:
> 
> $ENV{'TZ'} = 'US/Eastern';
> POSIX::tzset();
> my @time = localtime();
> my $time = time();
> $ENV{'TZ'} = 'US/Pacific';
> POSIX::tzset();
> 
> # I would expect this to print current time info in the Eastern
> # time zone.
> print "$_\n" foreach @time;
> print "$time\n";
> 
> At this point I would expect the values returned in @time and $time to
> be in the Eastern timezone. This works no problem in a non-mod_perl'd
> environment but not under mod_perl.
 
This works fine for me. I tested under vanilla CGI, Apache::PerlRun, and
Apache::Registry.
 
> Would it be beneficial to put code in a PerlFixUpHandler that sets the
> time zone data?
 
I doubt it. If setting the time zone RIGHT before running localtime
doesn't help, I don't think setting it long before will.
 
The only thing I can think of that might be causing this is if
PerlTaintCheck is turned on in the mod_perl, and it doesn't like
something about the environment being monkeyed with.
 
What's the output when you run this?
 
  #!/usr/bin/env perl
  use strict;
  use warnings;
  use POSIX qw(tzset);
  
  $ENV{'TZ'} = 'US/Eastern';
  POSIX::tzset();
  my $eastern = localtime();
  
  $ENV{'TZ'} = 'US/Pacific';
  POSIX::tzset();
  my $pacific = localtime();
   
  print "Content-type: text/plain\n\n",
        "Eastern: $eastern\n",
        "Pacific: $pacific\n";
  
Regards,
Philip