aboutsummaryrefslogtreecommitdiff
path: root/bootstrap.pl
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org>2019-08-26 14:13:14 +0300
committerSergey Poznyakoff <gray@gnu.org>2019-08-26 14:13:14 +0300
commitadf16c29939378f3eaa716239da53bb7e3ef6283 (patch)
tree5aabf2387a5ece4baf01a6f420a5b03b0f4eb72a /bootstrap.pl
parentd9d63339f7df96d7dfcdbd11edbe996359b5813e (diff)
downloadacmeman-2.00.tar.gz
acmeman-2.00.tar.bz2
Don't distribute a copy of AutoInstall.pmv2.00
Diffstat (limited to 'bootstrap.pl')
-rw-r--r--bootstrap.pl61
1 files changed, 0 insertions, 61 deletions
diff --git a/bootstrap.pl b/bootstrap.pl
deleted file mode 100644
index 90db16a..0000000
--- a/bootstrap.pl
+++ /dev/null
@@ -1,61 +0,0 @@
-#! /usr/bin/perl
-# This file is part of acmeman.
-# Copyright (C) 2014, 2017 Sergey Poznyakoff <gray@gnu.org>
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 3, or (at your option)
-# any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program. If not, see <http://www.gnu.org/licenses/>.
-
-use strict;
-use CPAN;
-use Cwd qw(getcwd);
-use File::Path qw(mkpath);
-
-####
-my $incdir = "inc/ExtUtils";
-my $topdir = getcwd;
-
-my $modname = "ExtUtils::AutoInstall";
-
-my $mod = CPAN::Shell->expandany($modname) or die "Can't expand $modname";
-my $file = $mod->inst_file;
-my $dir;
-
-if (defined($file)) {
- print "$modname installed at $file\n";
- if (-f $file) {
- $file =~ s#/[^/]+\.pm$##;
- if (-d $file) {
- $dir = $file;
- } else {
- die "Can't find $modname directory";
- }
- }
-} else {
- print "Getting $modname\n";
- my $distro = $mod->get or die "Can't get distribution for $modname";
- $dir = $distro->dir;
-}
-
-$file = "$dir/$incdir/AutoInstall.pm";
-$file = "$dir/AutoInstall.pm" unless (-f $file);
--f $file or die "$file not found";
-
-use autodie;
-chdir $topdir;
-mkpath $incdir unless -d $incdir;
-chdir $incdir;
-no autodie;
-unlink "AutoInstall.pm";
-use autodie;
-symlink $file, "AutoInstall.pm";
-

Return to:

Send suggestions and report system problems to the System administrator.