Update upstream source from tag 'upstream/1.9'
[debian/gzip] / sample / ztouch
index e408e2bc50bdd5c24ec823ad29a198125159508b..297f62112546bc86c5b8ab70c0e3ecff000907b0 100755 (executable)
@@ -1,5 +1,5 @@
 #! /usr/local/bin/perl
-# Set the time stamp of a gzip'ed file from that stored in the file.
+# Set the timestamp of a gzip'ed file from that stored in the file.
 # usage: ztouch files...
 
 foreach $file (@ARGV) {
@@ -7,9 +7,9 @@ foreach $file (@ARGV) {
     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";
     }
 }