Searched refs:cleanfile (Results 1 – 1 of 1) sorted by relevance
56 my ( $outfile, $outfile_sh, $outfile_bat, $bootfile, $cleanfile, $newline, $comment,2349 $cleanfile = "clean";2350 open( OUT, ">$cleanfile" ) ||2351 die "Cannot open $cleanfile: $!\n";2358 close( OUT ) || print "Can't close $cleanfile: $!";2359 system("chmod +x $cleanfile");2365 $tmp = $SRC_ROOT.$ds.$cleanfile;2366 if (rename( $cleanfile, $tmp ) ne 1)2367 { `mv -f $cleanfile $tmp`;