;
my $max_marker_len = max map { length $_ } ( '$INC[999]', keys %$seen_markers );
+# Note - must be less than 76 chars wide to account for the diag() prefix
my $discl = <<'EOD';
-List of loadable modules within both the core and *OPTIONAL* dependency chains
+List of loadable modules within both *OPTIONAL* and core dependency chains
present on this system (modules sourced from ./blib, ./lib, ./t, and ./xt
with versions identical to their parent namespace were omitted for brevity)
diag $final_out;
+# *very* large printouts may not finish flushing before the test exits
+# injecting a <testname> ... ok in the middle of the diag
+# http://www.cpantesters.org/cpan/report/fbdac74c-35ca-11e6-ab41-c893a58a4b8c
+select( undef, undef, undef, 0.2 );
+
exit 0;
# File::Spec's rel2abs does not resolve symlinks
# we *need* to look at the filesystem to be sure
- my $abs_fn = abs_path($_[0]);
+ #
+ # But looking at the FS for non-existing basenames *may*
+ # throw on some OSes so be extra paranoid:
+ # http://www.cpantesters.org/cpan/report/26a6e42f-6c23-1014-b7dd-5cd275d8a230
+ #
+ my $abs_fn = eval { abs_path($_[0]) } || '';
- if ( $^O eq 'MSWin32' and $abs_fn ) {
+ if ( $abs_fn and $^O eq 'MSWin32' ) {
# sometimes we can get a short/longname mix, normalize everything to longnames
- $abs_fn = Win32::GetLongPathName($abs_fn);
+ $abs_fn = Win32::GetLongPathName($abs_fn)
+ if -e $abs_fn;
# Fixup (native) slashes in Config not matching (unixy) slashes in INC
$abs_fn =~ s|\\|/|g;
my $abs_fn = abs_unix_path($fn);
- if (my $p = subpath_of_known_path( $fn ) ) {
+ if ($abs_fn and my $p = subpath_of_known_path( $fn ) ) {
$abs_fn =~ s| (?<! / ) $|/|x
if -d $abs_fn;