fixed spelling
[rrdtool.git] / bindings / perl-piped / leaktest.pl
1 #!/bin/perl -w
2 $ENV{PATH}="/usr/ucb";
3 use strict;   
4 use RRDp;     
5 my $rrdfile='/tmp/test.rrd';
6 RRDp::start '/home/oetiker/data/projects/AABN-rrdtool/src/rrdtool';
7 print grep /rrdtool/,`ps au`;
8 print grep /rrdtool/,`ps au`;
9 my $i=0;
10 while ($i<1000) {
11  RRDp::cmd 'info /tmp/test.rrd';
12  $_ = RRDp::read;
13  $i++;
14 }
15 $_ = RRDp::end;
16 print grep /rrdtool/,`ps au`;