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 (file)
--- 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;