From d98535dade9d6ce7f29dc11d8767b49145f67ee4 Mon Sep 17 00:00:00 2001
From: hmw3 <henry_whitney@wycliffeassociates.org>
Date: Mon, 29 Apr 2019 18:02:46 -0400
Subject: [PATCH] Porting tool

---
 MAST_tW_PDF_Updater/FilesForUpdates/tWs.from.OSHB.1.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/MAST_tW_PDF_Updater/FilesForUpdates/tWs.from.OSHB.1.pl b/MAST_tW_PDF_Updater/FilesForUpdates/tWs.from.OSHB.1.pl
index 384b468..140b623 100644
--- a/MAST_tW_PDF_Updater/FilesForUpdates/tWs.from.OSHB.1.pl
+++ b/MAST_tW_PDF_Updater/FilesForUpdates/tWs.from.OSHB.1.pl
@@ -180,6 +180,7 @@ sub PairtWEntriesTotWPageAndUniqSNs {
 	my (@filesToRun, @relevantSNs) = ();
 	my $filePattern = '*.md' ; 
 	find (sub {push @filesToRun, $File::Find::name if (m/^(.*)$filePattern$/)}, $topTwDir) ;
+	@filesToRun = sort @filesToRun;
 	say LOG "\@filesToRun: @filesToRun";
 	foreach my $file (@filesToRun) {
 		$file =~ s/\//\\/g unless $^O eq "linux" || $^O eq "darwin"; 
@@ -193,6 +194,7 @@ sub PairtWEntriesTotWPageAndUniqSNs {
 		  my $fileText = read_file("$file", binmode => 'utf8');
 		  if ($fileText =~ /^# ([^\n]*)\r?\n/) {
 				$thisList = $1;
+				say LOG "\$thisList = |$thisList|";
 				$thisList =~ s/ \([^\)]*\)//g;
 				$entriesThisPage{$shortFile} = $thisList;
 				my @ULBEntries = split /, /, $thisList;