Commit b7ca76f6fc for perl

commit b7ca76f6fcc9f7a26cebca4c60da048e8ef2d302
Author: Tony Cook <tony@develop-help.com>
Date:   Wed Sep 23 08:14:13 2026 +1000

    Devel-PPPort: add tests for sv_set_undef() bug #24661

    Next step will be fixes.

diff --git a/dist/Devel-PPPort/parts/inc/Sv_set b/dist/Devel-PPPort/parts/inc/Sv_set
index 59615bcdd2..afab2dbcc9 100644
--- a/dist/Devel-PPPort/parts/inc/Sv_set
+++ b/dist/Devel-PPPort/parts/inc/Sv_set
@@ -243,7 +243,16 @@ sv_setsv_compile_test(sv)
 void
 sv_set_undef(SV *sv)

-=tests plan => 18
+bool
+sv_set_undef_check_flags()
+        PREINIT:
+          SV *sv = sv_newmortal();
+        CODE:
+          sv_set_undef(sv);
+          RETVAL = SvTEMP(sv) != 0;
+        OUTPUT: RETVAL
+
+=tests plan => 19

 my $foo = 5;
 is(&Devel::PPPort::TestSvUV_set($foo, 12345), 42);
@@ -292,6 +301,9 @@ my $quux_destroyed;
     is $quux_destroyed, 1, "quux destroyed";
 }

+ok(Devel::PPPort::sv_set_undef_check_flags(),
+   "check flags are handled correctly");
+
 package TieScalarCounter;

 sub TIESCALAR {