From e2711b55d8c45c8ce396984ba88624739b1a08b7 Mon Sep 17 00:00:00 2001
From: hadaq <hadaq@hades33.gsi.de>
Date: Tue, 28 Nov 2023 22:38:09 +0100
Subject: [PATCH] fix to make HPlot work together with EPICS again

---
 tools/HPlot.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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}) {
-- 
2.43.0