fix non-conflict

diff --git a/powersupplies/web/htdocs/pwr.pl b/powersupplies/web/htdocs/pwr.pl
index c6b21e9554ee8015c3d5ad4aab6d705bf8eaa5f4..268fcc6c733ee6d93ef7c90687e526510c9cb98a 100755 (executable)
--- 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;