From 43d723eeb32041b612d9d1d2aa9bbdb4a170f4d0 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sun, 15 Apr 2012 10:30:23 +0200
Subject: Use croak, fix tests

---
 bin/icli | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'bin')

diff --git a/bin/icli b/bin/icli
index 1e15305..3cceb7c 100755
--- a/bin/icli
+++ b/bin/icli
@@ -7,6 +7,7 @@ use strict;
 use warnings;
 use 5.010;
 
+use Carp qw(croak);
 use Date::Format;
 use Getopt::Long qw/:config bundling/;
 use Term::ANSIColor;
@@ -364,7 +365,7 @@ sub service_state {
 		when (1) { return with_colour( ' WARNING', 'black on_yellow' ) }
 		when (2) { return with_colour( 'CRITICAL', 'white on_red' ) }
 		when (3) { return with_colour( ' UNKNOWN', 'white on_blue' ) }
-		default  { die("Unknown service state: $digit\n") }
+		default  { croak("Unknown service state: $digit\n") }
 	}
 }
 
@@ -379,7 +380,7 @@ sub host_state {
 		when (0) { return with_colour( '    OK     ', 'black on_green' ) }
 		when (1) { return with_colour( '   DOWN    ', 'white on_red' ) }
 		when (2) { return with_colour( 'UNREACHABLE', 'white on_blue' ) }
-		default  { die("Unknown host state: $digit\n") }
+		default  { croak("Unknown host state: $digit\n") }
 	}
 }
 
-- 
cgit v1.2.3