Removed unused variable and added extra comment.
David Wheeler
21 years ago
| 0 | 0 | package Exception::Class::DBI; |
| 1 | 1 | |
| 2 | # $Id: DBI.pm,v 1.3 2002/08/22 17:34:56 david Exp $ | |
| 2 | # $Id: DBI.pm,v 1.4 2002/08/22 17:36:39 david Exp $ | |
| 3 | 3 | |
| 4 | 4 | use 5.00500; |
| 5 | 5 | use strict; |
| 103 | 103 | my $exc = 'Exception::Class::DBI'; |
| 104 | 104 | # Make it an unknown exception if $dbh isn't a DBI class name. |
| 105 | 105 | $exc .= '::Unknown' unless $dbh and UNIVERSAL::isa($dbh, 'DBI'); |
| 106 | my @params; | |
| 107 | 106 | if ($DBI::lasth) { |
| 108 | # There was a handle. Get the errors. | |
| 107 | # There was a handle. Get the errors. This may be superfluous, | |
| 108 | # since the handle ought to be in $dbh. | |
| 109 | 109 | die $exc->new( error => $err, |
| 110 | 110 | errstr => $DBI::errstr, |
| 111 | 111 | err => $DBI::err, |