better error message

diff --git a/Changes b/Changes
index e96fda535c8e3c9fe15d8b6b06b826fa0b28bc63..486ba2c85b29a7305e74bc6739421d99cbfbac12 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,6 +1,7 @@
 27Jan02=======================================================================
 1. make save work in cron context
 2. try to get the C client to handle closes on its standard input better
+3. put some validation in cluster.pl to check that people have set it up 
 handled.
 22Jan02=======================================================================
 1. limit spot dupe checking to first 12 characters

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 59ff51782a9a5f5b06bef219ec871a28ab8b9f85..205d2fe7633060eac89f6df4f7d329b775b75e33 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -26,7 +26,7 @@ BEGIN {
        # do some validation of the input
        die "The directory $root doesn't exist, please RTFM" unless -d $root;
        die "$root/local doesn't exist, please RTFM" unless -d "$root/local";
-       die "$root/local/DXVars doesn't exist, please RTFM" unless -e "$root/local/DXVars.pm";
+       die "$root/local/DXVars.pm doesn't exist, please RTFM" unless -e "$root/local/DXVars.pm";
        
        mkdir "$root/local_cmd" unless -e "$root/local_cmd";