read (FILE, $_, 8);
($magic, $method, $flags, $time) = unpack ("A2C2V", $_);
if ($magic eq "\037\213") {
- utime ($time, $time, $file);
+ utime ($time, $time, $file);
}
else {
- warn "$file is not compressed with gzip!\n";
+ warn "$file is not compressed with gzip!\n";
}
}