Changeset 11035 for trunk/PS-IPP-Config/lib/PS/IPP/Config.pm

Timestamp:

Jan 11, 2007, 12:13:06 PM (19 years ago)

Author:

eugene

Message:

convert PS_EXIT codes to scalars

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Config.pm (modified) (2 diffs)

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

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.22 2007-01-11 01:57:31 jhoblitt Exp $
+# $Id: Config.pm,v 1.23 2007-01-11 22:13:05 eugene Exp $
 
 package PS::IPP::Config;
@@ -20 +20 @@
 
 our @EXPORT_OK = 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
+    $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 constant {
-    PS_EXIT_SUCCESS => 0,
-    PS_EXIT_UNKNOWN_ERROR => 1,
-    PS_EXIT_SYS_ERROR => 2,
-    PS_EXIT_CONFIG_ERROR => 3,
-    PS_EXIT_PROG_ERROR => 4,
-    PS_EXIT_DATA_ERROR => 5,
-    PS_EXIT_TIMEOUT_ERROR => 6
-};
+our $PS_EXIT_SUCCESS = 0;
+our $PS_EXIT_UNKNOWN_ERROR = 1;
+our $PS_EXIT_SYS_ERROR = 2;
+our $PS_EXIT_CONFIG_ERROR = 3;
+our $PS_EXIT_PROG_ERROR = 4;
+our $PS_EXIT_DATA_ERROR = 5;
+our $PS_EXIT_TIMEOUT_ERROR = 6;
 
 our $parser = PS::IPP::Metadata::Config->new; # Metadata parser