From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 23 Mar 2009 05:13:24 +0000 (-0700)
Subject:  * fix getpkgsrc call in Debbugs::Mail::default_headers
X-Git-Tag: release/2.6.0~461^2~37
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=8dcdc0855afe7f1d17bc90a0b91067f1cbdd3d61;p=debbugs.git

 * fix getpkgsrc call in Debbugs::Mail::default_headers
---

diff --git a/Debbugs/Mail.pm b/Debbugs/Mail.pm
index 80ab533..054b04c 100644
--- a/Debbugs/Mail.pm
+++ b/Debbugs/Mail.pm
@@ -49,6 +49,8 @@ use Debbugs::MIME qw(encode_rfc1522);
 use Debbugs::Config qw(:config);
 use Params::Validate qw(:types validate_with);
 
+use Debbugs::Packages;
+
 BEGIN{
      ($VERSION) = q$Revision: 1.1 $ =~ /^Revision:\s+([^\s+])/;
      $DEBUG = 0 unless defined $DEBUG;
@@ -236,7 +238,7 @@ sub default_headers {
 		$default_header{"X-$config{project}-PR-Source"} = $1;
 	    }
 	    else {
-		my $pkg_src = getpkgsrc();
+		my $pkg_src = Debbugs::Packages::getpkgsrc();
 		$default_header{"X-$config{project}-PR-Source"} = $pkg_src->{$param{data}{package}};
 	    }
 	}