defined @$foo and defined %$bar should be subject to strict 'refs';

p4raw-id: //depot/perl@29900

1 files changed, 14 insertions, 0 deletions

diff --git a/t/lib/strict/refs b/t/lib/strict/refs
index dee95e8c8f..6237d6d3a9 100644
--- a/t/lib/strict/refs
+++ b/t/lib/strict/refs
@@ -308,3 +308,17 @@ my $x = "foo";
 defined $$x;
 EXPECT
 Can't use string ("foo") as a SCALAR ref while "strict refs" in use at - line 4.
+########
+# [perl #37886] strict 'refs' doesn't apply inside defined
+use strict 'refs';
+my $x = "foo";
+defined @$x;
+EXPECT
+Can't use string ("foo") as an ARRAY ref while "strict refs" in use at - line 4.
+########
+# [perl #37886] strict 'refs' doesn't apply inside defined
+use strict 'refs';
+my $x = "foo";
+defined %$x;
+EXPECT
+Can't use string ("foo") as a HASH ref while "strict refs" in use at - line 4.