Removed perl warning

diff --git a/C4/Context.pm b/C4/Context.pm
index b1efd7b..04ec6c1 100644 (file)
--- 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))
        {