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
blib	[ DIR ]	drwxr-xr-x	2016-10-10 17:36
t	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
ChangeLog	1.75 KB	-r--r--r--	2014-12-27 11:48
Errno.pm	6.33 KB	-rw-r--r--	2016-10-10 17:36
Errno_pm.PL	11.86 KB	-r--r--r--	2015-01-31 19:48
Makefile	23.17 KB	-rw-r--r--	2016-10-10 17:36
Makefile.PL	1.15 KB	-r--r--r--	2014-12-27 11:48
arch.txt	38 B	-rw-r--r--	2016-10-10 17:36
pm_to_blib	0 B	-rw-r--r--	2016-10-10 17:36

Rename

use ExtUtils::MakeMaker;
use Config;

my $arch = "$Config{'archname'}-$Config{'osvers'}";
my $got = "";
if (-e 'arch.txt') {
    open my $in, "<", "arch.txt" or die "Can't read 'arch.txt': $!";
    $got = <$in>;
    close $in;
}
if ($got ne $arch) {
    if (-e "Errno.pm") {
        print "Removing old 'Errno.pm'\n";
        unlink "Errno.pm" 
            or die "Failed to remove out of date 'Errno.pm': $!";
    }
    open my $out, ">", "arch.txt" or die "Can't write 'arch.txt': $!";
    print $out $arch;
    close $out;
}

WriteMakefile(
    NAME	 => 'Errno',
    VERSION_FROM => 'Errno_pm.PL',
    PL_FILES	 => {'Errno_pm.PL'=>'Errno.pm'},
    PM		 => {'Errno.pm' => '$(INST_LIBDIR)/Errno.pm'},
    'clean'	 => {FILES => 'Errno.pm arch.txt'},
    'dist'	 => {
	COMPRESS => 'gzip -9f',
	SUFFIX   => '.gz', 
	DIST_DEFAULT => 'd/Errno.pm tardist',
    },
);

sub MY::postamble {
    my $TARG = MM->catfile('d','Errno.pm');
qq!$TARG : Makefile
	echo '#This is a dummy file so CPAN will find a VERSION' > $TARG
	echo 'package Errno;' >> $TARG
	echo '\$\$VERSION = "\$(VERSION)";' >>$TARG
	echo '#This is to make sure require will return an error' >>$TARG
	echo '0;' >>$TARG

!
}