die "Syntax: $0 <pathname((".join("|",map(".$_",sort keys %{+FORMATS})).")|=<ext>)>..."
if !@ARGV;
+my @extdirs;
my $origdir=cwd;
for my $fname (@ARGV) {
my @parsed;
print "\t$extdir/:\n"; STDOUT->flush();
my $rc;
$rc=system $cmd and die "$cmd (rc=".($rc>>8)."): $!";
+ push @extdirs,$extdir;
}
continue {
chdir $origdir;
}
+print "extdir=".$extdirs[0]."\n" if 1==@extdirs;
exit 0;