switch to IO::File->new

diff --git a/Debbugs/Config.pm b/Debbugs/Config.pm
index d85261a5b35599d194c24088427a70a893813a19..0d0abae37ff6c489f80cd4b7a413f11ba279e92c 100644 (file)
--- a/Debbugs/Config.pm
+++ b/Debbugs/Config.pm
@@ -1151,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>;