Silence some redefine warnings for SVU_PP and SVU_SIZE

[perl/modules/Scalar-Vec-Util.git] / lib / Scalar / Vec / Util.pm

diff --git a/lib/Scalar/Vec/Util.pm b/lib/Scalar/Vec/Util.pm
index 4e418cd701e206fbf46aebe5d340d8622b3f8b0e..2c0f723f0361dbfc8cd8403d7d7bca0c9e5e09e6 100644 (file)
--- a/lib/Scalar/Vec/Util.pm
+++ b/lib/Scalar/Vec/Util.pm
@@ -23,11 +23,11 @@ BEGIN {
   XSLoader::load(__PACKAGE__, $VERSION);
   1;
  } or do {
-  sub SVU_PP   () { 1 }
-  sub SVU_SIZE () { 1 }
-  *vfill = *vfill_pp;
-  *vcopy = *vcopy_pp;
-  *veq   = *veq_pp;
+  *SVU_PP   = sub () { 1 };
+  *SVU_SIZE = sub () { 1 };
+  *vfill    = *vfill_pp;
+  *vcopy    = *vcopy_pp;
+  *veq      = *veq_pp;
  }
 }