File-DosGlob: silence some compiler warnings

diff --git a/ext/File-DosGlob/DosGlob.xs b/ext/File-DosGlob/DosGlob.xs
index cbd9178..6123b75 100644 (file)
--- a/ext/File-DosGlob/DosGlob.xs
+++ b/ext/File-DosGlob/DosGlob.xs
@@ -22,7 +22,7 @@ glob_ophook(pTHX_ OP *o)
     if (!MY_CXT.x_DG_ENTRIES)
        MY_CXT.x_DG_ENTRIES = get_hv("File::DosGlob::entries", 0);
     if (MY_CXT.x_DG_ENTRIES)
-       hv_delete(MY_CXT.x_DG_ENTRIES, (char *)&o, sizeof(OP *),G_DISCARD);
+       (void)hv_delete(MY_CXT.x_DG_ENTRIES, (char *)&o, sizeof(OP *),G_DISCARD);
     if (MY_CXT.x_DG_OLD_OPHOOK) MY_CXT.x_DG_OLD_OPHOOK(aTHX_ o);
   }
 }
@@ -45,6 +45,7 @@ BOOT:
 SV *
 _callsite(...)
     CODE:
+        PERL_UNUSED_VAR(items);
        RETVAL = newSVpvn(
                   (char *)&cxstack[cxstack_ix].blk_sub.retop, sizeof(OP *)
                 );

diff --git a/ext/File-DosGlob/lib/File/DosGlob.pm b/ext/File-DosGlob/lib/File/DosGlob.pm
index 1c5ef53..9d40a36 100644 (file)
--- a/ext/File-DosGlob/lib/File/DosGlob.pm
+++ b/ext/File-DosGlob/lib/File/DosGlob.pm
@@ -6,7 +6,7 @@
 
 package File::DosGlob;
 
-our $VERSION = '1.11';
+our $VERSION = '1.12';
 use strict;
 use warnings;