From: hadaq <hadaq@hades33.gsi.de>
Date: Tue, 28 Nov 2023 21:38:09 +0000 (+0100)
Subject: fix to make HPlot work together with EPICS again
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=e2711b55d8c45c8ce396984ba88624739b1a08b7;p=daqtools.git

fix to make HPlot work together with EPICS again
---

diff --git a/tools/HPlot.pm b/tools/HPlot.pm
index 3a75d0e..362abcc 100755
--- 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}) {