diff --git a/lib/Markdown/Pod.pm b/lib/Markdown/Pod.pm index 53e01da..86a28d1 100644 --- a/lib/Markdown/Pod.pm +++ b/lib/Markdown/Pod.pm @@ -28,6 +28,7 @@ sub markdown_to_pod { my $capture = q{}; open my $fh, '>', \$capture or die $!; + bless $fh, 'IO::File'; # A.Speer: Compatibility with older Perl versions if ($encoding) { my $found = first { $_ eq $encoding } Encode->encodings;