epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

removing diagnostics

Browse Source
This commit is contained in:
Ronaldo Mercado
2010-05-25 22:23:22 +01:00
parent 18a63f8754
commit c6255ef0ac
1 changed files with 1 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
src/cap5/capr.pl
View File

@@ -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];