Better argumetns to binmode()

davorg-cpan · Oct 3, 2018 · 2763789 · 2763789
1 parent 84987b2
commit 2763789
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/eg/check_feed.pl b/eg/check_feed.pl
@@ -15,8 +15,8 @@ =head1 DESCRIPTION
 my $src = shift;
 
 die "Usage: $0 FILE|URL\n" if not $src;
-binmode STDOUT, 'utf8';
-binmode STDERR, 'utf8';
+binmode STDOUT, ':encoding(UTF-8)';
+binmode STDERR, ':encoding(UTF-8)';
 
 my $source = $src;
 if ($src =~ m{^https?://}) {