X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F90bug_58_mro.t;h=e2c8d48fbb7bcc665f0c303bf1b70124a6918dd1;hb=494e020541e534ac7a097872eeeb344a0b13ec5a;hp=53556e031f0af35ab3a93a0e453cacf0f96137ac;hpb=f8c2ca5eac1d4782c1d5be369c9bd0dcf680cb9d;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/t/90bug_58_mro.t b/t/90bug_58_mro.t index 53556e0..e2c8d48 100644 --- a/t/90bug_58_mro.t +++ b/t/90bug_58_mro.t @@ -6,21 +6,21 @@ use DBIx::Class::Schema::Loader; # use this if you keep a copy of DBD::Sybase linked to FreeTDS somewhere else BEGIN { - if (my $lib_dirs = $ENV{DBICTEST_MSSQL_PERL5LIB}) { - unshift @INC, $_ for split /:/, $lib_dirs; - } + if (my $lib_dirs = $ENV{DBICTEST_MSSQL_PERL5LIB}) { + unshift @INC, $_ for split /:/, $lib_dirs; + } } my ($dsn, $user, $pass); for (qw/MSSQL_ODBC MSSQL_ADO MSSQL/) { - next unless $ENV{"DBICTEST_${_}_DSN"}; + next unless $ENV{"DBICTEST_${_}_DSN"}; - $dsn = $ENV{"DBICTEST_${_}_DSN"}; - $user = $ENV{"DBICTEST_${_}_USER"}; - $pass = $ENV{"DBICTEST_${_}_PASS"}; + $dsn = $ENV{"DBICTEST_${_}_DSN"}; + $user = $ENV{"DBICTEST_${_}_USER"}; + $pass = $ENV{"DBICTEST_${_}_PASS"}; - last; + last; } plan skip_all => 'perl 5.8 required for this test'