This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Fix wrong comment
[perl5.git] / ext / Hash-Util / Util.xs
index db3fb5a..095a78c 100644 (file)
@@ -95,7 +95,8 @@ hash_value(string,...)
         U8 *seedbuf= (U8 *)SvPV(ST(1),seedlen);
         if ( seedlen < PERL_HASH_SEED_BYTES ) {
             sv_dump(ST(1));
-            Perl_croak(aTHX_ "seed len must be at least %d long only got %"UVuf" bytes", PERL_HASH_SEED_BYTES, (UV)seedlen);
+            Perl_croak(aTHX_ "seed len must be at least %d long only got %"
+                             UVuf " bytes", PERL_HASH_SEED_BYTES, (UV)seedlen);
         }
 
         PERL_HASH_WITH_SEED(seedbuf, uv, pv, len);
@@ -274,7 +275,7 @@ bucket_array(rhv)
     XSRETURN(0);
 }
 
-SV*
+void
 bucket_ratio(rhv)
         SV* rhv
     PROTOTYPE: \%
@@ -295,7 +296,7 @@ bucket_ratio(rhv)
     XSRETURN_UNDEF;
 }
 
-SV*
+void
 num_buckets(rhv)
         SV* rhv
     PROTOTYPE: \%
@@ -310,7 +311,7 @@ num_buckets(rhv)
     XSRETURN_UNDEF;
 }
 
-SV*
+void
 used_buckets(rhv)
         SV* rhv
     PROTOTYPE: \%