From: Jan Michel <j.michel@gsi.de>
Date: Tue, 13 Apr 2021 10:27:39 +0000 (+0200)
Subject: fix non-conflict
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=1583575e088b4e11a7fe0d8f56bd8126da7f93e5;p=labtools.git

fix non-conflict
---

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;