Changeset 797 for trunk/tiny-import.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/tiny-import.pl (modified) (2 diffs)

trunk/tiny-import.pl

@@ -3 +3 @@
 ##
 # $Id$
-# Copyright 2012-2014 Kris Deugau <kdeugau@deepnet.cx>
+# Copyright 2012-2014,2020 Kris Deugau <kdeugau@deepnet.cx>
 #
 #    This program is free software: you can redistribute it and/or modify
@@ -28 +28 @@
 use Time::TAI64 qw(:tai);
 
-use lib '.';    ##uselib##
+# push "the directory the script is in" into @INC
+use FindBin;
+use lib "$FindBin::RealBin/";
+
 use DNSDB;