From 78bc2fc590e1b8e4ea29b97f3e86d93eb8574912 Mon Sep 17 00:00:00 2001
From: Hauke D <haukex@zero-g.net>
Date: Thu, 21 Feb 2019 12:18:42 +0100
Subject: [PATCH] Allow prove to run without '.' in @INC

---
 t/08-errors.t          | 6 ++++--
 t/FlawedStatisticsR.pm | 2 +-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/t/08-errors.t b/t/08-errors.t
index a92ca4d..884b96f 100644
--- a/t/08-errors.t
+++ b/t/08-errors.t
@@ -37,8 +37,10 @@ SKIP: {
 
    is $R->run(q`a <- 1;`), '';
 
-   use_ok 't::FlawedStatisticsR';
-   ok $R = t::FlawedStatisticsR->new();
+   use FindBin;
+   use lib $FindBin::Bin;
+   use_ok 'FlawedStatisticsR';
+   ok $R = FlawedStatisticsR->new();
    eval {
       $R->run( qq`print("Hello");\ncolors<-c("red")` );
    };
diff --git a/t/FlawedStatisticsR.pm b/t/FlawedStatisticsR.pm
index 4977250..2ca4a46 100644
--- a/t/FlawedStatisticsR.pm
+++ b/t/FlawedStatisticsR.pm
@@ -1,4 +1,4 @@
-package t::FlawedStatisticsR;
+package FlawedStatisticsR;
 
 use Statistics::R;
 use base qw(Statistics::R);