Update extractsnp.pl

jiang548 · May 20, 2022 · 9f2cb4f · 9f2cb4f
1 parent ad58cad
commit 9f2cb4f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/script/adj/extractsnp.pl b/script/adj/extractsnp.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # extractcols.pl file
 
-open(GENELIST, $ARGV[0]) || die "Couldn't open $ARGV[0]\n";
+open(GENELIST, $ARGV[0]) || die "Error: Cannot open $ARGV[0]\n";
 while(<GENELIST>) 
 {
 chomp;
@@ -10,7 +10,7 @@
 }
 close(GENELIST);
 
-open(MAP, $ARGV[1]) || die "Couldn't open $ARGV[1]\n";
+open(MAP, $ARGV[1]) || die "Error: Cannot open $ARGV[1]\n";
 while(<MAP>) 
 {
 chomp;