Changeset 225

Timestamp:

Oct 29, 2006, 5:21:01 PM (15 years ago)

Author:

Dominic Hargreaves

Message:

Find the config file differently.

File:

• trunk/npemap.org.uk/perllib/NPEMap/Config.pm (modified) (2 diffs)

trunk/npemap.org.uk/perllib/NPEMap/Config.pm

@@ -5 +5 @@
 use strict;
 
+use FindBin;
+
 require Exporter;
 @ISA    = qw(Exporter);
@@ -10 +12 @@
 
 # Read in site config
-my $config = $ENV{'HOME'} . '/.npemap.conf';
+my $config = $FindBin::Bin . '../npemap.conf';
 do $config or die "Can't read $config!\n";