X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=t%2F08_pkgreport.t;h=5a3339062f2beba78e0124ebd877f70505c5521c;hb=210f625e6e6b4cbe1065f35d9eb0bdc73563969c;hp=97f331fbc168abfd028ce58a9b75963040a4ac36;hpb=a40fd8e928b333287f7f52f590c8e2d0c2f90821;p=debbugs.git

diff --git a/t/08_pkgreport.t b/t/08_pkgreport.t
index 97f331f..5a33390 100644
--- a/t/08_pkgreport.t
+++ b/t/08_pkgreport.t
@@ -23,13 +23,8 @@ use Test::WWW::Mechanize;
 use lib qw(t/lib);
 use DebbugsTest qw(:all);
 
-my %config;
-eval {
-     %config = create_debbugs_configuration();
-};
-if ($@) {
-     BAIL_OUT($@);
-}
+my %config = create_debbugs_configuration();
+
 
 # create a bug
 send_message(to=>'submit@bugs.something',
@@ -51,8 +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";
-     # We cd here because pkgreport uses require ./common.pl
-     my $content = qx(cd cgi; perl -I.. -T pkgreport.cgi);
+     my $content = qx(perl -Ilib -T cgi/pkgreport.cgi);
      # Strip off the Content-Type: stuff
      $content =~ s/^\s*Content-Type:[^\n]+\n*//si;
      print $content;