Changeset 22810

Timestamp:

08/09/10 21:42:54 (17 months ago)

Author:

alex

Message:

Fixed variable name error

File:

• trunk/bio/scripts/kegg_to_items (modified) (4 diffs)

trunk/bio/scripts/kegg_to_items

@@ -13 +13 @@
 }
 
-my ($model_file, $map_title_filename, $gene_map_filename, $outfile) = @ARGV;
+my ($model_file, $map_title_filename, $gene_map_filename, $out_file) = @ARGV;
 
 my $data_source = 'Kegg';
@@ -62 +62 @@
 # read the gene map file and create item objects
 
-open(my $input, '<', $gene_map_filename) 
+open($input, '<', $gene_map_filename) 
     or die "Could not open $gene_map_filename for reading, $!";
 
@@ -84 +84 @@
 # write the items
 open(my $output, '>', $out_file) 
-    or die "Cannot open $outfile for writing, $!";
+    or die "Cannot open $out_file for writing, $!";
 
 my $writer = new XML::Writer(
@@ -96 +96 @@
 $writer->endTag("items");
 
-close($output) or die "Cannot close $outfile, $!";
+close($output) or die "Cannot close $out_file, $!";
 exit;