in reply to Devel::Cover looking at wrong path.

What does
perl -MCwd -e ' die Cwd::abs_path(shift) ' cover_db
print?