Autoload didn't always find the key/value pair

nigelhorne · Nov 21, 2024 · 438c096 · 438c096
1 parent 78b53fd
commit 438c096
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/dynamic-site/lib/Ged2site/Config.pm b/dynamic-site/lib/Ged2site/Config.pm
@@ -153,12 +153,11 @@ sub AUTOLOAD
 	our $AUTOLOAD;
 	my $self = shift;
 
+	return undef unless($self);
+
 	# Extract the method name from the AUTOLOAD variable
 	(my $key = $AUTOLOAD) =~ s/.*:://;
 
-	# Return undef if $self is not a hash reference
-	return undef unless(ref($self) eq 'HASH');
-
 	# Return the value of the corresponding hash key
 	return $self->{$key};
 }