Gecko [ www.blackthorn-inc.com ]

Linux cpanel2.daytoncreative.net 2.6.32-754.29.2.el6.x86_64 #1 SMP Tue May 12 17:39:04 UTC 2020 x86_64
Apache/2.4.43 (cPanel) OpenSSL/1.1.1g mod_bwlimited/1.4
Server IP : 70.62.220.67 & Your IP : 216.73.216.193
Domains : Cant Read [ /etc/named.conf ]
User : michaelgreg

Name	Size	Permission	Date
FindExt.t	2.62 KB	-r--r--r--	2014-12-27 11:49
args_assert.t	1.39 KB	-r--r--r--	2014-12-27 11:49
authors.t	462 B	-r--r--r--	2014-12-27 11:49
bincompat.t	446 B	-r--r--r--	2014-12-27 11:49
checkcase.t	1.17 KB	-r--r--r--	2014-12-27 11:49
checkcfgvar.t	1.36 KB	-r--r--r--	2014-12-27 11:49
cmp_version.t	486 B	-r--r--r--	2014-12-27 11:49
copyright.t	1.88 KB	-r--r--r--	2014-12-27 11:49
corelist.t	532 B	-r--r--r--	2015-01-28 21:08
customized.dat	3.13 KB	-r--r--r--	2015-01-31 22:00
customized.t	3.02 KB	-r--r--r--	2014-12-27 11:49
diag.t	23.62 KB	-r--r--r--	2015-01-15 22:12
dual-life.t	1.63 KB	-r--r--r--	2014-12-27 11:49
exec-bit.t	1.81 KB	-r--r--r--	2014-12-27 11:49
extrefs.t	3.32 KB	-r--r--r--	2014-12-27 11:49
filenames.t	1.9 KB	-r--r--r--	2014-12-27 11:49
globvar.t	1.82 KB	-r--r--r--	2014-12-27 11:49
known_pod_issues.dat	9.81 KB	-r--r--r--	2015-01-17 16:54
maintainers.t	884 B	-r--r--r--	2014-12-27 11:49
manifest.t	3.05 KB	-r--r--r--	2014-12-27 11:49
pending-author.t	1.75 KB	-r--r--r--	2014-12-27 11:49
perlfunc.t	1.39 KB	-r--r--r--	2014-12-27 11:49
pod_rules.t	1.04 KB	-r--r--r--	2014-12-27 11:49
podcheck.t	75.45 KB	-r--r--r--	2014-12-27 12:37
readme.t	2.22 KB	-r--r--r--	2014-12-27 11:49
regen.t	2.04 KB	-r--r--r--	2014-12-27 12:37
ss_dup.t	863 B	-r--r--r--	2014-12-27 11:49
test_bootstrap.t	2.42 KB	-r--r--r--	2014-12-27 11:49
utils.t	3.3 KB	-r--r--r--	2014-12-27 11:49

Rename

#!/perl -w
use 5.010;
use strict;

# This tests properties of dual-life modules:
#
# * Are all dual-life programs being generated in utils/?

chdir 't';
require './test.pl';

use Config;
if ( $Config{usecrosscompile} ) {
  skip_all( "Not all files are available during cross-compilation" );
}

plan('no_plan');

use File::Basename;
use File::Find;
use File::Spec::Functions;

# Exceptions that are found in dual-life bin dirs but aren't
# installed by default; some occur only during testing:
my $not_installed = qr{^(?:
  \.\./cpan/Encode/bin/u(?:cm(?:2table|lint|sort)|nidump)
   |
  \.\./cpan/Module-(?:Metadata|Build)
                               /MB-[\w\d]+/Simple/(?:test_install/)?bin/.*
)\z}ix;

my %dist_dir_exe;

$dist_dir_exe{lc "podselect.PL"} = "../cpan/Pod-Parser/podselect";
$dist_dir_exe{lc "podchecker.PL"} = "../cpan/Pod-Checker/podchecker";
$dist_dir_exe{lc "pod2usage.PL"} = "../cpan/Pod-Usage/pod2usage";

foreach (qw (pod2man pod2text)) {
    $dist_dir_exe{lc "$_.PL"} = "../cpan/podlators/$_";
};
$dist_dir_exe{'pod2html.pl'} = '../ext/Pod-Html';

my @programs;

find(
  { no_chidr => 1, wanted => sub {
    my $name = $File::Find::name;
    return if $name =~ /blib/;
    return unless $name =~ m{/(?:bin|scripts?)/\S+\z} && $name !~ m{/t/};

push @programs, $name;
  }},
  qw( ../cpan ../dist ../ext ),
);

my $ext = $^O eq 'VMS' ? '.com' : '';

for my $f ( @programs ) {
  $f =~ s/\.\z// if $^O eq 'VMS';
  next if $f =~ $not_installed;
  my $bn = basename($f);
  if(grep { /\A(?i:$bn)\z/ } keys %dist_dir_exe) {
    ok( -f "$dist_dir_exe{lc $bn}$ext", "$f$ext");
  } else {
    ok( -f catfile('..', 'utils', "$bn$ext"), "$f$ext" );
  }
}