From 3b5bc47c994cb2523dba6617d5e05156f6c2ff27 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 5 Jul 2017 18:18:26 -0700
Subject: [PATCH] croak in subroutines

---
 Debbugs/Common.pm   | 2 +-
 Debbugs/Packages.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/Debbugs/Common.pm b/Debbugs/Common.pm
index 9305d3f..276cbd0 100644
--- a/Debbugs/Common.pm
+++ b/Debbugs/Common.pm
@@ -431,7 +431,7 @@ sub __add_to_hash {
     }
     $type //= 'address';
     my $fh = IO::File->new($fn,'r') or
-	die "Unable to open $fn for reading: $!";
+	croak "Unable to open $fn for reading: $!";
     binmode($fh,':encoding(UTF-8)');
     while (<$fh>) {
 	chomp;
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);
-- 
2.39.2