Changeset 797 for trunk/dns.cgi

Timestamp:

11/03/20 15:38:37 (4 years ago)

Author:

Kris Deugau

Message:

/trunk

Clean up a lingering nuisance with Perl's default include path; all scripts
should now run correctly no matter what the caller's current directory.

File:

• trunk/dns.cgi (modified) (2 diffs)

trunk/dns.cgi

@@ -3 +3 @@
 ##
 # $Id$
-# Copyright 2008-2019 Kris Deugau <kdeugau@deepnet.cx>
+# Copyright 2008-2020 Kris Deugau <kdeugau@deepnet.cx>
 # 
 #    This program is free software: you can redistribute it and/or modify
@@ -41 +41 @@
 #die "argh! \@INC got tainted!" if is_tainted(@INC);
 
-# don't remove!  required for GNU/FHS-ish install from tarball
-use lib '.';    ##uselib##
+# push "the directory the script is in" into @INC
+use FindBin;
+use lib "$FindBin::RealBin/";
 
 use DNSDB;