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

--- t/html.t.orig	2007-06-24 16:57:52.000000000 +0200
+++ t/html.t
@@ -3,6 +3,7 @@
 use strict;
 use diagnostics;
 use HTML::Stream;
+use IO::String;
 use Pod::Tree;
 use Pod::Tree::HTML;
 
@@ -97,7 +98,7 @@ sub Dest1
        $html->translate;
 
     my $expected = ReadFile("$Dir/paragraph.exp");
-       $$actual eq $expected or Not; OK;
+       ${$actual->string_ref} eq $expected or Not; OK;
 }
 
 sub Dest2
@@ -122,7 +123,7 @@ sub Dest3
        $html->translate;
 
     my $expected = ReadFile("$Dir/paragraph.exp");
-    my $actual   = $$string;
+    my $actual   = ${$string->string_ref};
        $actual eq $expected or Not; OK;
 }
 
@@ -265,19 +266,3 @@ sub WriteFile
     close FILE;
     chmod 0644, $file or die "Can't chmod $file: $!\n";
 }
-
-
-package IO::String;
-
-sub new 
-{
-    my $self = '';
-    bless \$self, shift;
-}
-
-sub print 
-{
-    my $self = shift;
-    $$self .= join('', @_);
-}
-    
