diff --git a/perl/lib/Nix/Store.xs b/perl/lib/Nix/Store.xs
index bd316d7a9..c4e24e497 100644
--- a/perl/lib/Nix/Store.xs
+++ b/perl/lib/Nix/Store.xs
@@ -159,7 +159,9 @@ SV * computeFSClosure(int flipDirection, int includeOutputs, ...)
         try {
             StorePathSet paths;
             for (int n = 2; n < items; ++n)
-                store()->computeFSClosure(store()->parseStorePath(SvPV_nolen(ST(n))), paths, flipDirection, includeOutputs);
+                aio().blockOn(store()->computeFSClosure(
+                    store()->parseStorePath(SvPV_nolen(ST(n))), paths, flipDirection, includeOutputs
+                ));
             for (auto & i : paths)
                 XPUSHs(sv_2mortal(newSVpv(store()->printStorePath(i).c_str(), 0)));
         } catch (Error & e) {
diff --git a/perl/meson.build b/perl/meson.build
index 55bf4561a..6e5000a14 100644
--- a/perl/meson.build
+++ b/perl/meson.build
@@ -9,6 +9,11 @@ project('lix-perl', 'cpp',
   ],
 )
 
+add_project_arguments(
+  '-Werror=unused-result',
+  language : 'cpp',
+)
+
 fs = import('fs')
 
 prefix = get_option('prefix')