aboutsummaryrefslogtreecommitdiff
path: root/bootstrap.pl
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2014-10-14 11:49:21 +0300
committerSergey Poznyakoff <gray@gnu.org.ua>2014-10-14 13:47:38 +0300
commitc60e1f248a5b911e502b46420389aad42bb7fac9 (patch)
tree1be57a2be1f09062e04daaeb7d71f26d5a289cc9 /bootstrap.pl
parent5c006a165577f2fa116c6d1cf3b34d959c01a1a2 (diff)
downloaddnstools-c60e1f248a5b911e502b46420389aad42bb7fac9.tar.gz
dnstools-c60e1f248a5b911e502b46420389aad42bb7fac9.tar.bz2
whoseip: implement cache database
* bootstrap.pl: Look for AutoInstall.pm both in $incdir and in the base directory. * whoseip/Whoseip/DB.pm: New file * whoseip/whoseip.pl: Implement caching * whoseip/Makefile.PL: New file * whoseip/MANIFEST: Update.
Diffstat (limited to 'bootstrap.pl')
-rw-r--r--bootstrap.pl3
1 files changed, 2 insertions, 1 deletions
diff --git a/bootstrap.pl b/bootstrap.pl
index b9dc20f..b210751 100644
--- a/bootstrap.pl
+++ b/bootstrap.pl
@@ -61,7 +61,7 @@ my $dir;
if (defined($file)) {
print "$modname installed at $file\n";
if (-f $file) {
- $file =~ s/\.pm$//;
+ $file =~ s#/[^/]+\.pm$##;
if (-d $file) {
$dir = $file;
} else {
@@ -75,6 +75,7 @@ if (defined($file)) {
}
$file = "$dir/$incdir/AutoInstall.pm";
+$file = "$dir/AutoInstall.pm" unless (-f $file);
-f $file or die "$file not found";
chdir $topdir or die "Can't change to $topdir: $!";

Return to:

Send suggestions and report system problems to the System administrator.