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;