Add prototypes

[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 dd8b1cbcea3b3cdb30da08a3098a114c9701b838..b7ab6ab774e36fc5452c33a85c98e2dca08e3eb4 100644 (file)
--- a/lib/Scalar/Vec/Util.pm
+++ b/lib/Scalar/Vec/Util.pm
@@ -77,7 +77,7 @@ sub _alldef {
  return 1;
 }
 
-sub vfill_pp {
+sub vfill_pp ($$$$) {
  (undef, my $s, my $l, my $x) = @_;
  croak "Invalid argument" unless _alldef @_;
  return unless $l;
@@ -103,7 +103,7 @@ Doesn't need to allocate any extra memory.
 
 =cut
 
-sub vcopy_pp {
+sub vcopy_pp ($$$$$) {
  my ($fs, $ts, $l) = @_[1, 3, 4];
  croak "Invalid argument" unless _alldef @_;
  return unless $l;
@@ -124,7 +124,7 @@ Doesn't need to allocate any extra memory.
 
 =cut
 
-sub vshift {
+sub vshift ($$$$;$) {
  my ($start, $length, $bits, $insert) = @_[1 .. 4];
  return unless $bits;
  my $left = 1;
@@ -154,7 +154,7 @@ Currently allocates an extra buffer of size C<O($bits)>.
 
 =cut
 
-sub vrot {
+sub vrot ($$$$) {
  my ($start, $length, $bits) = @_[1 .. 3];
  return unless $length and $bits;
  my $left = 1;
@@ -184,7 +184,7 @@ If needed, C<$length> is decreased to fit inside C<$v1> and C<$v2> boundaries.
 
 =cut
 
-sub veq_pp {
+sub veq_pp ($$$$$) {
  my ($s1, $s2, $l) = @_[1, 3, 4];
  croak "Invalid argument" unless _alldef @_;
  my $i = 0;