cache cpp defaults

[m6w6/ext-psi] / psi.d / glob.psi

diff --git a/psi.d/glob.psi b/psi.d/glob.psi
index 8fc3b0b31c0302a728338c47034a66a42573ff5d..4e5589a579fa5b1470e7b074f4b2de62a1986663 100644 (file)
--- a/psi.d/glob.psi
+++ b/psi.d/glob.psi
@@ -1,7 +1,12 @@
+#include <glob.h>
+
 function psi\glob(string $pattern, int $flags, array &$glob = NULL, callable $errfn = NULL) : int {
        let path = strval($pattern);
        let flags = intval($flags);
-       let err = callback intval($errfn(
+       let err = callback(
+               epath, 
+               eerrno
+       ) as intval($errfn(
                to_string(epath),
                to_int(eerrno)
        ));
@@ -22,4 +27,5 @@ function psi\glob(string $pattern, int $flags, array &$glob = NULL, callable $er
                to_int(gl_flags),
                to_array(*gl_pathv, gl_pathc + gl_offs, to_string(*gl_pathv))
        );
+       free globfree(buf);
 }