nix-perl: Fix segfault in queryPathInfo)

2020-03-10 11:00:17 +01:00
parent d37dc71e3c
commit 5e086ba8c3
1 changed files with 1 additions and 1 deletions
@@ -102,7 +102,7 @@ SV * queryPathInfo(char * path, int base32)
    PPCODE:
        try {
            auto info = store()->queryPathInfo(store()->parseStorePath(path));
-            if (info->deriver)
+            if (!info->deriver)
                XPUSHs(&PL_sv_undef);
            else
                XPUSHs(sv_2mortal(newSVpv(store()->printStorePath(*info->deriver).c_str(), 0)));