@@ -43,6 +43,7 @@ package TestLib;
4343use strict;
4444use warnings;
4545
46+ use Carp;
4647use Config;
4748use Cwd;
4849use Exporter' import'
@@ -421,7 +422,7 @@ sub slurp_dir
421422{
422423my ($dir ) =@_ ;
423424opendir (my $dh ,$dir )
424- or die " could not opendir\" $dir \" :$! "
425+ or croak " could not opendir\" $dir \" :$! "
425426my @direntries =readdir $dh ;
426427closedir $dh ;
427428return @direntries ;
@@ -443,19 +444,19 @@ sub slurp_file
443444if ($Config {osname }ne ' MSWin32'
444445{
445446open (my $in ,' <' $filename )
446- or die " could not read\" $filename \" :$! "
447+ or croak " could not read\" $filename \" :$! "
447448$contents = <$in >;
448449close $in ;
449450}
450451else
451452{
452453my $fHandle = createFile($filename ," r" " rwd"
453- or die " could not open\" $filename \" : $^E"
454+ or croak " could not open\" $filename \" : $^E"
454455OsFHandleOpen(my $fh = IO::Handle-> new(),$fHandle ,' r'
455- or die " could not read\" $filename \" : $^E\n "
456+ or croak " could not read\" $filename \" : $^E\n "
456457$contents = <$fh >;
457458CloseHandle($fHandle )
458- or die " could not close\" $filename \" : $^E\n "
459+ or croak " could not close\" $filename \" : $^E\n "
459460}
460461$contents =~s /\r\n / \n / g if $Config {osname }eq ' msys'
461462return $contents ;
@@ -474,7 +475,7 @@ sub append_to_file
474475{
475476my ($filename ,$str ) =@_ ;
476477open my $fh ," >>" $filename
477- or die " could not write\" $filename \" :$! "
478+ or croak " could not write\" $filename \" :$! "
478479print $fh $str ;
479480close $fh ;
480481return ;