diff --git a/MAST_tW_PDF_Updater/FilesForUpdates/Mine.URL.Strong.Verse.OT.2.pl b/MAST_tW_PDF_Updater/FilesForUpdates/Mine.URL.Strong.Verse.OT.2.pl index ea56dfe..c8c3d9b 100644 --- a/MAST_tW_PDF_Updater/FilesForUpdates/Mine.URL.Strong.Verse.OT.2.pl +++ b/MAST_tW_PDF_Updater/FilesForUpdates/Mine.URL.Strong.Verse.OT.2.pl @@ -11,7 +11,6 @@ use File::Find ; use FindBin '$Bin'; use Cwd ; - my ($pwd, $d, $textEditor, $repoPath, $browser) = ($Bin, "\\"); if ($^O eq "darwin" || $^O eq "linux") {$d = "/"} @@ -23,6 +22,8 @@ elsif ($^O eq "darwin") {$udf = "User_defaults.mac.txt"} chdir $Bin; +$pwd = cwd(); say "\$pwd: $pwd"; die; + open (my $defaults, "<:utf8", "User${d}$udf") or die "User${d}$udf:\n$!"; GetUserDefaults(); @@ -279,8 +280,11 @@ sub Finish { system `$textEditor $excFile &`;} if ($^O eq "MSWin32" || $^O eq "MSWin64" ) { system `START "" $browser https://www.blueletterbible.org/lang/lexicon/lexicon.cfm?strongs=$strong`; + say "\$outputFiles: $outputFiles"; system `START "" $textEditor $outputFiles`; + say "\$excFile: $excFile"; system `START "" $textEditor $excFile`; + say "\$displayFile $displayFile"; system `START "" $browser $displayFile`;} # if ($^O eq "linux") {system `$browser $displayFile`}; } diff --git a/MAST_tW_PDF_Updater/FilesForUpdates/Temp/temp.tmp b/MAST_tW_PDF_Updater/FilesForUpdates/Temp/temp.tmp index 51b8b5d..645ef00 100644 --- a/MAST_tW_PDF_Updater/FilesForUpdates/Temp/temp.tmp +++ b/MAST_tW_PDF_Updater/FilesForUpdates/Temp/temp.tmp @@ -1 +1 @@ -Zechariah 7:14 3045 +Ezra 6:1 1240