cvsuser 03/06/12 11:46:04
Modified: App-Repository/lib/App/Repository DBI.pm MySQL.pm
Log:
enable ShowErrorStatement on dbi handles
Revision Changes Path
1.6 +8 -3 p5ee/App-Repository/lib/App/Repository/DBI.pm
Index: DBI.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Repository/lib/App/Repository/DBI.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -w -r1.5 -r1.6
--- DBI.pm 19 May 2003 17:41:15 -0000 1.5
+++ DBI.pm 12 Jun 2003 18:46:04 -0000 1.6
@@ -1,13 +1,13 @@
######################################################################
-## File: $Id: DBI.pm,v 1.5 2003/05/19 17:41:15 spadkins Exp $
+## File: $Id: DBI.pm,v 1.6 2003/06/12 18:46:04 spadkins Exp $
######################################################################
use App;
use App::Repository;
package App::Repository::DBI;
-$VERSION = do { my @r=(q$Revision: 1.5 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.6 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
@ISA = ( "App::Repository" );
@@ -208,7 +208,12 @@
# likely overridden at the subclass level
sub _attr {
&App::sub_entry if ($App::trace_subs);
- my $attr = { "PrintError" => 0, "AutoCommit" => 1, "RaiseError" => 1 };
+ my $attr = {
+ PrintError => 0,
+ AutoCommit => 1,
+ RaiseError => 1,
+ ShowErrorStatement => 1,
+ };
&App::sub_exit($attr) if ($App::trace_subs);
return($attr);
}
1.4 +2 -9 p5ee/App-Repository/lib/App/Repository/MySQL.pm
Index: MySQL.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Repository/lib/App/Repository/MySQL.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- MySQL.pm 21 May 2003 17:11:50 -0000 1.3
+++ MySQL.pm 12 Jun 2003 18:46:04 -0000 1.4
@@ -1,12 +1,12 @@
######################################################################
-## File: $Id: MySQL.pm,v 1.3 2003/05/21 17:11:50 spadkins Exp $
+## File: $Id: MySQL.pm,v 1.4 2003/06/12 18:46:04 spadkins Exp $
######################################################################
use App::Repository::DBI;
package App::Repository::MySQL;
-$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.4 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
@ISA = ( "App::Repository::DBI" );
@@ -62,13 +62,6 @@
&App::sub_exit($dsn) if ($App::trace_subs);
return($dsn);
-}
-
-sub _attr {
- &App::sub_entry if ($App::trace_subs);
- my $attr = { "PrintError" => 0, "AutoCommit" => 1, "RaiseError" => 1 };
- &App::sub_exit($attr) if ($App::trace_subs);
- return($attr);
}
sub _mk_select_sql_suffix {
