From 1583575e088b4e11a7fe0d8f56bd8126da7f93e5 Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Tue, 13 Apr 2021 12:27:39 +0200
Subject: [PATCH] fix non-conflict

---
 powersupplies/web/htdocs/pwr.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/powersupplies/web/htdocs/pwr.pl b/powersupplies/web/htdocs/pwr.pl
index c6b21e9..268fcc6 100755
--- a/powersupplies/web/htdocs/pwr.pl
+++ b/powersupplies/web/htdocs/pwr.pl
@@ -17,6 +17,7 @@ use POSIX qw/floor ceil strftime/;
 use Fcntl;
 use Storable qw(lock_store lock_retrieve);
 no warnings 'uninitialized';
+use Data::Dumper;
 
 my $envstring = $ENV{'QUERY_STRING'};
 $envstring =~ s/%20/ /g;
@@ -42,6 +43,7 @@ my $file = $ser_dev;
   $file =~ s/\W//g;
   $file = "/dev/shm/pwrsup-".$file.".dump";
 my $db;
+   $db->{dummy} = 0;
 if(-e $file && -r $file) {
   $db = lock_retrieve($file);
   my $waitcnt = 0;
-- 
2.43.0