if \$running_under_some_shell;
!GROK!THIS!
+print OUT "\n# perlivp $^V\n";
+
# In the following, perl variables are not expanded during extraction.
print OUT <<'!NO!SUBS!';
-# perlivp V 0.02
-
-
sub usage {
warn "@_\n" if @_;
print << " EOUSAGE";
!NO!SUBS!
print OUT <<"!GROK!THIS!";
-my \$ivp_VERSION = $];
+my \$ivp_VERSION = "$]";
!GROK!THIS!
print OUT <<'!NO!SUBS!';
next if ($_ eq 'threads');
next if ($_ eq 'threads/shared');
}
- next if ($_ eq 'Devel/DProf');
+ # that's a distribution name, not a module name
+ next if /^IO_Compress_(?:Zlib|Base)$/;
+ next if $_ eq 'Devel/DProf';
+ # test modules
+ next if $_ eq 'XS/APItest';
+ next if $_ eq 'XS/Typemap';
# VMS$ perl -e "eval ""require \""Devel/DProf.pm\"";"" print $@"
# \NT> perl -e "eval \"require 'Devel/DProf.pm'\"; print $@"
# DProf: run perl with -d to use DProf.
$version = undef;
@missing = ();
@missing = $installed -> validate($_);
+
+ # .bs files are optional
+ @missing = grep { ! /\.bs$/ } @missing;
+ # man files are often compressed
+ @missing = grep { ! ( -s "$_.gz" || -s "$_.bz2" ) } @missing;
+
if ($#missing >= 0) {
print "# file",+($#missing == 0) ? '' : 's'," missing from installation:\n";
print '# ',join(' ',@missing),"\n";