# Test that MANIFEST uses tabs - not spaces - after the name of the file. while (<$m>) { chomp; unless( /\s/ ) { push @files, $_; # no need for further tests on lines without whitespace (i.e., filename only) next; } my ($file, $separator) = /^(\S+)(\s+)/; push @files, $file; isnt($file, undef, "Line $. doesn't start with a blank") or next; # Remember, we're running from t/ ok(-f "../$file", "File $file exists");