utf8 encoding in helper script

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