switch to compatibility level 12

[debbugs.git] / Debbugs / Config.pm

diff --git a/Debbugs/Config.pm b/Debbugs/Config.pm
index 596d053644d79a50b3d4958865a74cdd6284e7bd..0d0abae37ff6c489f80cd4b7a413f11ba279e92c 100644 (file)
--- a/Debbugs/Config.pm
+++ b/Debbugs/Config.pm
@@ -76,7 +76,7 @@ BEGIN {
                                 qw($gTemplateDir),
                                 qw($gDefaultPackage),
                                 qw($gSpamMaxThreads $gSpamSpamsPerThread $gSpamKeepRunning $gSpamScan $gSpamCrossassassinDb),
-                                 qw($gDebbugsDb),
+                                 qw($gDatabase),
                                ],
                     text     => [qw($gBadEmailPrefix $gHTMLTail $gHTMLExpireNote),
                                 ],
@@ -1063,7 +1063,7 @@ set_default(\%config,'libravatar_blacklist',[]);
 
 =over
 
-=item debbugs_db
+=item database
 
 Name of debbugs PostgreSQL database service. If you wish to not use a service
 file, provide a full DBD::Pg compliant data-source, for example:
@@ -1071,7 +1071,9 @@ C<"dbi:Pg:dbname=dbname">
 
 =back
 
-set_default(\%config,'debbugs_db',undef);
+=cut
+
+set_default(\%config,'database',undef);
 
 =head2 Text Fields
 
@@ -1149,7 +1151,7 @@ sub read_config{
         return;
      }
      # first, figure out what type of file we're reading in.
-     my $fh = new IO::File $conf_file,'r'
+     my $fh = IO::File->new($conf_file,'r')
          or die "Unable to open configuration file $conf_file for reading: $!";
      # A new version configuration file must have a comment as its first line
      my $first_line = <$fh>;