From 552fddb9a1bb73b9e24cc53c65f63a363a770284 Mon Sep 17 00:00:00 2001
From: Brian Fraser <brian.fraser@percona.com>
Date: Thu, 28 Feb 2013 13:07:52 -0300
Subject: [PATCH] PerconaTest: use croak for slurp/load_file

---
 lib/PerconaTest.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/PerconaTest.pm b/lib/PerconaTest.pm
index 5da730b4..20dd523e 100644
--- a/lib/PerconaTest.pm
+++ b/lib/PerconaTest.pm
@@ -35,6 +35,8 @@ use constant PTDEVDEBUG => $ENV{PTDEVDEBUG} || 0;
 
 use Percona::Toolkit;
 
+use Carp qw(croak);
+
 use Test::More;
 use Time::HiRes qw(sleep time);
 use File::Temp qw(tempfile);
@@ -192,7 +194,7 @@ sub output {
 sub load_data {
    my ( $file ) = @_;
    $file = "$trunk/$file";
-   open my $fh, '<', $file or die "Cannot open $file: $OS_ERROR";
+   open my $fh, '<', $file or croak "Cannot open $file: $OS_ERROR";
    my $contents = do { local $/ = undef; <$fh> };
    close $fh;
    (my $data = join('', $contents =~ m/(.*)/g)) =~ s/\s+//g;
@@ -210,7 +212,7 @@ sub load_file {
 
 sub slurp_file {
    my ($file) = @_;
-   open my $fh, "<", $file or die "Cannot open $file: $OS_ERROR";
+   open my $fh, "<", $file or croak "Cannot open $file: $OS_ERROR";
    my $contents = do { local $/ = undef; <$fh> };
    close $fh;
    return $contents;