Use proper file handles, add a die if can't open file for writing

svn path=/; revision=590

diff --git a/interactome_scripts/fasta_header_fix.pl b/interactome_scripts/fasta_header_fix.pl
index 9b7265328306c465e92dfa7d179e670a49d46ed0..9635692f36f416df298e3e77b436de5e9164019c 100755 (executable)
--- a/interactome_scripts/fasta_header_fix.pl
+++ b/interactome_scripts/fasta_header_fix.pl
@@ -19,20 +19,20 @@ if($#ARGV != 1) {
 my $input_file = $ARGV[0];
 my $output_file = $ARGV[1];
        
-open(in_file, $input_file)  || die "Error: File $input_file can not be opened";
-open(out_file, ">$output_file");
+open(INFILE, $input_file)  || die "Error: File $input_file can not be opened";
+open(OUTFILE, ">$output_file") || die "Error: File $output_file can not be opened";
        
 my $species = find_species($input_file);
 
-while(<in_file>) {
+while(<INFILE>) {
        my $line = $_;
        chomp $line;
        if ($line =~ /^>/) {
                my $gene = find_gene($line,$species);
                $line = ">" . "$gene";
        }
-       print out_file "$line\n";
+       print OUTFILE "$line\n";
 }
 
-close(in_file);
-close(out_file);
+close(INFILE);
+close(OUTFILE);