diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2014-10-14 11:49:21 +0300 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2014-10-14 13:47:38 +0300 |
commit | c60e1f248a5b911e502b46420389aad42bb7fac9 (patch) | |
tree | 1be57a2be1f09062e04daaeb7d71f26d5a289cc9 /bootstrap.pl | |
parent | 5c006a165577f2fa116c6d1cf3b34d959c01a1a2 (diff) | |
download | dnstools-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.pl | 3 |
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: $!"; |