my $script = File::Spec->catfile(
File::Spec->catdir(
- File::Spec->updir, qw[lib Archive Tar bin]
+ File::Spec->updir, qw[ext Archive-Tar bin]
), "ptar");
if (open(IN, $script)) {
my $script = File::Spec->catfile(
File::Spec->catdir(
- File::Spec->updir, qw[lib Archive Tar bin]
+ File::Spec->updir, qw[ext Archive-Tar bin]
), "ptardiff");
if (open(IN, $script)) {