debugging

Author: khwilliamson

.github/workflows/testsuite.yml

@@ -289,7 +289,7 @@ jobs:
           LD_LIBRARY_PATH=`pwd` ./perl -Ilib -e 'use Config; print Config::config_sh'
       - name: Run Tests
         run: |
-          LD_LIBRARY_PATH=`pwd` MALLOC_PERTURB_=254 MALLOC_CHECK_=3 TEST_JOBS=2 make -j2 test
+          LD_LIBRARY_PATH=`pwd` MALLOC_PERTURB_=254 MALLOC_CHECK_=3 TEST_JOBS=2 ./perl t/harness
       - name: git clean
         run: |
           git clean -dxf
@@ -353,7 +353,7 @@ jobs:
           git config diff.renameLimit 999999
       - name: Configure
         run: |
-          ./Configure -des -Dusedevel ${{ matrix.CONFIGURE_ARGS }} -Dprefix="$HOME/perl-blead"
+          ./Configure -des -DDEBUGGING -Dusedevel ${{ matrix.CONFIGURE_ARGS }} -Dprefix="$HOME/perl-blead"
       - name: Build
         run: |
           MALLOC_PERTURB_=254 MALLOC_CHECK_=3 make -j2
@@ -402,7 +402,7 @@ jobs:
           LD_LIBRARY_PATH=`pwd` ./perl -Ilib -e 'use Config; print Config::config_sh'
       - name: Run Tests
         run: |
-          MALLOC_PERTURB_=254 MALLOC_CHECK_=3 TEST_JOBS=2 make -j2 test
+          MALLOC_PERTURB_=254 MALLOC_CHECK_=3 TEST_JOBS=2 make -j2 test_harness
       - name: Install
         run: |
           MALLOC_PERTURB_=254 MALLOC_CHECK_=3 TEST_JOBS=2 make -j2 install
@@ -451,7 +451,7 @@ jobs:
           ./perl -Ilib -e 'use Config; print Config::config_sh'
       - name: Run Tests
         run: |
-          MALLOC_PERTURB_=254 MALLOC_CHECK_=3 TEST_JOBS=2 make -j2 test
+          TEST_JOBS=2 ./perl t/harness
 
   #         _         _
   # __ __ _(_)_ _  __| |_____ __ _____

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;
     POSIX::tzset();
@@ -293,4 +294,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 );
 }

locale.c

@@ -8268,7 +8268,9 @@ but sufficiently negative values (for earlier than 1900) may have different
 results on different systems and locales.  Some libc implementations may know
 when a given locale adopted the Greorian calendar, and adjust for that.
 Others will not.  (And some countries didn't adopt the Gregorian calendar
-until after 1900.)
+until after 1900.)  Probably all implementations assume modern time zones go
+back forever, before they were invented starting in the last half of the 19th
+century.
 
 The treatment of the C<isdst> field has varied over previous Perl versions,
 and has been buggy (both by perl and by some libc implementations), but is now