gmtime

Author: khwilliamson

ext/POSIX/t/time.t

@@ -271,7 +271,8 @@ SKIP: {   # GH #23878: test that dst spring forward works properly; use a
     print STDERR __FILE__, ": ", __LINE__, ": about to call tzset\n";
     POSIX::tzset();
     print STDERR __FILE__, ": ", __LINE__, ": finished with tzset\n";
-    my $t = 1741510800;     # an hour before time should have changed
+    my $from_gmt = 8 * 60 * 60;
+    my $t = 1741510800 - $from_gmt;     # an hour before time should have changed
     my $t_minus_12_hours = $t - 12 * 60 * 60;;
     print STDERR __FILE__, ": ", __LINE__, ": calling offset for $t_minus_12_hours\n";
     use Data::Dumper;
@@ -298,8 +299,17 @@ SKIP: {   # GH #23878: test that dst spring forward works properly; use a
                );
     $^D |= 0x04000000|0x00100000 ;
     for (my $i = 0; $i < @spring; $i++) {
-        print STDERR __FILE__, ": ", __LINE__, ": calling strftime with\n", Dumper $spring[$i], localtime $t + $spring[$i][0];
-        is(POSIX::strftime("%F %T%z", localtime $t + $spring[$i][0]),
+        my @gmtime = gmtime($t + $spring[$i][0]);
+        print STDERR __FILE__, ": ", __LINE__, ": calling strftime with\n", Dumper $spring[$i], \@gmtime;
+        $gmtime[-1] = -1;
+        my $returned_name = POSIX::strftime("%Z", @gmtime);
+        print STDERR __FILE__, ": ", __LINE__, ": zone=$zone_name, returned=$returned_name\n";
+        if ($zone_name ne $returned_name) {
+            @gmtime = gmtime($t + 3600 + $spring[$i][0]);
+            $gmtime[-1] = 1;
+        }
+        print STDERR __FILE__, ": ", __LINE__, ": calling strftime with\n", Dumper $spring[$i], \@gmtime;
+        is(POSIX::strftime("%F %T%z", @gmtime),
            $spring[$i][1], $spring[$i][2]);
     }
     $^D &= ~(67108864|1048576 );