t/TEST: warn about unknown files deparse-skips.txt

In ./TEST -deparse, when reading Porting/deparse-skips.txt, emit a warning
for each excluded file which no longer exists.

Also, move the scope of $in to just the sub that uses it.

1 files changed, 2 insertions, 1 deletions

diff --git a/t/TEST b/t/TEST
index 0c16dd2386..8509b5659a 100755
--- a/t/TEST
+++ b/t/TEST
@@ -962,7 +962,6 @@ sub _cleanup_valgrind {
 }
 
 # Generate regexps of known bad filenames / skips from Porting/deparse-skips.txt
-my $in;
 
 sub _process_deparse_config {
     my @deparse_failures;
@@ -976,6 +975,7 @@ sub _process_deparse_config {
         return;
     }
 
+    my $in;
     while(<$skips>) {
         if (/__DEPARSE_FAILURES__/) {
             $in = \@deparse_failures; next;
@@ -991,6 +991,7 @@ sub _process_deparse_config {
         next unless $_;
 
         push @$in, $_;
+	warn "WARNING: $f:$.: excluded file doesn't exist: $_\n" unless -f $_;
     }
 
     for my $f (@deparse_failures, @deparse_skips) {