my $path = File::Spec->catfile('t', 'tdir');
like $cksum->{1}{cpan_path}, qr{\Q$path\E$},
        "cpan_path is as expected" or diag explain $cksum;