From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 24 Oct 2006 14:42:13 +0000 (+0000)
Subject: Silence an expected warning (when playing with utf8ness and string overloading)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b3c6e229f507f518b166d131feebc9cf9517c1ae;p=p5sagit%2Fp5-mst-13.2.git

Silence an expected warning (when playing with utf8ness and string overloading)

p4raw-id: //depot/perl@29099
---

diff --git a/t/uni/overload.t b/t/uni/overload.t
index 042a45d..e4f4e13 100644
--- a/t/uni/overload.t
+++ b/t/uni/overload.t
@@ -162,6 +162,7 @@ foreach my $operator ('print', 'syswrite', 'syswrite len', 'syswrite off',
 	my $u = UTF8Toggle->new("$pad\311\n$trail");
 	my $l = UTF8Toggle->new("$pad\351\n$trail", 1);
 	if ($operator eq 'print') {
+	    no warnings 'utf8';
 	    print $fh $u;
 	    print $fh $u;
 	    print $fh $u;