[perl #127122] warn on unless (assignment) when syntax warnings are on

Previously the assignment was hidden by the not op wrapped around the
condition, but newCONDOP() is sufficiently flexible that it isn't
needed.

1 files changed, 11 insertions, 0 deletions

diff --git a/t/lib/warnings/op b/t/lib/warnings/op
index 89de94f4bc..8256c23c54 100644
--- a/t/lib/warnings/op
+++ b/t/lib/warnings/op
@@ -123,6 +123,17 @@ no warnings 'syntax' ;
 EXPECT
 ########
 # op.c
+# NAME unless with assignment as condition
+use warnings 'syntax';
+1 unless $a = 1;
+unless ($a = 1) {
+    1;
+}
+EXPECT
+Found = in conditional, should be == at - line 3.
+Found = in conditional, should be == at - line 4.
+########
+# op.c
 use warnings 'syntax' ;
 @a[3];
 @a{3};