Modified unlink_all in t/test.pl to return the count of unlinked files This will...

diff --git a/t/test.pl b/t/test.pl
index bfda110..a558820 100644 (file)
--- a/t/test.pl
+++ b/t/test.pl
@@ -630,10 +630,16 @@ sub which_perl {
 }
 
 sub unlink_all {
+    my $count = 0;
     foreach my $file (@_) {
         1 while unlink $file;
-        _print_stderr "# Couldn't unlink '$file': $!\n" if -f $file;
+       if( -f $file ){
+           _print_stderr "# Couldn't unlink '$file': $!\n";
+       }else{
+           ++$count;
+       }
     }
+    $count;
 }
 
 my %tmpfiles;