Changeset 11728 for trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm

Timestamp:

Feb 8, 2007, 5:55:22 PM (19 years ago)

Author:

Paul Price

Message:

Removing croak in favour of carp followed by exit, using an appropriate exit code.

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm (modified) (3 diffs)

trunk/PS-IPP-Config/lib/PS/IPP/Metadata/Stats.pm

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Stats.pm,v 1.12 2006-10-12 23:42:56 price Exp $
+# $Id: Stats.pm,v 1.13 2007-02-09 03:55:22 price Exp $
 
 package PS::IPP::Metadata::Stats;
@@ -10 +10 @@
 our $VERSION = '0.02';
 
-use Carp qw( carp croak );
+use Carp qw( carp );
 use Statistics::Descriptive;
+
+use PS::IPP::Config qw(
+    $PS_EXIT_SUCCESS
+    $PS_EXIT_UNKNOWN_ERROR
+    $PS_EXIT_SYS_ERROR
+    $PS_EXIT_CONFIG_ERROR
+    $PS_EXIT_PROG_ERROR
+    $PS_EXIT_DATA_ERROR
+    $PS_EXIT_TIMEOUT_ERROR
+    );
 
 use base qw( Class::Accessor::Fast );
@@ -233 +243 @@
     }
 
-    croak "Unrecognised type (", $type, ") for value of ", $name, "\n";
+    carp "Unrecognised type (", $type, ") for value of ", $name, "\n";
+    exit($PS_EXIT_PROG_ERROR);
     return;
 }