Removed perl warning

2003-01-20 07:35:31 +00:00 · 2003-01-20 07:35:31 +00:00 · 2e7bb9a106
parent 93b67826d3
commit 2e7bb9a106
1 changed files with 1 additions and 1 deletions
--- 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))
 	{