[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