Re: [perl #23463]: compiler version on sparc/netbsd

[p5sagit/p5-mst-13.2.git] / t / op / write.t

diff --git a/t/op/write.t b/t/op/write.t
index 1e2f150..cbf00de 100755 (executable)
--- a/t/op/write.t
+++ b/t/op/write.t
@@ -30,6 +30,7 @@ now @<<the@>>>> for all@|||||men to come @<<<<
 .
 
 open(OUT, '>Op_write.tmp') || die "Can't create Op_write.tmp";
+END { 1 while unlink 'Op_write.tmp' }
 
 $fox = 'foxiness';
 $good = 'good';
@@ -306,7 +307,7 @@ $v
 # 14..49: scary format testing from Merijn H. Brand
 
 my $test = 14;
-my $tests = 35;
+my $tests = 49;
 
 if ($^O eq 'VMS' || $^O eq 'MSWin32' || $^O eq 'dos' || $^O eq 'MacOS' ||
     ($^O eq 'os2' and not eval '$OS2::can_fork')) {