+fresh_perl_like
+ '
+ BEGIN { *CORE::GLOBAL::kill = sub {} }
+ require sigtrap;
+ import sigtrap "INT";
+ sub { $SIG{INT}->("INT") } -> (3)
+ ',
+ qr/\$ = main::__ANON__\(3\) called/,
+ { stderr => 1 },
+ "stack-trace does not try to modify read-only arguments"
+;
+