X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FAlgorithm%2FBIT%2FXS.pm;fp=lib%2FAlgorithm%2FBIT%2FXS.pm;h=42591f360956d7aa625ee51008003b6bd8f58805;hb=0c7cf8e9cf7b3714bc5fc9e2625d6e4016b8812a;hp=d9a8f4ba4d1a04f60e23a411c708f60663414f5f;hpb=0e4f70024573e1a6be0c53b0c51474eb1d975d43;p=algorithm-bit-xs.git diff --git a/lib/Algorithm/BIT/XS.pm b/lib/Algorithm/BIT/XS.pm index d9a8f4b..42591f3 100644 --- a/lib/Algorithm/BIT/XS.pm +++ b/lib/Algorithm/BIT/XS.pm @@ -21,7 +21,7 @@ sub get { sub set { my ($b, $idx, $value) = @_; - $b->update($idx, $value - $b->get($idx, $value)) + $b->update($idx, $value - $b->get($idx)) } 1; @@ -93,7 +93,7 @@ Sets I<$bit>[I<$idx>] to I<$value>. =head1 SEE ALSO -L, L +L, L, L =head1 AUTHOR