diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-12-28 17:44:15 -0600 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-12-28 17:44:15 -0600 |
commit | 9f0615943cad69433a241a00f392b7e5c8df171a (patch) | |
tree | 2de2de6ce010ce8f3b4452a1c4e2dc90b5eaa39d /t/027_sugar_w_include.t | |
parent | 5b860788353f345bec807a8eab3882c24acc3971 (diff) | |
download | p6-bread-board-9f0615943cad69433a241a00f392b7e5c8df171a.tar.gz p6-bread-board-9f0615943cad69433a241a00f392b7e5c8df171a.zip |
use $*PROGRAM_NAME instead of $?FILE
probably more reliable
Diffstat (limited to 't/027_sugar_w_include.t')
-rw-r--r-- | t/027_sugar_w_include.t | 2 |
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); |