config: settings-get.pl - Fix to work with "use warnings"

diff --git a/src/config/settings-get.pl b/src/config/settings-get.pl
index 91d35244217ebf90d47a058831d54937ff0ecb2e..f275c9a278deecf1367fc6821935f181f6dad6e2 100755 (executable)
--- a/src/config/settings-get.pl
+++ b/src/config/settings-get.pl
@@ -1,5 +1,6 @@
 #!/usr/bin/env perl
 use strict;
+use warnings;
 
 print "/* WARNING: THIS FILE IS GENERATED - DO NOT PATCH!\n";
 print "   It's not enough alone in any case, because the defaults may be\n";
@@ -28,9 +29,9 @@ print '#include <unistd.h>'."\n";
 print '#define CONFIG_BINARY'."\n";
 
 my @services = ();
-my %service_defaults = {};
+my %service_defaults = ();
 my @service_ifdefs = ();
-my %parsers = {};
+my %parsers = ();
 
 my $linked_file = 0;
 foreach my $file (@ARGV) {