fix to make HPlot work together with EPICS again

diff --git a/tools/HPlot.pm b/tools/HPlot.pm
index 3a75d0e82d7558e1e4ab854e9f79a6d2e758622d..362abccc9264311775b0eaaada4ea97f01d985ce 100755 (executable)
--- a/tools/HPlot.pm
+++ b/tools/HPlot.pm
@@ -240,7 +240,7 @@ sub PlotInit {
 
 sub PlotDrawFork {
   my($name) = @_;
-  waitpid($p->{$name}->{pid},0) if $p->{$name}->{pid};
+  CORE::waitpid($p->{$name}->{pid},0) if $p->{$name}->{pid};
   my $pid = fork;
   unless ($pid) {PlotDraw($name);exit;}
   $p->{$name}->{pid} = $pid;
@@ -301,7 +301,7 @@ sub PlotDraw {
         plot_write($p->{$name}->{fh}," ",0);
         }
       plot_write($p->{$name}->{fh},"e");
-      plot_write($p->{$name}->{fh},"e");
+#       plot_write($p->{$name}->{fh},"e");
    #   }
     
       if ($p->{$name}{showvalues}) {