Lines Matching refs:filename
46 my ($filename) = @_;
50 @stat = stat($filename);
63 my ($filename) = @_;
64 my @date = get_file_info($filename);
70 open(IN, "<$filename") || die ("Error: cannot open $filename\n");
71 open(OUT, ">$filename.new") ||
72 die("Error: cannot create $filename.new\n");
80 chmod(oct($date[2]), "$filename.new");
81 system("mv", "-f", "$filename.new", "$filename");
82 system("touch", "$filename", "-t", $date[1]);
87 my ($filename) = @_;
88 my @date = get_file_info($filename);
92 open(IN, "<$filename") || die ("Error: cannot open $filename\n");
93 open(OUT, ">$filename.new") ||
94 die("Error: cannot create $filename.new\n");
101 chmod(oct($date[2]), "$filename.new");
102 system("mv", "-f", "$filename.new", "$filename");
103 system("touch", "$filename", "-t", $date[1]);
108 my ($filename) = @_;
109 my @date = get_file_info($filename);
113 open(IN, "<$filename") || die ("Error: cannot open $filename\n");
114 open(OUT, ">$filename.new") ||
115 die("Error: cannot create $filename.new\n");
122 chmod(oct($date[2]), "$filename.new");
123 system("mv", "-f", "$filename.new", "$filename");
124 system("touch", "$filename", "-t", $date[1]);
129 my ($filename) = @_;
130 my @date = get_file_info($filename);
134 open(IN, "<$filename") || die ("Error: cannot open $filename\n");
135 open(OUT, ">$filename.new") ||
136 die("Error: cannot create $filename.new\n");
144 system("mv", "-f", "$filename.new", "$filename");
145 system("touch", "$filename", "-t", $date[1]);
