$NetBSD: patch-ab,v 1.1 2008/08/07 23:26:01 he Exp $

--- lib/Pod/Tree/HTML.pm.orig	2007-06-24 16:51:41.000000000 +0200
+++ lib/Pod/Tree/HTML.pm
@@ -5,6 +5,7 @@
 use strict;
 use HTML::Stream;
 use IO::File;
+use IO::String;
 use Pod::Tree;
 use Text::Template;
 
@@ -120,7 +121,12 @@ sub _resolve_dest
     isa($dest, 'IO::File'    ) and return ($dest, new HTML::Stream $dest);
     can($dest, 'print'       ) and return ($dest, new HTML::Stream $dest);
 
-    if (ref $dest eq 'SCALAR' or ref $dest eq '' and $dest)
+    if (ref $dest eq 'SCALAR')
+    {
+	my $fh = new IO::String $dest;
+	return ($fh, new HTML::Stream $fh);
+    }
+    if (ref $dest eq '' and $dest)
     {
 	my $fh = new IO::File;
 	$fh->open($dest, '>') or die "Pod::Tree::HTML::new: Can't open $dest: $!\n";
