From 9f0615943cad69433a241a00f392b7e5c8df171a Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 28 Dec 2012 17:44:15 -0600
Subject: use $*PROGRAM_NAME instead of $?FILE

probably more reliable
---
 t/027_sugar_w_include.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 't')

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);
-- 
cgit v1.2.3-54-g00ecf