Home | History | Annotate | Download | only in scripts

Lines Matching refs:in_path

140 	my $in_path = shift;
141 	if (-T $in_path) 
150 			print "# BEGIN: '$in_path'\n";
156 			$opt_g and print "temporary for '$in_path' is '$out_path'\n";
158 		open (IN, "<$in_path") or die "error: can't open '$in_path' for reading: $!";
168 			print "# END: '$in_path'\n";
180 				my $backup_command = "cp '$in_path' '$in_path.bak'";
186 			my $copy_command = "cp '$out_path' '$in_path'";