[siesta-commit] siesta/lib/Siesta/Storage Table.pm,1.4,1.5

[prev] [thread] [next] [lurker] [Date index for 2002/08/23]

Update of /cvsroot/siesta/siesta/lib/Siesta/Storage
In directory usw-pr-cvs1:/tmp/cvs-serv27408

Modified Files:
	Table.pm 
Log Message:
have dbi barf early + damn inconsiderate rewrite


Index: Table.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Storage/Table.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Table.pm	23 Aug 2002 15:15:19 -0000	1.4
+++ Table.pm	23 Aug 2002 18:35:31 -0000	1.5
@@ -6,24 +6,25 @@
 
 my $DBFILE = $Siesta::Config::DBFILE;
 
-Siesta::Storage::Table->set_db('Main', "dbi:SQLite:$DBFILE",'','');
+Siesta::Storage::Table->set_db('Main', "dbi:SQLite:$DBFILE", '', '',
+                               { RaiseError => 1 } );
 
 # there must be a better way than this ...
 __PACKAGE__->make_filter(search2 => '%s = ? AND %s = ?');
 
 sub new {
-  my $class = shift;
-  my ($table_name,$primary,@fields) = @_;
-  $class->table($table_name);
-  $class->columns( All     => @fields    );
-  my $self;
-  $self->{table_name} = $table_name;
+    my $class = shift;
+    my ($table_name,$primary,@fields) = @_;
+    $class->table($table_name);
+    $class->columns( All     => @fields    );
+    my $self;
+    $self->{table_name} = $table_name;
     return bless $self, $class;
 }
 
 sub dbh {
-  my $self = shift;
-  return $self->db_Main;
+    my $self = shift;
+    return $self->db_Main;
 }
 
 1;

• [siesta-commit] siesta/lib/Siesta/Storage Table.pm,1.4,1.5 clampr 19:35 on 23 Aug 2002

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52