From: Stas Bekman <stas@stason.org>
Date: Thu, 28 Mar 2002 10:13:45 +0000 (+0800)
Subject: Re: Smoke 15526 /pro/3gl/CPAN/perl-current
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=29d6d7d54cac14b9377112773969cf75bbe7780f;p=p5sagit%2Fp5-mst-13.2.git

Re: Smoke 15526 /pro/3gl/CPAN/perl-current
Message-ID: <3CA27C59.4020209@stason.org>

Temp file cleanup.

p4raw-id: //depot/perl@15567
---

diff --git a/lib/Pod/t/pod2html-lib.pl b/lib/Pod/t/pod2html-lib.pl
index c3d96ae..3a83bd1 100644
--- a/lib/Pod/t/pod2html-lib.pl
+++ b/lib/Pod/t/pod2html-lib.pl
@@ -33,9 +33,12 @@ sub convert_n_test {
     open my $in, $outfile or die "cannot open $outfile: $!";
     my $result = <$in>;
     close $in;
+    1 while unlink $outfile;
 
     is($expect, $result, $testname);
-
+    # pod2html creates these
+    1 while unlink "pod2htmd.x~~";
+    1 while unlink "pod2htmi.x~~";
 }
 
 1;