todo tests for GH 15545 (my sub using our sub segfaults)

Author: 1-1sam

t/run/todo.t

@@ -192,6 +192,26 @@ TODO: {
     "", { eval $switches }, "[GH 10194]");
 }
 
+TODO: {
+    local $::TODO = 'GH 15545';
+    fresh_perl(<<~'EOF', {});
+        our sub speak {}
+        my sub meow {
+            speak();
+        }
+        EOF
+    is($?, 0, 'No segfault; GH 15545');
+    fresh_perl(<<~'EOF', {});
+        our sub speak {}
+        package Cat {
+            my sub meow {
+                speak();
+            }
+        }
+        EOF
+    is($?, 0, 'No segfault; GH 15545');
+}
+
 TODO: {
     local $::TODO = "GH 16008";
     my $results = fresh_perl(<<~'EOF', {} );