diff options
Diffstat (limited to 'games/scrabbleai/unix.diff')
-rw-r--r-- | games/scrabbleai/unix.diff | 97 |
1 files changed, 97 insertions, 0 deletions
diff --git a/games/scrabbleai/unix.diff b/games/scrabbleai/unix.diff new file mode 100644 index 0000000000..945a80989a --- /dev/null +++ b/games/scrabbleai/unix.diff @@ -0,0 +1,97 @@ +diff -Naur scrabbleai-20150324_6f8db6b/lib/ScrabbleAI/Backend/Library.pm scrabbleai-20150324_6f8db6b.patched/lib/ScrabbleAI/Backend/Library.pm +--- scrabbleai-20150324_6f8db6b/lib/ScrabbleAI/Backend/Library.pm 2023-03-20 18:35:20.752358098 -0400 ++++ scrabbleai-20150324_6f8db6b.patched/lib/ScrabbleAI/Backend/Library.pm 2023-03-20 23:37:16.993653190 -0400 +@@ -25,7 +25,7 @@ + use warnings; + + use Data::Dumper; +-use Storable; ++use Storable qw(nstore retrieve); + + use ScrabbleAI::Backend::Utils; + use ScrabbleAI::Backend::Node; +@@ -38,7 +38,7 @@ + use constant { + OSPD => ScrabbleAI::Backend::Utils::abs_path('Backend/ospd.txt'), + ENABLE => ScrabbleAI::Backend::Utils::abs_path('Backend/enable.txt'), +- LIBRARY => ScrabbleAI::Backend::Utils::abs_path('Backend/library'), ++ LIBRARY => "$ENV{HOME}/.config/ScrabbleAI/library", + }; + + # If a Backend/Library file exists, attempts to load the Library from it using Storable. +@@ -76,7 +76,7 @@ + $self->{treewords}{$word} = 1; + } + +- store({ ++ nstore({ + wordtree => $self->{wordtree}, + treewords => $self->{treewords}, + longwords => $self->{longwords}, +diff -Naur scrabbleai-20150324_6f8db6b/lib/ScrabbleAI/Backend/Utils.pm scrabbleai-20150324_6f8db6b.patched/lib/ScrabbleAI/Backend/Utils.pm +--- scrabbleai-20150324_6f8db6b/lib/ScrabbleAI/Backend/Utils.pm 2023-03-20 18:35:20.752358098 -0400 ++++ scrabbleai-20150324_6f8db6b.patched/lib/ScrabbleAI/Backend/Utils.pm 2023-03-20 20:45:44.221621837 -0400 +@@ -23,8 +23,6 @@ + use strict; + use warnings; + +-use FindBin; +- + # Given an arrayref of coordinates '(i,j)' and a position 0 or 1, + # returns an array of only the coordinates of that position. + sub coord_position { +@@ -80,7 +78,7 @@ + sub abs_path { + my ($path) = @_; + +- return $FindBin::Bin . "/lib/ScrabbleAI/$path"; ++ return "/usr/share/games/scrabbleai/ScrabbleAI/$path"; + } + + 1; +diff -Naur scrabbleai-20150324_6f8db6b/lib/ScrabbleAI/GUI/SettingsManager.pm scrabbleai-20150324_6f8db6b.patched/lib/ScrabbleAI/GUI/SettingsManager.pm +--- scrabbleai-20150324_6f8db6b/lib/ScrabbleAI/GUI/SettingsManager.pm 2023-03-20 18:35:20.764358097 -0400 ++++ scrabbleai-20150324_6f8db6b.patched/lib/ScrabbleAI/GUI/SettingsManager.pm 2023-03-20 23:37:24.279652505 -0400 +@@ -28,10 +28,10 @@ + use ScrabbleAI::Backend::Utils; + + use Data::Dumper; +-use Storable; ++use Storable qw(nstore retrieve); + + # File where the settings are saved +-use constant FILENAME => ScrabbleAI::Backend::Utils::abs_path('GUI/settings'); ++use constant FILENAME => "$ENV{HOME}/.config/ScrabbleAI/settings"; + + # Creates a new instance of this class; if the settings file exists on disk, + # loads the settings (key => value pairs as a hashref) from that file. +@@ -90,7 +90,7 @@ + sub save { + my ($self) = @_; + +- store($self->{settings}, FILENAME); ++ nstore($self->{settings}, FILENAME); + } + + 1; +diff -Naur scrabbleai-20150324_6f8db6b/scrabbleai.pl scrabbleai-20150324_6f8db6b.patched/scrabbleai.pl +--- scrabbleai-20150324_6f8db6b/scrabbleai.pl 2023-03-20 18:35:20.764358097 -0400 ++++ scrabbleai-20150324_6f8db6b.patched/scrabbleai.pl 2023-03-20 20:52:53.461581441 -0400 +@@ -1,3 +1,5 @@ ++#!/usr/bin/perl ++ + ########################################################################## + # ScrabbleAI + # A program that lets you play the popular word game Scrabble against a +@@ -22,8 +24,9 @@ + use strict; + use warnings; + +-use FindBin; +-use lib $FindBin::Bin . '/lib'; ++system("mkdir -p $ENV{HOME}/.config/ScrabbleAI"); ++ ++use lib '/usr/share/games/scrabbleai'; + + use Gtk2 '-init'; + |