cvs commit: p5ee/P5EEx/Blue/P5EEx/Blue Exceptions.pm

[spadkins]

cvsuser     02/01/03 11:53:36

  Modified:    P5EEx/Blue/P5EEx/Blue Exceptions.pm
  Log:
  fixed exception inheritance
  
  Revision  Changes    Path
  1.4       +3 -2      p5ee/P5EEx/Blue/P5EEx/Blue/Exceptions.pm
  
  Index: Exceptions.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Exceptions.pm,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -w -r1.3 -r1.4
  --- Exceptions.pm     5 Dec 2001 22:45:03 -0000       1.3
  +++ Exceptions.pm     3 Jan 2002 19:53:36 -0000       1.4
  @@ -1,6 +1,7 @@
   
   BEGIN {
  -    @Exception::Class::Base::ISA = 'Error::Simple';
  +    use Error;
  +    push (@Exception::Class::Base::ISA, 'Error::Simple');
   }
   
   package P5EEx::Blue::Exceptions;
  @@ -8,7 +9,7 @@
   use strict;
   use vars qw($VERSION);
   
  -$VERSION = sprintf '%2d.%02d', q$Revision: 1.3 $ =~ /(\d+)\.(\d+)/;
  +$VERSION = sprintf '%2d.%02d', q$Revision: 1.4 $ =~ /(\d+)\.(\d+)/;
   
   my %e;