From: Peter Eisentraut <peter@eisentraut.org>
Date: Thu, 22 Oct 2020 11:29:39 +0000 (+0200)
Subject: Use croak instead of die in Perl code when appropriate
X-Git-Tag: REL_14_BETA1~1448
X-Git-Url: http://git.postgresql.org/gitweb/?a=commitdiff_plain;h=f8721bd752790859df747905bc44fb5ad8dbf07d;p=postgresql.git

Use croak instead of die in Perl code when appropriate
---

diff --git a/src/test/perl/TestLib.pm b/src/test/perl/TestLib.pm
index cbe87f86843..1baf6bd0017 100644
--- a/src/test/perl/TestLib.pm
+++ b/src/test/perl/TestLib.pm
@@ -43,6 +43,7 @@ package TestLib;
 use strict;
 use warnings;
 
+use Carp;
 use Config;
 use Cwd;
 use Exporter 'import';
@@ -421,7 +422,7 @@ sub slurp_dir
 {
 	my ($dir) = @_;
 	opendir(my $dh, $dir)
-	  or die "could not opendir \"$dir\": $!";
+	  or croak "could not opendir \"$dir\": $!";
 	my @direntries = readdir $dh;
 	closedir $dh;
 	return @direntries;
@@ -443,19 +444,19 @@ sub slurp_file
 	if ($Config{osname} ne 'MSWin32')
 	{
 		open(my $in, '<', $filename)
-		  or die "could not read \"$filename\": $!";
+		  or croak "could not read \"$filename\": $!";
 		$contents = <$in>;
 		close $in;
 	}
 	else
 	{
 		my $fHandle = createFile($filename, "r", "rwd")
-		  or die "could not open \"$filename\": $^E";
+		  or croak "could not open \"$filename\": $^E";
 		OsFHandleOpen(my $fh = IO::Handle->new(), $fHandle, 'r')
-		  or die "could not read \"$filename\": $^E\n";
+		  or croak "could not read \"$filename\": $^E\n";
 		$contents = <$fh>;
 		CloseHandle($fHandle)
-		  or die "could not close \"$filename\": $^E\n";
+		  or croak "could not close \"$filename\": $^E\n";
 	}
 	$contents =~ s/\r\n/\n/g if $Config{osname} eq 'msys';
 	return $contents;
@@ -474,7 +475,7 @@ sub append_to_file
 {
 	my ($filename, $str) = @_;
 	open my $fh, ">>", $filename
-	  or die "could not write \"$filename\": $!";
+	  or croak "could not write \"$filename\": $!";
 	print $fh $str;
 	close $fh;
 	return;