X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStartupCheck.pm;h=17ca65f7930d8f74bc59162a47c5f3c52680a4a1;hb=6c5aa1fbffdc9e5679d2f68780b11a9569ec1993;hp=986e4520b0446fc9e8fb7fb2259af1fe4e38817e;hpb=b46b85376ad7ff53fa4ec4350a19b4514c4e0d3b;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/StartupCheck.pm b/lib/DBIx/Class/StartupCheck.pm index 986e452..17ca65f 100644 --- a/lib/DBIx/Class/StartupCheck.pm +++ b/lib/DBIx/Class/StartupCheck.pm @@ -1,37 +1,7 @@ package DBIx::Class::StartupCheck; -# Temporary - tempextlib use warnings; use strict; -use namespace::clean; -BEGIN { - # There can be only one of these, make sure we get the bundled part and - # *not* something off the site lib - for (qw( - Sub::Quote - )) { - (my $incfn = "$_.pm") =~ s|::|/|g; - - if ($INC{$incfn}) { - die "\n\t*TEMPORARY* TRIAL RELEASE REQUIREMENTS VIOLATED\n\n" - . "Unable to continue - a part of the bundled templib contents " - . "was already loaded (likely an older version from CPAN). " - . "Make sure that @{[ __PACKAGE__ ]} is loaded before $_\n" - . "\n\tThis *WILL NOT* be necessary for the official DBIC release\n\n" - ; - } - } - - require File::Spec; - our ($HERE) = File::Spec->rel2abs( - File::Spec->catdir( (File::Spec->splitpath(__FILE__))[1], '_TempExtlib' ) - ) =~ /^(.*)$/; # screw you, taint mode - - die "TempExtlib $HERE does not seem to exist - perhaps you need to run `perl Makefile.PL` in the DBIC checkout?\n" - unless -d $HERE; - - unshift @INC, $HERE; -} 1;