[Bast-commits] r6182 - DBIx-Class/0.08/branches/oracle-tweaks/lib/DBIx/Class/InflateColumn

ribasushi at dev.catalyst.perl.org ribasushi at dev.catalyst.perl.org
Fri May 8 15:24:54 GMT 2009


Author: ribasushi
Date: 2009-05-08 15:24:54 +0000 (Fri, 08 May 2009)
New Revision: 6182

Modified:
   DBIx-Class/0.08/branches/oracle-tweaks/lib/DBIx/Class/InflateColumn/DateTime.pm
Log:
Remove redundant var

Modified: DBIx-Class/0.08/branches/oracle-tweaks/lib/DBIx/Class/InflateColumn/DateTime.pm
===================================================================
--- DBIx-Class/0.08/branches/oracle-tweaks/lib/DBIx/Class/InflateColumn/DateTime.pm	2009-05-08 15:10:58 UTC (rev 6181)
+++ DBIx-Class/0.08/branches/oracle-tweaks/lib/DBIx/Class/InflateColumn/DateTime.pm	2009-05-08 15:24:54 UTC (rev 6182)
@@ -132,13 +132,11 @@
     # the resulting deflator as a circular reference.
     my %info = ( '_ic_dt_method' => $type , %{ $info } );
 
-    my $floating_tz_ok;
     if (defined $info->{extra}{floating_tz_ok}) {
       warn "Putting floating_tz_ok into extra => { floating_tz_ok => 1 } has been deprecated, ".
            "please put it directly into the columns definition.";
-      $floating_tz_ok = $info->{extra}{floating_tz_ok};
+      $info{floating_tz_ok} = $info->{extra}{floating_tz_ok};
     }
-    $info{floating_tz_ok} = $floating_tz_ok unless defined $info{floating_tz_ok};
 
     $self->inflate_column(
       $column =>




More information about the Bast-commits mailing list