mirror of
https://github.com/Ponce/slackbuilds
synced 2024-12-02 13:04:42 +01:00
a3b5d52c1c
Signed-off-by: bedlam <dave@slackbuilds.org> Signed-off-by: Willy Sudiarto Raharjo <willysr@slackbuilds.org>
97 lines
3.4 KiB
Diff
97 lines
3.4 KiB
Diff
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';
|
|
|