diff --git a/bindings/perl/ghashtable_handling.c b/bindings/perl/ghashtable_handling.c
index 541041d8..8479a59e 100644
--- a/bindings/perl/ghashtable_handling.c
+++ b/bindings/perl/ghashtable_handling.c
@@ -119,6 +119,6 @@ get_hash_of_objects(GHashTable *hash)
 	HV *hv;
 
 	hv = newHV();
-	g_hash_table_foreach(hash, __ht_foreach_get_hos, hv);
+	g_hash_table_foreach(hash, __ht_foreach_get_hoo, hv);
 	return hv;
 }