[m-rev.] trivial diff: check.pl bug fix

[Fergus Henderson]

Estimated hours taken: 0.25
Branches: main

CVSROOT/check.pl:
	Fix a bug where it was referencing an undefined variable,
	which resulted in a run-time warning.

Workspace: /mnt/munginya/home/pgrad/fjh/cvs
Index: CVSROOT/check.pl
===================================================================
RCS file: /home/staff/zs/imp/CVSROOT/check.pl,v
retrieving revision 1.18
diff -u -d -r1.18 check.pl
--- CVSROOT/check.pl	21 Nov 2002 06:48:02 -0000	1.18
+++ CVSROOT/check.pl	15 Feb 2003 23:38:53 -0000
@@ -226,7 +226,8 @@
 		return $default_yes
 	} else {
 		my $result;
-		my $have_X_display = $ENV{DISPLAY} ne "";
+		my $have_X_display =
+			(defined($ENV{DISPLAY}) && $ENV{DISPLAY} ne "");
 
 		if (! $already_remote) {
 			#

-- 
Fergus Henderson <fjh at cs.mu.oz.au>  |  "I have always known that the pursuit
The University of Melbourne         |  of excellence is a lethal habit"
WWW: <http://www.cs.mu.oz.au/~fjh>  |     -- the last words of T. S. Garp.
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------