1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
Author: Andreas Tille <tille@debian.org>
Last-Update: 2026-02-26
Description: Fix some syntax issues to make autopkgtest pass
--- a/lib/Games/Go/Sgf2Dg/Dg2SL.pm
+++ b/lib/Games/Go/Sgf2Dg/Dg2SL.pm
@@ -142,14 +142,14 @@ sub configure {
# make sure edges of the board don't exceed boardSize
$self->{topLine} = 1 if ($self->{topLine} < 1);
$self->{leftLine} = 1 if ($self->{leftLine} < 1);
- $my->{rightLine} = $my->{boardSizeX} if ($my->{rightLine} > $my->{boardSizeX});
- $my->{bottomLine} = $my->{boardSizeY} if ($my->{bottomLine} > $my->{boardSizeY});
+ $self->{rightLine} = $self->{boardSizeX} if ($self->{rightLine} > $self->{boardSizeX});
+ $self->{bottomLine} = $self->{boardSizeY} if ($self->{bottomLine} > $self->{boardSizeY});
}
sub diaCoords {
- my ($my, $x, $y) = @_;
+ my ($self, $x, $y) = @_;
- return &{$my->{diaCoords}}($x, $y);
+ return &{$self->{diaCoords}}($x, $y);
}
@@ -184,15 +184,15 @@ EOCOMMENT
}
# any game-level properties? TODO : Check this part!
- unless(exists($my->{titleDone})) { # first diagram only:
- $my->{titleDone} = 1;
+ unless(exists($self->{titleDone})) { # first diagram only:
+ $self->{titleDone} = 1;
my @title_lines = $diagram->gameProps_to_title(sub { "__$_[0]__" }); # emph with __XX__
my $title = '';
foreach (@title_lines) {
$title .= "$_\n";
}
if($title ne '') {
- $my->print("\n$title\n");
+ $self->print("\n$title\n");
}
}
@@ -334,9 +334,9 @@ EOCOMMENT
# print coordinates along the bottom TODO check this
if ($self->{coords}) {
$self->print(' ');
- for ($self->{leftLine} .. $self->{rightLine});
+ for ($self->{leftLine} .. $self->{rightLine}) {
$self->print(' ', $diagram->xcoord($_));
- );
+ }
$self->print("\n");
}
--- a/lib/Games/Go/Sgf2Dg.pm
+++ b/lib/Games/Go/Sgf2Dg.pm
@@ -26,7 +26,6 @@ use File::Spec;
use Games::Go::Sgf2Dg::Diagram; # the go diagram module
our $VERSION = '4.252'; # VERSION
-my $VERSION = 'pre-relase'; # delete this line after build
our @EXPORT_OK = qw(
);
|
