add 4chars and fix two examples -- Mike Slifcak <slif@bellsouth.net>

[rrdtool.git] / examples / shared-demo.pl.in

diff --git a/examples/shared-demo.pl.in b/examples/shared-demo.pl.in
index 596fb06..8021971 100755 (executable)
--- a/examples/shared-demo.pl.in
+++ b/examples/shared-demo.pl.in
@@ -91,11 +91,11 @@ my $counter = 1e7;
 for (my $t=$START+1;
      $t<$START+$STEP*$RUNS;
      $t+=$STEP+int((rand()-0.5)*7)){
-  $counter += 2500*sin($t/2000)*$STEP;
-  my $data = (1000+500*sin($t/1000)).":".
-      (1000+900*sin($t/2330)).":".
-      (2000*cos($t/1550)).":".
-      (3220*sin($t/3420)).":$counter";
+  $counter += int(2500*sin($t/2000)*$STEP);
+  my $data = int(1000+500*sin($t/1000)).":".
+      int(1000+900*sin($t/2330)).":".
+      int(2000*cos($t/1550)).":".
+      int(3220*sin($t/3420)).":$counter";
   push(@options, "$t:$data");
   RRDs::update $RRD1, "$t:$data";
   if ($ERROR = RRDs::error) {