use CGI::Simple;
# by default send this message nowhere
-use CGI::Alert q(nobody@example.com);
+# use CGI::Alert q(nobody@example.com);
use Debbugs::Config qw(:config);
BEGIN{
- $CGI::Alert::Maintainer = $config{maintainer};
+ # $CGI::Alert::Maintainer = $config{maintainer};
}
use Debbugs::CGI qw(htmlize_packagelinks html_escape cgi_parameters munge_url);
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);
}