X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScalar-Vec-Util.git;a=blobdiff_plain;f=t%2F11-veq.t;h=3d141b35c052572ac0149fb28d87cad13f238f14;hp=418e13e29b0676bdb65481e32cadde19368d521a;hb=01ef742d705c0bd6577139d1ee8a2808101336da;hpb=0062dbd2da53db62346382e729b84097131c61ee

diff --git a/t/11-veq.t b/t/11-veq.t
index 418e13e..3d141b3 100644
--- a/t/11-veq.t
+++ b/t/11-veq.t
@@ -23,7 +23,11 @@ $p = 8 if $p < 8;
 my $n = 3 * $p;
 my $q = 1;
 
-*myfill = *Scalar::Vec::Util::vfill_pp;
+sub myfill {
+ (undef, my $s, my $l, my $x) = @_;
+ $x = 1 if $x;
+ vec($_[0], $_, 1) = $x for $s .. $s + $l - 1;
+}
 
 sub rst { myfill($_[0], 0, $n, 0) }