time.t debug

khwilliamson · khwilliamson · commit a0972ed38cdc · 2025-11-20T18:26:21.000-07:00
diff --git a/ext/POSIX/t/time.t b/ext/POSIX/t/time.t
@@ -268,6 +268,7 @@ SKIP: {   # GH #23878: test that dst spring forward works properly; use a
           # locale that MS narcissism should be able to handle
     my $skip_count = 9;
     skip "No mktime()", $skip_count if $Config{d_mktime} ne 'define';
+    $^D |= 0x04000000|0x00100000 ;
     my $locale = "PST8PDT";
     $ENV{TZ} = $locale;
     print STDERR __FILE__, ": ", __LINE__, ": about to call tzset\n";
@@ -303,4 +304,5 @@ SKIP: {   # GH #23878: test that dst spring forward works properly; use a
         is(POSIX::strftime("%F %T%z", localtime $t + $spring[$i][0]),
            $spring[$i][1], $spring[$i][2]);
     }
+    $^D &= ~(67108864|1048576 );
 }

Original file line number	Diff line number	Diff line change
`@@ -268,6 +268,7 @@ SKIP: { # GH #23878: test that dst spring forward works properly; use a`
`268`	`268`	`# locale that MS narcissism should be able to handle`
`269`	`269`	`my $skip_count = 9;`
`270`	`270`	`skip "No mktime()", $skip_count if $Config{d_mktime} ne 'define';`
	`271`	`+ $^D \|= 0x04000000\|0x00100000 ;`
`271`	`272`	`my $locale = "PST8PDT";`
`272`	`273`	`$ENV{TZ} = $locale;`
`273`	`274`	`print STDERR __FILE__, ": ", __LINE__, ": about to call tzset\n";`
`@@ -303,4 +304,5 @@ SKIP: { # GH #23878: test that dst spring forward works properly; use a`
`303`	`304`	`is(POSIX::strftime("%F %T%z", localtime $t + $spring[$i][0]),`
`304`	`305`	`$spring[$i][1], $spring[$i][2]);`
`305`	`306`	`}`
	`307`	`+ $^D &= ~(67108864\|1048576 );`
`306`	`308`	`}`