Remove x2p remnants
authorMatthew Horsfall (alh) <wolfsage@gmail.com>
Thu, 19 Jun 2014 23:19:44 +0000 (19:19 -0400)
committerMatthew Horsfall (alh) <wolfsage@gmail.com>
Thu, 19 Jun 2014 23:19:44 +0000 (19:19 -0400)
installperl

index 9d445ac..5a3da7e 100755 (executable)
@@ -112,7 +112,6 @@ my (@scripts, @tolink);
 open SCRIPTS, "utils.lst" or die "Can't open utils.lst: $!";
 while (<SCRIPTS>) {
     next if /^#/;
-    next if /a2p/; # a2p is binary, to be installed separately
     chomp;
     if (/(\S*)\s*#\s*link\s*=\s*(\S*)/) {
        push @scripts, $1;
@@ -290,9 +289,6 @@ if ($Is_VMS) {
         safe_unlink("$installbin/$ndbg$perl$exe_ext");
         copy("$ndbg$perl$exe_ext", "$installbin/$ndbg$perl$exe_ext");
         chmod(0755, "$installbin/$ndbg$perl$exe_ext");
-       safe_unlink("$installbin/${dbg}a2p$exe_ext");
-       copy("x2p/${dbg}a2p$exe_ext", "$installbin/${dbg}a2p$exe_ext");
-       chmod(0755, "$installbin/${dbg}a2p$exe_ext");
     }
 }
 elsif ($^O ne 'dos') {
@@ -305,12 +301,11 @@ elsif ($^O ne 'dos') {
     else {
        # If installing onto a NetWare server
         if ($opts{netware}) {
-           # Copy perl.nlm, echo.nlm, type.nlm, a2p.nlm & cgi2perl.nlm
+           # Copy perl.nlm, echo.nlm, type.nlm & cgi2perl.nlm
             mkpath($Config{installnwsystem});
            copy("netware\\".$ENV{'MAKE_TYPE'}."\\perl.nlm", $Config{installnwsystem});
            copy("netware\\testnlm\\echo\\echo.nlm", $Config{installnwsystem});
            copy("netware\\testnlm\\type\\type.nlm", $Config{installnwsystem});
-           copy("x2p\\a2p.nlm", $Config{installnwsystem});
            chmod(0755, "$Config{installnwsystem}\\perl.nlm");
             mkpath($Config{installnwlcgi});
            copy("lib\\auto\\cgi2perl\\cgi2perl.nlm", $Config{installnwlcgi});
@@ -453,18 +448,6 @@ if ($Config{installusrbinperl} && $Config{installusrbinperl} eq 'define' &&
     }
 }
 
-# Make links to ordinary names if installbin directory isn't current directory.
-if (!$Is_NetWare && $dbg eq '') {
-    if (! samepath($installbin, 'x2p')) {
-       my $base = 'a2p';
-       $base .= $ver if $versiononly;
-       safe_unlink("$installbin/$base$exe_ext");
-       copy("x2p/a2p$exe_ext", "$installbin/$base$exe_ext");
-       strip("$installbin/$base$exe_ext");
-       chmod(0755, "$installbin/$base$exe_ext");
-    }
-}
-
 # cppstdin is just a script, but it is architecture-dependent, so
 # it can't safely be shared.  Place it in $installbin.
 # Note that Configure doesn't build cppstin if it isn't needed, so