Lines Matching refs:date
64 my @date = get_file_info($filename);
65 my $date_string = $date[0];
80 chmod(oct($date[2]), "$filename.new");
82 system("touch", "$filename", "-t", $date[1]);
88 my @date = get_file_info($filename);
101 chmod(oct($date[2]), "$filename.new");
103 system("touch", "$filename", "-t", $date[1]);
109 my @date = get_file_info($filename);
117 s/(Last\s+changes:\s+)\d\d\d\d-\d\d-\d\d/$1$date[0]/g;
122 chmod(oct($date[2]), "$filename.new");
124 system("touch", "$filename", "-t", $date[1]);
130 my @date = get_file_info($filename);
145 system("touch", "$filename", "-t", $date[1]);
