Changeset 3275

Timestamp:

03/12/09 02:59:22 (3 years ago)

Author:

jquelin

Message:

removing duplicated constants

File:

• trunk/Padre/lib/Padre/Config.pm (modified) (3 diffs)

trunk/Padre/lib/Padre/Config.pm

@@ -36 +36 @@
 our $SINGLETON = undef;
 
-# Settings Types (based on Firefox)
-use constant BOOLEAN => 0;
-use constant POSINT  => 1;
-use constant INTEGER => 2;
-use constant ASCII  => 3;
-use constant PATH    => 4;
-
-# Setting Stores
-use constant HOST    => 0;
-use constant HUMAN   => 1;
-use constant PROJECT => 2;
 
 # Accessor generation
@@ -494 +483 @@
             Carp::croak("Did not provide a project config to Padre::Config->new");
         }
-        $self->[PROJECT] = $project;
+        $self->[$PROJECT] = $project;
     }
 
@@ -525 +514 @@
         Carp::croak("Tried to change setting '$name' to non-integer '$value'");
     }
-    if ( $type == PATH and not -e $value ) {
+    if ( $type == $PATH and not -e $value ) {
         Carp::croak("Tried to change setting '$name' to non-existant path '$value'");
     }