From 2e7bb9a106df62403fe75e5f3edbca3e1cebf9ca Mon Sep 17 00:00:00 2001
From: acli <acli>
Date: Mon, 20 Jan 2003 07:35:31 +0000
Subject: [PATCH] Removed perl warning

---
 C4/Context.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Context.pm b/C4/Context.pm
index b1efd7b03e..04ec6c1f85 100644
--- a/C4/Context.pm
+++ b/C4/Context.pm
@@ -170,7 +170,7 @@ sub new
 	my $self = {};
 
 	# check that the specified config file exists
-	undef $conf_fname unless (-e $conf_fname);
+	undef $conf_fname unless (defined $conf_fname && -e $conf_fname);
 	# Figure out a good config file to load if none was specified.
 	if (!defined($conf_fname))
 	{
-- 
2.39.5