X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=blobdiff_plain;f=Debbugs%2FPackages.pm;h=6980315f06afef7b160d6ea47af695c1dc5bc2eb;hp=6974c1778d1a3fc4b1d71cbc45f15793ada267d6;hb=3b5bc47c994cb2523dba6617d5e05156f6c2ff27;hpb=a844a562081aab9ae8489c293d2f38026b6e87b1

diff --git a/Debbugs/Packages.pm b/Debbugs/Packages.pm
index 6974c17..6980315 100644
--- a/Debbugs/Packages.pm
+++ b/Debbugs/Packages.pm
@@ -79,7 +79,7 @@ sub getpkgsrc {
     my %srcpkg;
 
     my $fh = IO::File->new($config{package_source},'r')
-	or die("Unable to open $config{package_source} for reading: $!");
+	or croak("Unable to open $config{package_source} for reading: $!");
     while(<$fh>) {
 	next unless m/^(\S+)\s+(\S+)\s+(\S.*\S)\s*$/;
 	my ($bin,$cmp,$src)=($1,$2,$3);