Permalink
Browse files

silently skip transcoding step if Pod::Simple is passed a character s…

…tring rather than a byte string
  • Loading branch information...
1 parent 241c801 commit 903da7cff7e67411db7b21623bc4b5509a9f2303 @grantm grantm committed May 30, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 lib/Pod/Simple/TranscodeSmart.pm
@@ -32,7 +32,7 @@ sub make_transcoder {
my $x;
return sub {
foreach $x (@_) {
- $x = Encode::decode($e, $x);
+ $x = Encode::decode($e, $x) unless Encode::is_utf8($x);
}
return;
};

0 comments on commit 903da7c

Please sign in to comment.