--- pmdasimple.perl.orig 2014-03-21 14:17:30.092596110 -0400 +++ pmdasimple.perl 2014-03-21 14:18:56.723643833 -0400 @@ -28,6 +28,21 @@ my %timeslices; my $file_error = 0; +sub get_foo { + + open( FOOFOO, "sleep 10;echo foo |") || + $pmda->err("pmdasimple failed to open dummy pipe: $!"); + + while( ){ + my $line = $_; + $pmda->log("Got line: $line\n"); + } + + close FOOFOO; + +} + + sub simple_instance # called once per ``instance request'' pdu { &simple_timenow_check; @@ -129,6 +144,8 @@ $pmda = PCP::PMDA->new('simple', 253); +get_foo(); + $pmda->add_metric(pmda_pmid(0,0), PM_TYPE_U32, PM_INDOM_NULL, PM_SEM_INSTANT, pmda_units(0,0,0,0,0,0), 'simple.numfetch', '', '');