cvs commit: p5ee/App-Repository/lib/App/Repository MySQL2.pm

[Stephen Adkins]

cvsuser     03/07/01 13:54:58

  Modified:    App-Repository/lib/App/Repository MySQL2.pm
  Log:
  save errmsg before destroying it
  
  Revision  Changes    Path
  1.7       +4 -3      p5ee/App-Repository/lib/App/Repository/MySQL2.pm
  
  Index: MySQL2.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Repository/lib/App/Repository/MySQL2.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -w -r1.6 -r1.7
  --- MySQL2.pm 20 Jun 2003 17:27:00 -0000      1.6
  +++ MySQL2.pm 1 Jul 2003 20:54:58 -0000       1.7
  @@ -1,12 +1,12 @@
   
   ######################################################################
  -## File: $Id: MySQL2.pm,v 1.6 2003/06/20 17:27:00 spadkins Exp $
  +## File: $Id: MySQL2.pm,v 1.7 2003/07/01 20:54:58 spadkins Exp $
   ######################################################################
   
   use App::Repository::MySQL;
   
   package App::Repository::MySQL2;
  -$VERSION = do { my @r=(q$Revision: 1.6 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
  +$VERSION = do { my @r=(q$Revision: 1.7 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
   
   @ISA = ( "App::Repository::MySQL" );
   
  @@ -254,8 +254,9 @@
           }
       };
       if ($@) {
  +        my $errmsg = $@;
           $self->_unlock_table($table);
  -        die "Exception in store_rows(): $@";
  +        die "Exception in store_rows(): $errmsg";
       }
       $self->_unlock_table($table);
       $self->{numrows} = $nrows;