diff --git a/src/cap5/capr.pl b/src/cap5/capr.pl index d2a5f0e35..41b929908 100644 --- a/src/cap5/capr.pl +++ b/src/cap5/capr.pl @@ -368,21 +368,8 @@ sub printRecord { } } } - my $read_pvs; - $read_pvs = parallel_caget( @list ); + my $read_pvs = parallel_caget( @list ); - print "====-------------===="; - for (my $i=0; $i < scalar @list; $i++) { - $field = $fields_pr[$i]; - $fToGet = $list[$i]; - $data = $callback_data{$fToGet}; - $fType = $ftypes[$i]; - $base = $bases[$i]; - my $len = length $data; - chomp $data; - print "$field ($fType-$len): $data\n"; - } - print "-------------===="; $col = 0; for (my $i=0; $i < scalar @list; $i++) { $field = $fields_pr[$i];