--- t/01-dict.t

+++ t/01-dict.t

@@ -23,10 +23,10 @@ use Time::HiRes qw/time/;

 $| = 1;

 my $time2load = time();

 print "# loading t/_dict.rx ... ";

-my $rx = do 't/_dict.rx';

+my $rx = do './t/_dict.rx';

 $time2load = time() - $time2load;

 print "done. took $time2load seconds.\n";

-open my $dict, "<:raw", "t/dict" or die "$!";

+open my $dict, "<:raw", "t/_dict" or die "$!";

 while ( my $line = <$dict> ) {

     chomp $line;

     ok( $line =~ /^$rx$/, $line );