use tar's q flag for speed
This commit is contained in:
parent
806e87b536
commit
577a67662a
@ -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";
|
||||
|
Loading…
Reference in New Issue
Block a user