From: Peter Rabbitson Date: Tue, 10 Feb 2015 13:05:40 +0000 (+0100) Subject: Remove obsolete startup check (introduced in 5e724964, superseded by a5a7bb73) X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a02d6f59921ef4d04ee17710c7a8bb7aeef10799;p=dbsrgits%2FDBIx-Class-Historic.git Remove obsolete startup check (introduced in 5e724964, superseded by a5a7bb73) --- diff --git a/t/lib/DBICTest/Util.pm b/t/lib/DBICTest/Util.pm index 3760df8..4a8f2c2 100644 --- a/t/lib/DBICTest/Util.pm +++ b/t/lib/DBICTest/Util.pm @@ -17,25 +17,6 @@ BEGIN { } } -use Module::Runtime 'module_notional_filename'; -BEGIN { - for my $mod (qw( SQL::Abstract::Test SQL::Abstract )) { - if ( $INC{ module_notional_filename($mod) } ) { - # FIXME this does not seem to work in BEGIN - why?! - #require Carp; - #$Carp::Internal{ (__PACKAGE__) }++; - #Carp::croak( __PACKAGE__ . " must be loaded before $mod" ); - - my ($fr, @frame) = 1; - while (@frame = caller($fr++)) { - last if $frame[1] !~ m|^t/lib/DBICTest|; - } - - die __PACKAGE__ . " must be loaded before $mod (or modules using $mod) at $frame[1] line $frame[2]\n"; - } - } -} - use Config; use Carp 'confess'; use Scalar::Util qw(blessed refaddr);