DynaLoader: silence some compiler warnings

diff --git a/ext/DynaLoader/DynaLoader_pm.PL b/ext/DynaLoader/DynaLoader_pm.PL
index c67b4ab..d7f1bea 100644 (file)
--- a/ext/DynaLoader/DynaLoader_pm.PL
+++ b/ext/DynaLoader/DynaLoader_pm.PL
@@ -85,7 +85,7 @@ package DynaLoader;
 # Tim.Bunce@ig.co.uk, August 1994
 
 BEGIN {
-    $VERSION = '1.20';
+    $VERSION = '1.21';
 }
 
 use Config;

diff --git a/ext/DynaLoader/dl_aix.xs b/ext/DynaLoader/dl_aix.xs
index 0e9141d..e56fdc4 100644 (file)
--- a/ext/DynaLoader/dl_aix.xs
+++ b/ext/DynaLoader/dl_aix.xs
@@ -772,6 +772,7 @@ dl_error()
 void
 CLONE(...)
     CODE:
+    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid

diff --git a/ext/DynaLoader/dl_dllload.xs b/ext/DynaLoader/dl_dllload.xs
index 9a1069e..f7daf01 100644 (file)
--- a/ext/DynaLoader/dl_dllload.xs
+++ b/ext/DynaLoader/dl_dllload.xs
@@ -197,6 +197,7 @@ dl_error()
 void
 CLONE(...)
     CODE:
+    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid

diff --git a/ext/DynaLoader/dl_dlopen.xs b/ext/DynaLoader/dl_dlopen.xs
index 4646cb0..9cbbeb4 100644 (file)
--- a/ext/DynaLoader/dl_dlopen.xs
+++ b/ext/DynaLoader/dl_dlopen.xs
@@ -271,6 +271,7 @@ dl_error()
 void
 CLONE(...)
     CODE:
+    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid

diff --git a/ext/DynaLoader/dl_dyld.xs b/ext/DynaLoader/dl_dyld.xs
index b7ae161..280d27e 100644 (file)
--- a/ext/DynaLoader/dl_dyld.xs
+++ b/ext/DynaLoader/dl_dyld.xs
@@ -226,6 +226,7 @@ dl_error()
 void
 CLONE(...)
     CODE:
+    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid

diff --git a/ext/DynaLoader/dl_hpux.xs b/ext/DynaLoader/dl_hpux.xs
index 2cd6790..ff3ed37 100644 (file)
--- a/ext/DynaLoader/dl_hpux.xs
+++ b/ext/DynaLoader/dl_hpux.xs
@@ -182,6 +182,7 @@ dl_error()
 void
 CLONE(...)
     CODE:
+    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid

diff --git a/ext/DynaLoader/dl_next.xs b/ext/DynaLoader/dl_next.xs
index a15efa8..99f4d2f 100644 (file)
--- a/ext/DynaLoader/dl_next.xs
+++ b/ext/DynaLoader/dl_next.xs
@@ -329,6 +329,7 @@ dl_error()
 void
 CLONE(...)
     CODE:
+    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid

diff --git a/ext/DynaLoader/dl_symbian.xs b/ext/DynaLoader/dl_symbian.xs
index d10720b..9a0ba45 100644 (file)
--- a/ext/DynaLoader/dl_symbian.xs
+++ b/ext/DynaLoader/dl_symbian.xs
@@ -226,6 +226,7 @@ dl_error()
 void
 CLONE(...)
     CODE:
+    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid

diff --git a/ext/DynaLoader/dl_vms.xs b/ext/DynaLoader/dl_vms.xs
index d68c95b..11053a3 100644 (file)
--- a/ext/DynaLoader/dl_vms.xs
+++ b/ext/DynaLoader/dl_vms.xs
@@ -359,6 +359,7 @@ dl_error()
 void
 CLONE(...)
     CODE:
+    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid

diff --git a/ext/DynaLoader/dl_win32.xs b/ext/DynaLoader/dl_win32.xs
index 05495b8..3d86b95 100644 (file)
--- a/ext/DynaLoader/dl_win32.xs
+++ b/ext/DynaLoader/dl_win32.xs
@@ -199,6 +199,7 @@ dl_error()
 void
 CLONE(...)
     CODE:
+    PERL_UNUSED_VAR(items);
     MY_CXT_CLONE;
 
     /* MY_CXT_CLONE just does a memcpy on the whole structure, so to avoid