fixes https://rt.cpan.org/Ticket/Display.html?id=93432

[dbsrgits/DBIx-Class-InflateColumn-Object-Enum.git] / lib / DBIx / Class / InflateColumn / Object / Enum.pm

diff --git a/lib/DBIx/Class/InflateColumn/Object/Enum.pm b/lib/DBIx/Class/InflateColumn/Object/Enum.pm
index 2d66a78..bbcba64 100644 (file)
--- a/lib/DBIx/Class/InflateColumn/Object/Enum.pm
+++ b/lib/DBIx/Class/InflateColumn/Object/Enum.pm
@@ -95,12 +95,11 @@ sub register_column {
     
     my $values = $info->{extra}->{list};
     my %values = map {$_=>1} @{$values};
-    
-    if ( defined($info->{default_value}) && !exists $values{$info->{default_value}}) {
-        push(@{$values},$info->{default_value});
-        $values->{$info->{default_value}} = 1;
-    }
-    
+
+    push(@{$values},$info->{default_value})
+        if defined($info->{default_value})
+        && !exists $values{$info->{default_value}};
+
     $self->inflate_column(
         $column => {
             inflate => sub {