Changeset 797 for trunk/compact-recs.pl

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/compact-recs.pl (modified) (2 diffs)

trunk/compact-recs.pl

@@ -4 +4 @@
 ##
 # $Id$
-# Copyright 2013,2014,2018 Kris Deugau <kdeugau@deepnet.cx>
+# Copyright 2013,2014,2018,2020 Kris Deugau <kdeugau@deepnet.cx>
 #
 #    This program is free software: you can redistribute it and/or modify
@@ -23 +23 @@
 use warnings;
 
-use lib '.';    ##uselib##
+# push "the directory the script is in" into @INC
+use FindBin;
+use lib "$FindBin::RealBin/";
+
 use DNSDB;