summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2012-12-28 17:44:15 -0600
committerJesse Luehrs <doy@tozt.net>2012-12-28 17:44:15 -0600
commit9f0615943cad69433a241a00f392b7e5c8df171a (patch)
tree2de2de6ce010ce8f3b4452a1c4e2dc90b5eaa39d
parent5b860788353f345bec807a8eab3882c24acc3971 (diff)
downloadp6-bread-board-9f0615943cad69433a241a00f392b7e5c8df171a.tar.gz
p6-bread-board-9f0615943cad69433a241a00f392b7e5c8df171a.zip
use $*PROGRAM_NAME instead of $?FILE
probably more reliable
-rw-r--r--t/027_sugar_w_include.t2
1 files changed, 1 insertions, 1 deletions
diff --git a/t/027_sugar_w_include.t b/t/027_sugar_w_include.t
index 84a180f..0f2715f 100644
--- a/t/027_sugar_w_include.t
+++ b/t/027_sugar_w_include.t
@@ -3,7 +3,7 @@ use Test;
use Bread::Board;
-my $DIR = $?FILE.split('/')[0..*-2].join('/');
+my $DIR = $*PROGRAM_NAME.split('/')[0..*-2].join('/');
sub like ($str, Regex $rx, $reason = '') {
ok($str ~~ $rx, $reason);