add tests for #21661

Author: tonycoz

t/re/pat.t

@@ -28,7 +28,7 @@ skip_all_without_unicode_tables();
 my $has_locales = locales_enabled('LC_CTYPE');
 my $utf8_locale = find_utf8_ctype_locale();
 
-plan tests => 1265;  # Update this when adding/deleting tests.
+plan tests => 1267;  # Update this when adding/deleting tests.
 
 run_tests() unless caller;
 
@@ -2512,6 +2512,22 @@ SKIP:
         ok($str =~ s/$copy/PQR/, 'replaced $copy with PQR');
         is($str, "PQR", 'final string should be PQR');
     }
+    {
+        # github #21661
+        fresh_perl_is(<<'PROG', <<'EXPECT', {}, "double-free on fatal warn with existing error");
+use warnings FATAL => qw(all);
+/() {}/X;
+PROG
+Unknown regexp modifier "/X" at - line 2, at end of line
+Unescaped left brace in regex is passed through in regex; marked by <-- HERE in m/() { <-- HERE }/ at - line 2.
+Execution of - aborted due to compilation errors.
+EXPECT
+        fresh_perl_is(<<'PROG', "", {}, "leak if __WARN__ handler dies");
+use warnings;
+local $SIG{__WARN__} = sub { die; };
+eval "qr/()x{/;" for 1..10;
+PROG
+    }
 } # End of sub run_tests
 
 1;