From 8dcdc0855afe7f1d17bc90a0b91067f1cbdd3d61 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sun, 22 Mar 2009 22:13:24 -0700
Subject: [PATCH]  * fix getpkgsrc call in Debbugs::Mail::default_headers

---
 Debbugs/Mail.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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}};
 	    }
 	}
-- 
2.39.2