Fix default user for usertags

[debbugs.git] / t / 08_pkgreport.t

diff --git a/t/08_pkgreport.t b/t/08_pkgreport.t
index f834c759284bce5650f135a7a60e75a3372c48d5..eabee529287c12b14c880f466dc26fa399b13390 100644 (file)
--- a/t/08_pkgreport.t
+++ b/t/08_pkgreport.t
@@ -23,22 +23,8 @@ use Test::WWW::Mechanize;
 use lib qw(t/lib);
 use DebbugsTest qw(:all);
 
-my %config;
-eval {
-     %config = create_debbugs_configuration(debug => exists $ENV{DEBUG}?$ENV{DEBUG}:0);
-};
-if ($@) {
-     BAIL_OUT($@);
-}
-
-# Output some debugging information if there's an error
-END{
-     if ($ENV{DEBUG}) {
-         foreach my $key (keys %config) {
-              diag("$key: $config{$key}\n");
-         }
-     }
-}
+my %config = create_debbugs_configuration();
+
 
 # create a bug
 send_message(to=>'submit@bugs.something',
@@ -60,7 +46,7 @@ EOF
 my $pkgreport_cgi_handler = sub {
      # I do not understand why this is necessary.
      $ENV{DEBBUGS_CONFIG_FILE} = "$config{config_dir}/debbugs_config";
-     my $content = qx(perl -I. -I./cgi -T cgi/pkgreport.cgi);
+     my $content = qx(perl -I. -T cgi/pkgreport.cgi);
      # Strip off the Content-Type: stuff
      $content =~ s/^\s*Content-Type:[^\n]+\n*//si;
      print $content;