From 8eb28a70b2ec19f2782a68fd1ccf1a9a24131140 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 23 Oct 2001 22:19:34 +0000
Subject: Negation and Unicode: sort of solves 20010303.010, except not quite
 like reported in the Subject (Perl_warner is still utf8-ignorant).

p4raw-id: //depot/perl@12614
---
 t/lib/warnings/sv | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 't/lib')

diff --git a/t/lib/warnings/sv b/t/lib/warnings/sv
index 9af58c25e0..29bef82e09 100644
--- a/t/lib/warnings/sv
+++ b/t/lib/warnings/sv
@@ -326,3 +326,11 @@ no warnings 'numeric' ;
 $a = "\x{100}\x{200}" * 42;
 EXPECT
 Argument "\x{100}\x{200}" isn't numeric in multiplication (*) at - line 3.
+########
+# sv.c
+use warnings 'numeric' ;
+$a = "\x{100}\x{200}"; $a = -$a;
+no warnings 'numeric' ;
+$a = "\x{100}\x{200}"; $a = -$a;
+EXPECT
+Argument "\x{100}\x{200}" isn't numeric in negation (-) at - line 3.
-- 
cgit v1.2.1