[Jifty-commit] r5030 - in Jifty-DBI/branches/tisql: lib/Jifty/DBI

Jifty commits jifty-commit at lists.jifty.org
Tue Feb 5 21:17:32 EST 2008


Author: ruz
Date: Tue Feb  5 21:17:32 2008
New Revision: 5030

Modified:
   Jifty-DBI/branches/tisql/   (props changed)
   Jifty-DBI/branches/tisql/lib/Jifty/DBI/Record.pm

Log:
 r4780 at cubic-pc (orig r4779):  alexmv | 2007-12-28 02:35:02 +0300
  r26220 at zoq-fot-pik:  chmrr | 2007-12-27 18:34:28 -0500
   * Revert mistaken change
 


Modified: Jifty-DBI/branches/tisql/lib/Jifty/DBI/Record.pm
==============================================================================
--- Jifty-DBI/branches/tisql/lib/Jifty/DBI/Record.pm	(original)
+++ Jifty-DBI/branches/tisql/lib/Jifty/DBI/Record.pm	Tue Feb  5 21:17:32 2008
@@ -258,9 +258,7 @@
     # Check for the correct column type when the Storable filter is in use
     if ( grep { $_ eq 'Jifty::DBI::Filter::Storable' }
         ( $column->input_filters, $column->output_filters )
-         and not grep { $_ eq 'Jifty::DBI::Filter::base64' }
-        ( $column->input_filters, $column->output_filters )
-         and $column->type !~ /^(blob|bytea)$/i )
+            and $column->type !~ /^(blob|bytea)$/i )
     {
         die "Column '$column_name' in @{[$column->record_class]} "
             . "uses the Storable filter but is not of type 'blob'.\n";
@@ -314,6 +312,7 @@
                 $subref = sub { return '' }
             }
         } else {
+
            # XXX sterling: should this be done with Class::ReturnValue instead
             $subref = sub {
                 Carp::croak(
@@ -321,7 +320,6 @@
                         . $self->schema_version );
             };
         }
-        require Sub::Name; Sub::Name::subname($package . "::" . $column_name, $subref);
         *{ $package . "::" . $column_name } = $subref;
 
     }
@@ -396,7 +394,6 @@
                         . $self->schema_version );
             };
         }
-        require Sub::Name; Sub::Name::subname($package . "::set_" . $column_name, $subref);
         *{ $package . "::" . "set_" . $column_name } = $subref;
     }
 }


More information about the Jifty-commit mailing list