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 (file)
--- 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;