From ad58cadfcaaef7cff986b270754191370792227d Mon Sep 17 00:00:00 2001
From: "Zhang, Dabao" <zhangdb@purdue.edu>
Date: Fri, 20 May 2022 14:28:30 -0400
Subject: [PATCH] Update extractgeno.pl

---
 script/adj/extractgeno.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/script/adj/extractgeno.pl b/script/adj/extractgeno.pl
index 42a5050..9f71701 100644
--- a/script/adj/extractgeno.pl
+++ b/script/adj/extractgeno.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 # extractrgeno.pl file
 my @IDX;
-open(IDXLIST, $ARGV[0]) || die "Couldn't open $ARGV[0]\n";
+open(IDXLIST, $ARGV[0]) || die "Error: Cannot open $ARGV[0]\n";
 while(<IDXLIST>) {
 chomp;
 push(@IDX,$_);
@@ -9,7 +9,7 @@
 close(IDXLIST);
 
 $linescount=1;
-open(MAP, $ARGV[1]) || die "Couldn't open $ARGV[1]\n";
+open(MAP, $ARGV[1]) || die "Error: Cannot open $ARGV[1]\n";
 while(<MAP>) {
 
 while ($linescount eq $IDX[0]) {