merge changes from dla source

[debbugs.git] / cgi / version.cgi

diff --git a/cgi/version.cgi b/cgi/version.cgi
index f6f377c22f5e909f1f94c723edc281132acd85b9..d1e8960b700b5fc9bbe877dc490a9c3d9eea0e37 100755 (executable)
--- a/cgi/version.cgi
+++ b/cgi/version.cgi
@@ -125,7 +125,7 @@ my $version = Debbugs::Versions->new(\&Debbugs::Versions::Dpkg::vercmp);
 foreach my $source (keys %sources) {
      my $srchash = substr $source, 0, 1;
      next unless -e "$config{version_packages_dir}/$srchash/$source";
-     my $version_fh = IO::File->("$config{version_packages_dir}/$srchash/$source", 'r') or
+     my $version_fh = IO::File->new("$config{version_packages_dir}/$srchash/$source", 'r') or
          warn "Unable to open $config{version_packages_dir}/$srchash/$source for reading: $!";
      $version->load($version_fh);
 }