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
config.over	1.81 KB	-r--r--r--	2014-12-27 11:48
configure.bat	957 B	-r--r--r--	2014-12-27 11:48
djgpp.c	10.25 KB	-r--r--r--	2014-12-27 11:48
djgpp.h	870 B	-r--r--r--	2014-12-27 11:48
djgppsed.sh	2.44 KB	-r--r--r--	2014-12-27 11:48
fixpmain	1.05 KB	-r--r--r--	2014-12-27 11:48

Rename

#!perl -w
# Fix perlmain.c under DOS (short & case insensitive filenames).
# Called from Makefile.aperl when needed.
# You don't need this when LFN=y.

use Config;

open (PERLM,"<perlmain.c") or die "Can't load perlmain.c: $!";
open (MAKEFILE,"<makefile.pl") or die "Can't load makefile.pl: $!";
undef $/;
$perlmain=<PERLM>;
$makefile=<MAKEFILE>;

($_) = $makefile =~ /\bNAME\b.*=>\W*([\w\:]+)/; # extract module name
$badname=join ("__",map {lc substr ($_,0,8)} split /:+/); # DOSify
$perlmain =~ s/^.*boot_$badname.*$//gm if $badname; # delete bad lines

@exts=('DynaLoader',split (" ",$Config{known_extensions}));
for $realname (@exts)
{
    $dosname=join ("__",map {lc substr ($_,0,8)} split /\//,$realname);
    $realname =~ s!/!__!g;
    $perlmain =~ s/\bboot_$dosname\b/boot_$realname/gm;
    $dosname =~ s/__/::/;
    $realname =~ s/__/::/;
    $perlmain =~ s/\b$dosname(::bootstrap)/$realname$1/gm;
}

#DynaLoader is special
$perlmain =~ s/(DynaLoader:\:boot)strap/$1_DynaLoader/gm;

open (PERLM,">perlmain.c") or die "Can't write perlmain.c: $!";
print PERLM $perlmain;