d_namlen can be signed.

In HP-UX, it is either short or char (which can be either signed or unsigned),
depending on the compiler flags.

diff --git a/sv.c b/sv.c
index 22a0096..e0b08d0 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -12044,8 +12044,8 @@ Perl_dirp_dup(pTHX_ DIR *const dp, CLONE_PARAMS *const param)
        for(;;) {
            pos = PerlDir_tell(ret);
            if ((dirent = PerlDir_read(ret))) {
-               if (len == d_namlen(dirent)
-                && memEQ(name, dirent->d_name, len)) {
+               if (len == (STRLEN)d_namlen(dirent)
+                    && memEQ(name, dirent->d_name, len)) {
                    /* found it */
                    PerlDir_seek(ret, pos); /* step back */
                    break;