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 9305d3f1..276cbd0f 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 6974c177..6980315f 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.5