[perl #45823] [PATCH] v5.8.8. pod2html: <a name="example"> anchor, but <a href="item_...

[p5sagit/p5-mst-13.2.git] / lib / Pod / t / text.t

diff --git a/lib/Pod/t/text.t b/lib/Pod/t/text.t
index fd25c78..cbe3782 100644 (file)
--- a/lib/Pod/t/text.t
+++ b/lib/Pod/t/text.t
@@ -1,9 +1,9 @@
 #!/usr/bin/perl -w
-# $Id: text.t,v 1.4 2006-01-20 21:20:58 eagle Exp $
+# $Id: text.t,v 1.5 2006-01-28 22:31:50 eagle Exp $
 #
 # text.t -- Additional specialized tests for Pod::Text.
 #
-# Copyright 2002, 2004 by Russ Allbery <rra@stanford.edu>
+# Copyright 2002, 2004, 2006 by Russ Allbery <rra@stanford.edu>
 #
 # This program is free software; you may redistribute it and/or modify it
 # under the same terms as Perl itself.
@@ -39,7 +39,9 @@ while (<DATA>) {
         print TMP $_;
     }
     close TMP;
-    $parser->parse_from_file ('tmp.pod', 'out.tmp');
+    open (OUT, '> out.tmp') or die "Cannot create out.tmp: $!\n";
+    $parser->parse_from_file ('tmp.pod', \*OUT);
+    close OUT;
     open (TMP, 'out.tmp') or die "Cannot open out.tmp: $!\n";
     my $output;
     {