This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence an expected warning (when playing with utf8ness and string overloading)
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 24 Oct 2006 14:42:13 +0000 (14:42 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 24 Oct 2006 14:42:13 +0000 (14:42 +0000)
p4raw-id: //depot/perl@29099

t/uni/overload.t

index 042a45d..e4f4e13 100644 (file)
@@ -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;