X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FPod%2Ft%2Ftermcap.t;h=f93b82e17e32891f35bc67319a5cd09b101f36fe;hb=27ad5321b118eacf9985e1f1cad4e4c2a9f624d1;hp=f5e5b39f525db66f22a4860bb76bfc6799fa45c1;hpb=b7ae008f237ac1d94314836a23dc578e678c9243;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Pod/t/termcap.t b/lib/Pod/t/termcap.t
index f5e5b39..f93b82e 100755
--- a/lib/Pod/t/termcap.t
+++ b/lib/Pod/t/termcap.t
@@ -1,9 +1,9 @@
 #!/usr/bin/perl -w
-# $Id: termcap.t,v 1.2 2005/11/28 23:38:02 eagle Exp $
+# $Id: termcap.t,v 1.4 2006-01-28 22:31:50 eagle Exp $
 #
 # termcap.t -- Additional specialized tests for Pod::Text::Termcap.
 #
-# 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.
@@ -34,6 +34,7 @@ use Pod::Text::Termcap;
 $loaded = 1;
 print "ok 1\n";
 
+my $parser = Pod::Text::Termcap->new or die "Cannot create parser\n";
 my $n = 2;
 while (<DATA>) {
     next until $_ eq "###\n";
@@ -43,9 +44,9 @@ while (<DATA>) {
         print TMP $_;
     }
     close TMP;
-    my $parser = Pod::Text::Termcap->new or die "Cannot create parser\n";
-    $parser->parse_from_file ('tmp.pod', 'out.tmp');
-    undef $parser;
+    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;
     {