fix warning if value is 0 from command line

diff --git a/xml-db/put.pl b/xml-db/put.pl
index 1fbedb997e8abc28b28872db96854a94ef456038..6a3279b7a132f6cb04120449e9a9be47dc453228 100755 (executable)
--- a/xml-db/put.pl
+++ b/xml-db/put.pl
@@ -76,12 +76,12 @@ foreach my $req (@request) {
     $file    = "$RealBin/cache/$ARGV[0].entity";
     $netaddr = $ARGV[1] || "";
     $name    = $ARGV[2] || "";
-    $value   = $ARGV[3] || "";
+    $value   = $ARGV[3] // "";
     }
 
   $value =~ s/m/\-/; #encoded negative values
 
-
+  
   
 ###############################
 #### Check arguments for validity
@@ -89,7 +89,7 @@ foreach my $req (@request) {
 
   die "Entity $file not found.\n" unless(-e $file) ;
 
-  
+  die "Value not given.\n" if $value eq "";
   
   # trim whitespace from netaddr
   $netaddr =~ s/^\s+|\s+$//g;