print "ok $ok_count $what\n";
}
-#makes things work when run without install
-use lib qw( ../bindings/perl-shared/blib/lib ../bindings/perl-shared/blib/arch );
-
#makes programm work AFTER install
-use lib qw( @prefix@/lib/perl ../lib/perl );
+use lib qw( @prefix@/lib/perl );
use strict;
use vars qw(@ISA $loaded);
$t<$START+$STEP*$RUNS;
$t+=$STEP+int((rand()-0.5)*7)){
$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";
+ my $data = (1000+500*sin($t/1000)).":".
+ (1000+900*sin($t/2330)).":".
+ (2000*cos($t/1550)).":".
+ (3220*sin($t/3420)).":$counter";
push(@options, "$t:$data");
RRDs::update $RRD1, "$t:$data";
if ($ERROR = RRDs::error) {