Changeset 797 for trunk/mergerecs

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/mergerecs (modified) (2 diffs)

trunk/mergerecs

@@ -3 +3 @@
 ##
 # $Id$
-# Copyright 2014,2016,2018 Kris Deugau <kdeugau@deepnet.cx>
+# Copyright 2014,2016,2018,2020 Kris Deugau <kdeugau@deepnet.cx>
 #
 #    This program is free software: you can redistribute it and/or modify
@@ -27 +27 @@
 use Data::Dumper;
 
-# 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;