X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Foverload.pm;h=3750a43168f1c04f118e989dafb993797218ee2b;hb=3cb6de8118f279c0dca172ac40ef21e89cf524b7;hp=1d8f1a15ad9298c48be0f327aa53456df5762019;hpb=eaf840779373130f95f7bd459b3864c78c698e28;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/overload.pm b/lib/overload.pm index 1d8f1a1..3750a43 100644 --- a/lib/overload.pm +++ b/lib/overload.pm @@ -1029,7 +1029,7 @@ circumscribed octagon using the above package: my $iter = 1; # 2**($iter+2) = 8 my $side = new symbolic 1; my $cnt = $iter; - + while ($cnt--) { $side = (sqrt(1 + $side**2) - 1)/$side; } @@ -1154,7 +1154,7 @@ Use this module like this: my $iter = new symbolic 2; # 16-gon my $side = new symbolic 1; my $cnt = $iter; - + while ($cnt) { $cnt = $cnt - 1; # Mutator `--' not implemented $side = (sqrt(1 + $side**2) - 1)/$side;