use tar's q flag for speed

This commit is contained in:
espie 1999-10-26 15:37:42 +00:00
parent 806e87b536
commit 577a67662a

View File

@ -9,7 +9,7 @@ for $file (<*.tgz>)
$name =~ s/\.tgz$//;
unless ($cache && -f "t/CONTENTS.$name")
{
system("tar zxf $file +CONTENTS");
system("tar zxqf $file +CONTENTS");
rename("+CONTENTS", "t/CONTENTS.$name");
}
open(FILE, "t/CONTENTS.$name") or die "No contents";