RT #75812: apply get magic before checking flags, PVX

The code was checking flags with applying any get magic, so when a
match was doing putting a numeric string into $1, none of the flags
checked were set, so producing the "non-numeric process ID" error.

1 files changed, 8 insertions, 1 deletions

diff --git a/t/op/kill0.t b/t/op/kill0.t
index eadf15dc36..d3ef8f7799 100644
--- a/t/op/kill0.t
+++ b/t/op/kill0.t
@@ -14,7 +14,7 @@ BEGIN {
 
 use strict;
 
-plan tests => 5;
+plan tests => 6;
 
 ok( kill(0, $$), 'kill(0, $pid) returns true if $pid exists' );
 
@@ -43,3 +43,10 @@ for my $case ( @bad_pids ) {
   like( $@, qr/^Can't kill a non-numeric process ID/, "dies killing $name pid");
 }
 
+# Verify that killing a magic variable containing a number doesn't
+# trigger the above
+{
+  my $x = $$ . " ";
+  $x =~ /(\d+)/;
+  ok(eval { kill 0, $1 }, "can kill a number string in a magic variable");
+}