for draven

diff --git a/Changes b/Changes
index 8552b1d..8a529af 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 This file documents the revision history for Perl extension Catalyst.
 
+4.22  Tue Mar 09 20:00:00 2005
+        - catch errors in application class
+
 4.21  Sat Mar 05 17:00:00 2005
         - fixed docs
 

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index 6a73021..ab7de52 100644 (file)
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -7,7 +7,7 @@ use Catalyst::Log;
 
 __PACKAGE__->mk_classdata($_) for qw/_config log/;
 
-our $VERSION = '4.21';
+our $VERSION = '4.22';
 our @ISA;
 
 =head1 NAME

diff --git a/lib/Catalyst/Test.pm b/lib/Catalyst/Test.pm
index 926885b..3f5452d 100644 (file)
--- a/lib/Catalyst/Test.pm
+++ b/lib/Catalyst/Test.pm
@@ -61,7 +61,8 @@ sub import {
     my $self = shift;
     $class = shift;
     $class->require;
-    if ( ( caller(0) )[1] eq '-e' ) {
+    my $caller = ( caller(0) )[1];
+    unless ( $INC{'Test/Builder.pm'} ) {
         die qq/Couldn't load "$class", "$@"/ if $@;
     }
     my $caller = caller(0);