160145e7459ad9c3252fa47ddff8c1db634688a0
hiram
  Tue Jan 14 07:07:44 2025 -0800
eliminate duplicate declaration of $fh no redmine

diff --git src/hg/utils/automation/doCpgIslands.pl src/hg/utils/automation/doCpgIslands.pl
index c6451f4..f6871c1 100755
--- src/hg/utils/automation/doCpgIslands.pl
+++ src/hg/utils/automation/doCpgIslands.pl
@@ -156,31 +156,31 @@
     &HgAutomate::makeGsub($runDir, $templateCmd);
     `touch "$runDir/para_hub_$paraHub"`;
 
     my $fh = &HgAutomate::mustOpen(">$runDir/runCpg.bash");
     print $fh <<_EOF_
 #!/bin/bash
 set -beEu -o pipefail
 export partName=\$1
 export part2bit=partFa/\$partName.2bit
 export result=\$2
 twoBitToFa \$part2bit stdout | /hive/data/staging/data/cpgIslandExt/cpglh /dev/stdin > \$result
 _EOF_
     ;
     close($fh);
 
-    my $fh = &HgAutomate::mustOpen(">$runDir/oneSplit.bash");
+    $fh = &HgAutomate::mustOpen(">$runDir/oneSplit.bash");
     print $fh <<_EOF_
 #!/bin/bash
 set -beEu -o pipefail
 if [ -d "/data/tmp" ]; then
   export TMPDIR="/data/tmp"
 elif [ -d "/scratch/tmp" ]; then
   export TMPDIR="/scratch/tmp"
 else
   export TMPDIR="/tmp"
 fi
 
 export tmpFile=`mktemp -p \$TMPDIR doCpg.\$\$.XXXXX`
 export chromSizes=$chromSizes
 export fileSpec="\${1}"
 export file=`echo \$fileSpec | cut -d':' -f1`