Add protection to _replace_sub

Fix #59
geofffranks · Apr 25, 2024 · fbab474 · fbab474
1 parent 0ef70c5
commit fbab474
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/Test/MockModule.pm b/lib/Test/MockModule.pm
@@ -211,7 +211,7 @@ sub _replace_sub {
 		# save a copy of all non-code slots
 		my %slot;
 		foreach (qw(ARRAY FORMAT HASH IO SCALAR)) {
-			next unless defined(my $elem = *{$symbols{$sub}}{$_});
+			next unless defined $symbols{$sub} && defined(my $elem = *{$symbols{$sub}}{$_});
 			$slot{$_} = $elem;
 		}