Merge pull request #6 from perlpunk/master

ptardiff should use $file->prefix if defined