diff options
| -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); |