Bug #25825 for Games-Tournament-Swiss: Script Pair

Mon Mar 26 12:54:17 2007 hobmeir [...] gmail.com - Ticket created

Subject:	Script Pair
Date:	Mon, 26 Mar 2007 13:53:36 -0300
To:	bug-Games-Tournament-Swiss [...] rt.cpan.org
From:	"Antonio Hobmeir Neto" <hobmeir [...] gmail.com>

Hi, i'm trying to execute the script pair and got some errors. The first pair occur normally, but when i execute the second time in the subdirectory empty i receive this message: Can't call method "round" on an undefined value at /usr/local/share/perl/5.8.7/Games/Tournament/Swiss.pm line 142 I don't know perl language, then i don't have any idea about the problem. If you can help me, it will be great. Additionals informations - SO: Linux 2.6.15-27-686 GNU/Linux. - perl: v5.8.7 built for i486-linux-gnu-thread-multi. -- ------------------------------------------------- Antonio Hobmeir Neto Ciência da Computação (UFPR) -------------------------------------------------

Mon Mar 26 18:55:24 2007 lang [...] ms.chinmin.edu.tw - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Tue, 27 Mar 2007 06:43:15 +0800
To:	Antonio Hobmeir Neto via RT <bug-Games-Tournament-Swiss [...] rt.cpan.org>
From:	Greg Matheson <lang [...] ms.chinmin.edu.tw>

On Mon, 26 Mar 2007, Antonio Hobmeir Neto via RT wrote: Show quoted text

> Hi, i'm trying to execute the script pair and got some errors. > The first pair occur normally, but when i execute the second time in > the subdirectory empty i receive this message:

Show quoted text

> Can't call method "round" on an undefined value at > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss.pm line 142

It is not finding the results of the game in the first round. I don't know why it is not finding it. Do you have a score file called 1.yaml, in a 'scores' subdirectory, with lines like this: 1: 1 2: 1 3: 0.5 4: 0 Show quoted text

> I don't know perl language, then i don't have any idea about the > problem. If you can help me, it will be great.

I know very little about chess scoring. Is there a standard way of entering the results of games in computer files? Perhaps I should change the format of the score files. -- Greg Matheson Teaching: computer programming done by monkeys. --Dr Bean -- This message has been scanned for viruses and dangerous content by MailScanner, and is believed to be clean.

Mon Mar 26 18:55:26 2007 The RT System itself - Status changed from 'new' to 'open'

Mon Mar 26 19:14:16 2007 hobmeir [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Mon, 26 Mar 2007 20:14:00 -0300
To:	bug-Games-Tournament-Swiss [...] rt.cpan.org
From:	"Antonio Hobmeir Neto" <hobmeir [...] gmail.com>

i was trying to locate the problem and i found out that the error occurs on the following line 123: $tourney->collectCards (@$playedGames); in the pair file. I have the file 1.yaml with correct format, same as you told. I dont think you need to change the format of this file, is good to me. I saw the file matches.yaml and it have just this: ---- [] Is It suposed to be like that? Thanks for your attention, 2007/3/26, lang@ms.chinmin.edu.tw via RT <bug-Games-Tournament-Swiss@rt.cpan.org>: Show quoted text

> > <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 > > > On Mon, 26 Mar 2007, Antonio Hobmeir Neto via RT wrote: >

> > Hi, i'm trying to execute the script pair and got some errors. > > The first pair occur normally, but when i execute the second time in > > the subdirectory empty i receive this message:

>

> > Can't call method "round" on an undefined value at > > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss.pm line 142

> > It is not finding the results of the game in the first round. > > I don't know why it is not finding it. Do you have a score file > called 1.yaml, in a 'scores' subdirectory, with lines like this: > > 1: 1 > 2: 1 > 3: 0.5 > 4: 0 >

> > I don't know perl language, then i don't have any idea about the > > problem. If you can help me, it will be great.

> > I know very little about chess scoring. Is there a standard way > of entering the results of games in computer files? > > Perhaps I should change the format of the score files. > > -- > Greg Matheson Teaching: computer programming > done by monkeys. > --Dr Bean > > -- > This message has been scanned for viruses and > dangerous content by MailScanner, and is > believed to be clean. > > >

-- ------------------------------------------------- Antonio Hobmeir Neto Ciência da Computação (UFPR) -------------------------------------------------

Mon Mar 26 19:37:58 2007 lang [...] ms.chinmin.edu.tw - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Tue, 27 Mar 2007 07:25:52 +0800
To:	Antonio Hobmeir Neto via RT <bug-Games-Tournament-Swiss [...] rt.cpan.org>
From:	Greg Matheson <lang [...] ms.chinmin.edu.tw>

On Mon, 26 Mar 2007, Antonio Hobmeir Neto via RT wrote: Show quoted text

> Queue: Games-Tournament-Swiss > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 >

Show quoted text

> i was trying to locate the problem and i found out that the error > occurs on the following > line 123: $tourney->collectCards (@$playedGames); in the pair file.

Show quoted text

> I have the file 1.yaml with correct format, same as you told.

Show quoted text

> I dont think you need to change the format of this file, is good to me.

Show quoted text

> I saw the file matches.yaml and it have just this: ---- [] > Is It suposed to be like that?

No, it should have a lot of data about the pairings in round 1. What about the other files in subdirectory 1? brackets.yaml, player.yaml, pairing.yaml, tourney.yaml? I have virtually no tests for Games-Tournament-Swiss, which is bad. Show quoted text

> 2007/3/26, lang@ms.chinmin.edu.tw via RT > <bug-Games-Tournament-Swiss@rt.cpan.org>:

Show quoted text

> > <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 >

Show quoted text

> > On Mon, 26 Mar 2007, Antonio Hobmeir Neto via RT wrote:

Show quoted text

> > > Hi, i'm trying to execute the script pair and got some errors. > > > The first pair occur normally, but when i execute the second time in > > > the subdirectory empty i receive this message:

Show quoted text

> > > Can't call method "round" on an undefined value at > > > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss.pm line 142

Show quoted text

> > It is not finding the results of the game in the first round.

Show quoted text

> > I don't know why it is not finding it. Do you have a score file > > called 1.yaml, in a 'scores' subdirectory, with lines like this:

Show quoted text

> > 1: 1 > > 2: 1 > > 3: 0.5 > > 4: 0

Show quoted text

> > > I don't know perl language, then i don't have any idea about the > > > problem. If you can help me, it will be great.

Show quoted text

> > I know very little about chess scoring. Is there a standard way > > of entering the results of games in computer files?

Show quoted text

> > Perhaps I should change the format of the score files.

-- Greg Matheson Teaching: The last refuge of the manipulative. --Dr Bean -- This message has been scanned for viruses and dangerous content by MailScanner, and is believed to be clean.

Tue Mar 27 12:51:50 2007 hobmeir [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Tue, 27 Mar 2007 13:51:27 -0300
To:	bug-Games-Tournament-Swiss [...] rt.cpan.org
From:	"Antonio Hobmeir Neto" <hobmeir [...] gmail.com>

Are attached the files that are created by pair. I attach too, league.yaml that i used to test. To test the pair script i created a directory "Torneio", inside this directory i put the file league.yaml. Then i created the subdirectory "1", inside this directory i run the command "pair". The files brackets.yaml, matches.yaml, player.yaml, round.yaml, tourney.yaml and pairing.yaml were created inside this directory. Then i return to master directory "Torneio" and created the directory "scores", inside this drirectory i put the file 1.yaml with the results of matches. Next i created the subdirectory "2" inside the master directory and run the command pair inside this, in this time that i got the error told. Thanks for your help, 2007/3/26, lang@ms.chinmin.edu.tw via RT <bug-Games-Tournament-Swiss@rt.cpan.org>: Show quoted text

> > <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 > > > On Mon, 26 Mar 2007, Antonio Hobmeir Neto via RT wrote: >

> > Queue: Games-Tournament-Swiss > > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 >

>

> > i was trying to locate the problem and i found out that the error > > occurs on the following > > line 123: $tourney->collectCards (@$playedGames); in the pair file.

>

> > I have the file 1.yaml with correct format, same as you told.

>

> > I dont think you need to change the format of this file, is good to me.

>

> > I saw the file matches.yaml and it have just this: ---- [] > > Is It suposed to be like that?

> > No, it should have a lot of data about the pairings in round 1. > What about the other files in subdirectory 1? brackets.yaml, > player.yaml, pairing.yaml, tourney.yaml? > > I have virtually no tests for Games-Tournament-Swiss, which is bad. >

> > 2007/3/26, lang@ms.chinmin.edu.tw via RT > > <bug-Games-Tournament-Swiss@rt.cpan.org>:

>

> > > <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 >

>

> > > On Mon, 26 Mar 2007, Antonio Hobmeir Neto via RT wrote:

>

> > > > Hi, i'm trying to execute the script pair and got some errors. > > > > The first pair occur normally, but when i execute the second time in > > > > the subdirectory empty i receive this message:

>

> > > > Can't call method "round" on an undefined value at > > > > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss.pm line 142

>

> > > It is not finding the results of the game in the first round.

>

> > > I don't know why it is not finding it. Do you have a score file > > > called 1.yaml, in a 'scores' subdirectory, with lines like this:

>

> > > 1: 1 > > > 2: 1 > > > 3: 0.5 > > > 4: 0

>

> > > > I don't know perl language, then i don't have any idea about the > > > > problem. If you can help me, it will be great.

>

> > > I know very little about chess scoring. Is there a standard way > > > of entering the results of games in computer files?

>

> > > Perhaps I should change the format of the score files.

> > -- > Greg Matheson Teaching: The last refuge of the manipulative. > --Dr Bean > > -- > This message has been scanned for viruses and > dangerous content by MailScanner, and is > believed to be clean. > > >

-- ------------------------------------------------- Antonio Hobmeir Neto Ciência da Computação (UFPR) -------------------------------------------------

Message body is not shown because sender requested not to inline it.

Tue Mar 27 20:30:40 2007 lang [...] ms.chinmin.edu.tw - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Wed, 28 Mar 2007 08:18:17 +0800
To:	Antonio Hobmeir Neto via RT <bug-Games-Tournament-Swiss [...] rt.cpan.org>
From:	Greg Matheson <lang [...] ms.chinmin.edu.tw>

On Tue, 27 Mar 2007, Antonio Hobmeir Neto via RT wrote: Show quoted text

> Queue: Games-Tournament-Swiss > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 >

Show quoted text

> Are attached the files that are created by pair. I attach too, > league.yaml that i used to test.

Show quoted text

> To test the pair script i created a directory "Torneio", inside this > directory i put the file league.yaml. Then i created the subdirectory > "1", inside this directory i run the command "pair". The files > brackets.yaml, matches.yaml, player.yaml, round.yaml, > tourney.yaml and pairing.yaml were created inside this directory. Then > i return to master directory "Torneio" and created the directory > "scores", inside this drirectory i put the file 1.yaml with the > results of matches. Next i created the subdirectory "2" inside the > master directory and run the command pair inside this, in this time > that i got the error told.

This is the right procedure. When I do the same thing here, with your league.yaml, I get all the above files, but with important differences in the files. There isn't anything in your matches.yaml. Your round.yaml is lacking the matches, ie who is paired with who. Your tourney.yaml is lacking them too. The 2 pairing.yaml are pretty much the same. The 2 bracket.yaml are pretty much the same. So it must be something after about line 135 in script_files/pair. Probably: for my $bracket ( @{$pairing{matches}} ) { push @games, grep { $_ if ref eq 'Games::Tournament::Card' } @$bracket; } I wonder if push @games, @$_ for @{$pairing{matches}}; works for you. It works for me here. I don't know why there should be differences between your results and my results. I see you have perl-5.8.7, and I have perl-5.8.3. -- Greg Matheson Experience is the best teacher because it gives the test first & the lesson after. --From Martin Pauly -- This message has been scanned for viruses and dangerous content by MailScanner, and is believed to be clean.

Wed Mar 28 13:34:50 2007 hobmeir [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Wed, 28 Mar 2007 14:34:30 -0300
To:	bug-Games-Tournament-Swiss [...] rt.cpan.org
From:	"Antonio Hobmeir Neto" <hobmeir [...] gmail.com>

i was testing the pair script with uneven players and i got good results, the problem occur all the time that i use even players, (4,6,8...). Do you have any sugestion? How i can enter the number of rounds of torney in league.yaml? I tryed to run the 4th round with 7 players and no file was created, is this correct? The last message that returns is: "1 players in group 0's S1, only 0 in S2. at /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm line 518." Thanks, 2007/3/27, lang@ms.chinmin.edu.tw via RT <bug-Games-Tournament-Swiss@rt.cpan.org>: Show quoted text

> > <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 > > > On Tue, 27 Mar 2007, Antonio Hobmeir Neto via RT wrote: >

> > Queue: Games-Tournament-Swiss > > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 >

>

> > Are attached the files that are created by pair. I attach too, > > league.yaml that i used to test.

>

> > To test the pair script i created a directory "Torneio", inside this > > directory i put the file league.yaml. Then i created the subdirectory > > "1", inside this directory i run the command "pair". The files > > brackets.yaml, matches.yaml, player.yaml, round.yaml, > > tourney.yaml and pairing.yaml were created inside this directory. Then > > i return to master directory "Torneio" and created the directory > > "scores", inside this drirectory i put the file 1.yaml with the > > results of matches. Next i created the subdirectory "2" inside the > > master directory and run the command pair inside this, in this time > > that i got the error told.

> > This is the right procedure. When I do the same thing here, with > your league.yaml, I get all the above files, but with important > differences in the files. > > There isn't anything in your matches.yaml. > Your round.yaml is lacking the matches, ie who is paired with who. > Your tourney.yaml is lacking them too. > The 2 pairing.yaml are pretty much the same. > The 2 bracket.yaml are pretty much the same. > > So it must be something after about line 135 in script_files/pair. > > Probably: > > for my $bracket ( @{$pairing{matches}} ) > { > push @games, grep { $_ if ref eq 'Games::Tournament::Card' } > @$bracket; > } > > I wonder if > > push @games, @$_ for @{$pairing{matches}}; > > works for you. It works for me here. > > I don't know why there should be differences between your results and my > results. > > I see you have perl-5.8.7, and I have perl-5.8.3. > > -- > Greg Matheson Experience is the best teacher because it > gives the test first & the lesson after. > --From Martin Pauly > > -- > This message has been scanned for viruses and > dangerous content by MailScanner, and is > believed to be clean. > > >

-- ------------------------------------------------- Antonio Hobmeir Neto Ciência da Computação (UFPR) -------------------------------------------------

Wed Mar 28 23:25:03 2007 lang [...] ms.chinmin.edu.tw - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Thu, 29 Mar 2007 11:12:24 +0800
To:	Antonio Hobmeir Neto via RT <bug-Games-Tournament-Swiss [...] rt.cpan.org>
From:	Greg Matheson <lang [...] ms.chinmin.edu.tw>

On Wed, 28 Mar 2007, Antonio Hobmeir Neto via RT wrote: Show quoted text

> Queue: Games-Tournament-Swiss > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 >

Show quoted text

> i was testing the pair script with uneven players and i got good > results, the problem occur all the time that i use even players, > (4,6,8...). Do you have any sugestion?

Is it the same problem as before? In round.yaml, there should be lines of the form: group: 0: Black: 'Bruno, Ribas' White: 'Antonio, Hobmeir Neto' 1: Black: 'Tiago, Vignatti' White: 'Paulo, Zanoni' Are you getting those lines with an uneven number of players, but not with an even number? Did you try replacing: for my $bracket ( @{$pairing{matches}} ) { push @games, grep { $_ if ref eq 'Games::Tournament::Card' } @$bracket; } with push @games, @$_ for @{$pairing{matches}}; Show quoted text

> How i can enter the number of rounds of torney in league.yaml?

In league.yaml, you could have a line like rounds: 8 Then you could add after script_files/pair, line 87. rounds => $league->{rounds}, Although I read swiss tournaments are supposed to have a fixed number of rounds, I didn't do anything with that fact. Eg, there is nothing in the program I wrote to prevent it from being used when that number is exceeded. Show quoted text

> I tryed to run the 4th round with 7 players and no file was created, > is this correct?

Are all the 1.yaml, 2.yaml, 3.yaml files the same? That is, they're all: 1: 0.5 2: 0.5 etc? Show quoted text

> The last message that returns is: "1 players in group 0's S1, only 0 > in S2. at /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > line 518."

If all the matches in all the previous rounds end in draws, I get the same error. It shouldn't be giving that error. Looking at the output of the pairing, Floating Down: 4 7 5 [1] 4 7 5 => [2] 5 7 4 1 2 3 C1, B1,2 test: ok, no unpairables C2, x=0 C3, p=0 Homogeneous. C4, S1 & S2: & C5, ordered: 4 & it appears it's having problems with the players from the 2 different brackets becoming a homogeneous group. S1 should be 4 7 5, and S2 should be 1 2 3, I think. And where's 6 gone? It was paired with 7. Wait. If 6 was there it would still be heterogeneous. This is a bug. -- Greg Matheson We have dirty dishwater and dirty towels and nevertheless finally succeed in getting the plates and glasses clean. --Niels Bohr -- This message has been scanned for viruses and dangerous content by MailScanner, and is believed to be clean.

Thu Mar 29 00:08:25 2007 hobmeir [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Thu, 29 Mar 2007 01:07:57 -0300
To:	bug-Games-Tournament-Swiss [...] rt.cpan.org
From:	"Antonio Hobmeir Neto" <hobmeir [...] gmail.com>

2007/3/29, lang@ms.chinmin.edu.tw via RT <bug-Games-Tournament-Swiss@rt.cpan.org>: Show quoted text

> > <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 > > > On Wed, 28 Mar 2007, Antonio Hobmeir Neto via RT wrote: >

> > Queue: Games-Tournament-Swiss > > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 >

>

> > i was testing the pair script with uneven players and i got good > > results, the problem occur all the time that i use even players, > > (4,6,8...). Do you have any sugestion?

> > Is it the same problem as before? In round.yaml, there should be > lines of the form: > > group: > 0: > Black: 'Bruno, Ribas' > White: 'Antonio, Hobmeir Neto' > 1: > Black: 'Tiago, Vignatti' > White: 'Paulo, Zanoni' > > Are you getting those lines with an uneven number of players, but > not with an even number? >

Yes. I need it working to use your code. Could you fix it? Show quoted text

> Did you try replacing: > > for my $bracket ( @{$pairing{matches}} ) > { > push @games, grep { $_ if ref eq 'Games::Tournament::Card' } > @$bracket; > } > > with > > push @games, @$_ for @{$pairing{matches}}; >

Yes and nothing change, the same problem occur. Show quoted text

> > How i can enter the number of rounds of torney in league.yaml?

> > In league.yaml, you could have a line like > > rounds: 8 > > Then you could add after script_files/pair, line 87. > > rounds => $league->{rounds}, >

Cool.. Show quoted text

> Although I read swiss tournaments are supposed to have a fixed > number of rounds, I didn't do anything with that fact. Eg, there > is nothing in the program I wrote to prevent it from being used > when that number is exceeded. >

> > I tryed to run the 4th round with 7 players and no file was created, > > is this correct?

> > Are all the 1.yaml, 2.yaml, 3.yaml files the same? That is, they're all: > > 1: 0.5 > 2: 0.5 > > etc?

Yes, i just put 1 for the bye of round, the others received 0.5 :-). Show quoted text

>

> > The last message that returns is: "1 players in group 0's S1, only 0 > > in S2. at /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > > line 518."

> > If all the matches in all the previous rounds end in draws, I get the same error. > It shouldn't be giving that error. Looking at the output of the pairing, > > Floating Down: 4 7 5 [1] 4 7 5 => [2] 5 7 4 1 2 3 > C1, B1,2 test: ok, no unpairables > C2, x=0 > C3, p=0 Homogeneous. > C4, S1 & S2: & > C5, ordered: 4 & > > it appears it's having problems with the players from the 2 > different brackets becoming a homogeneous group. S1 should be 4 7 > 5, and S2 should be 1 2 3, I think. > > And where's 6 gone? It was paired with 7. Wait. If 6 was there it > would still be heterogeneous. > > This is a bug. > > -- > Greg Matheson We have dirty dishwater and dirty towels and > nevertheless finally succeed in getting the > plates and glasses clean. > --Niels Bohr > > -- > This message has been scanned for viruses and > dangerous content by MailScanner, and is > believed to be clean. > > >

Thanks, -- ------------------------------------------------- Antonio Hobmeir Neto Ciência da Computação (UFPR) -------------------------------------------------

Thu Mar 29 02:57:40 2007 lang [...] ms.chinmin.edu.tw - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Thu, 29 Mar 2007 14:45:03 +0800
To:	Antonio Hobmeir Neto via RT <bug-Games-Tournament-Swiss [...] rt.cpan.org>
From:	Greg Matheson <lang [...] ms.chinmin.edu.tw>

On Thu, 29 Mar 2007, Antonio Hobmeir Neto via RT wrote: Show quoted text

> Queue: Games-Tournament-Swiss > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 >

Show quoted text

> > > i was testing the pair script with uneven players and i got good > > > results, the problem occur all the time that i use even players, > > > (4,6,8...). Do you have any sugestion?

I can't reproduce this problem, so I don't know what to do. I don't know why even or odd numbers should be causing this. How do you run pair? Did you copy it into the Torneio directory? Try placing 'perl -d' (without the quotes) in front of the path you type in to run pair. This will run the debugger. When you enter the debugger, type 'c 137', or c 140. Anyway, the place after the end of where @games is defined. And then type 'x 4 $games[0]', or 'x @games'. You should get a lot of output. What does 'x 2 $pairing{matches}', or 'x 3 $pairing{matches}' show? -- Greg Matheson Academic politics is so bitter because the stakes are so small. --Wallace S Sayre -- This message has been scanned for viruses and dangerous content by MailScanner, and is believed to be clean.

Fri Mar 30 15:46:33 2007 hobmeir [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Fri, 30 Mar 2007 16:46:02 -0300
To:	bug-Games-Tournament-Swiss [...] rt.cpan.org
From:	"Antonio Hobmeir Neto" <hobmeir [...] gmail.com>

Hi, good news... I replaced this line: for my $bracket ( @{$pairing{matches}} ) to for my $bracket ( @{$pairing->matches} ) and this looks like has solved the problem. What you think about? I attached the debug report that you told to me do, maybe is useful for you. Thanks for your help. 2007/3/29, lang@ms.chinmin.edu.tw via RT <bug-Games-Tournament-Swiss@rt.cpan.org>: Show quoted text

> > <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 > > > On Thu, 29 Mar 2007, Antonio Hobmeir Neto via RT wrote: >

> > Queue: Games-Tournament-Swiss > > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 >

>

> > > > i was testing the pair script with uneven players and i got good > > > > results, the problem occur all the time that i use even players, > > > > (4,6,8...). Do you have any sugestion?

> > I can't reproduce this problem, so I don't know what to do. I > don't know why even or odd numbers should be causing this. > > How do you run pair? Did you copy it into the Torneio directory? > > Try placing 'perl -d' (without the quotes) in front of the path > you type in to run pair. This will run the debugger. > > When you enter the debugger, type 'c 137', or c 140. Anyway, the > place after the end of where @games is defined. > > And then type 'x 4 $games[0]', or 'x @games'. You should get a > lot of output. > > What does 'x 2 $pairing{matches}', or 'x 3 $pairing{matches}' show? > > -- > Greg Matheson Academic politics is so bitter because the stakes > are so small. > --Wallace S Sayre > > -- > This message has been scanned for viruses and > dangerous content by MailScanner, and is > believed to be clean. > > >

-- ------------------------------------------------- Antonio Hobmeir Neto Ciência da Computação (UFPR) -------------------------------------------------

Download results
application/octet-stream 825b

Message body not shown because it is not plain text.

Sat Mar 31 06:39:18 2007 lang [...] ms.chinmin.edu.tw - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Sat, 31 Mar 2007 18:35:21 +0800
To:	Antonio Hobmeir Neto via RT <bug-Games-Tournament-Swiss [...] rt.cpan.org>
From:	Greg Matheson <lang [...] ms.chinmin.edu.tw>

On Fri, 30 Mar 2007, Antonio Hobmeir Neto via RT wrote: Show quoted text

> Queue: Games-Tournament-Swiss > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 >

Show quoted text

> Hi, good news... > I replaced this line:

Show quoted text

> for my $bracket ( @{$pairing{matches}} ) > to > for my $bracket ( @{$pairing->matches} )

Show quoted text

> and this looks like has solved the problem. > What you think about?

Good catch. It looks like Games/Tournament/Swiss/Procedure/FIDE.pm is doing its job, but the way I pass arguments around is problematic. Because you didn't have any problems with an odd number of players, I think it might be at line 175 that we see what the problem is. Can you run the debugger again, pairing for the first round for an even number of players, and then type, 'c 136', 's', 'c 175', 'c 175'? And then type, 'x $index'. You should get 0. And, then 'x 3 %args'. What I get is: DB<14> x 3 %args 0 'matches' 1 ARRAY(0x9dd4518) 0 ARRAY(0x9e0d3e4) 0 Games::Tournament::Card=HASH(0x9d600c4) 1 Games::Tournament::Card=HASH(0x9df2f14) 2 Games::Tournament::Card=HASH(0x9e0d714) etc. -- Greg Matheson Those who do do. Those who think don't do do do. --Dr Bean -- This message has been scanned for viruses and dangerous content by MailScanner, and is believed to be clean.

Mon Apr 02 11:05:48 2007 hobmeir [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Mon, 2 Apr 2007 12:05:22 -0300
To:	bug-Games-Tournament-Swiss [...] rt.cpan.org
From:	"Antonio Hobmeir Neto" <hobmeir [...] gmail.com>

2007/3/31, lang@ms.chinmin.edu.tw via RT <bug-Games-Tournament-Swiss@rt.cpan.org>: Show quoted text

> > <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 > > > On Fri, 30 Mar 2007, Antonio Hobmeir Neto via RT wrote: > >

> > Queue: Games-Tournament-Swiss > > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 >

>

> > Hi, good news... > > I replaced this line:

>

> > for my $bracket ( @{$pairing{matches}} ) > > to > > for my $bracket ( @{$pairing->matches} )

>

> > and this looks like has solved the problem. > > What you think about?

> > Good catch. It looks like > Games/Tournament/Swiss/Procedure/FIDE.pm is doing its job, but > the way I pass arguments around is problematic. > > Because you didn't have any problems with an odd number of > players, I think it might be at line 175 that we see what the > problem is. > > Can you run the debugger again, pairing for the first round for > an even number of players, and then type, 'c 136', 's', 'c > 175', 'c 175'? >

I did what you asked me to do, but I found a problem, in my pair script the line 175 is a commented line, after the end of the script. Maybe my version is different from yours. I attached the pair script in this message. Thanks, Show quoted text

> And then type, 'x $index'. You should get 0. > And, then 'x 3 %args'. What I get is: > > DB<14> x 3 %args > 0 'matches' > 1 ARRAY(0x9dd4518) > 0 ARRAY(0x9e0d3e4) > 0 Games::Tournament::Card=HASH(0x9d600c4) > 1 Games::Tournament::Card=HASH(0x9df2f14) > 2 Games::Tournament::Card=HASH(0x9e0d714) > > etc. >

Show quoted text

> -- > Greg Matheson Those who do do. > Those who think don't do do do. > --Dr Bean > > -- > This message has been scanned for viruses and > dangerous content by MailScanner, and is > believed to be clean. > > >

-- ------------------------------------------------- Antonio Hobmeir Neto Ciência da Computação (UFPR) -------------------------------------------------

Download pair
application/octet-stream 7.8k

Message body not shown because it is not plain text.

Mon Apr 02 19:04:42 2007 lang [...] ms.chinmin.edu.tw - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Tue, 3 Apr 2007 07:00:19 +0800
To:	Antonio Hobmeir Neto via RT <bug-Games-Tournament-Swiss [...] rt.cpan.org>
From:	Greg Matheson <lang [...] ms.chinmin.edu.tw>

On Mon, 02 Apr 2007, Antonio Hobmeir Neto via RT wrote: Show quoted text

> > Can you run the debugger again, pairing for the first round for > > an even number of players, and then type, 'c 136', 's', 'c > > 175', 'c 175'?

Show quoted text

> I did what you asked me to do, but I found a problem, in my pair > script the line 175 is a commented line, after the end of the script. > Maybe my version is different from yours. > I attached the pair script in this message.

Sorry, I made a mistake. It's not line 136. It's line 128 in the pair script. So, can you run the debugger again, pairing for the first round for an even number of players, and then type, 'c 128', 's', 'c 175', 'c 175'? Line 175 that we are looking at is not in the script, it is in lib/Games/Tournament/Swiss/Procedure/FIDE.pm return LAST if $index >= $#$groups; It is the last line executed there before returning to the script. At that point, %args should have one key, matches, with the pairings. That is $args{matches} should exist. Show quoted text

> > And then type, 'x $index'. You should get 0. > > And, then 'x 3 %args'. What I get is:

Show quoted text

> > DB<14> x 3 %args > > 0 'matches' > > 1 ARRAY(0x9dd4518) > > 0 ARRAY(0x9e0d3e4) > > 0 Games::Tournament::Card=HASH(0x9d600c4) > > 1 Games::Tournament::Card=HASH(0x9df2f14) > > 2 Games::Tournament::Card=HASH(0x9e0d714)

Type 'x 2 $args{matches}', 'x 3 $args{matches}', 'x 4 $args{matches}', 'x 5 $args{matches}', etc. -- Greg Matheson There is nothing as practical as a good theory. --Kurt Lewin -- This message has been scanned for viruses and dangerous content by MailScanner, and is believed to be clean.

Tue Apr 03 17:08:18 2007 hobmeir [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Tue, 3 Apr 2007 18:07:44 -0300
To:	bug-Games-Tournament-Swiss [...] rt.cpan.org
From:	"Antonio Hobmeir Neto" <hobmeir [...] gmail.com>

Hi, the debug report: Loading DB routines from perl5db.pl version 1.28 Editor support available. Enter h or `h h' for help, or `man perldebug' for more help. main::(./pair:10): my $swiss = Games::Tournament::Swiss::Config->new; DB<1> c 128 Round 1: 1 2 3 4 5 6 (0), main::(./pair:128): my %pairing = $pairing->matchPlayers; DB<2> s Games::Tournament::Swiss::Procedure::FIDE::matchPlayers(/usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm:117): 117: my $self = shift; DB<2> c 175 Games::Tournament::Swiss::Procedure::FIDE::next(/usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm:175): 175: return LAST if $index >= $#$groups; DB<3> c 175 Next, Bracket 1: 1 2 3 4 5 6 C1, B1,2 test: ok, no unpairables C2, x=1 C3, p=3 Homogeneous. C4, S1 & S2: 1 2 3 & 4 5 6 C5, ordered: 1 2 3 & 4 5 6 C6, 3 tables paired. E1 4&1 E1 2&5 E1 6&3 C6others: no non-paired players Games::Tournament::Swiss::Procedure::FIDE::next(/usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm:175): 175: return LAST if $index >= $#$groups; DB<4> x 2 $args{matches} 0 ARRAY(0x83ed49c) 0 ARRAY(0x87a1be4) DB<5> x 3 $args{matches} 0 ARRAY(0x83ed49c) 0 ARRAY(0x87a1be4) 0 Games::Tournament::Card=HASH(0x83eec3c) 1 Games::Tournament::Card=HASH(0x87a1d34) 2 Games::Tournament::Card=HASH(0x84f571c) Dx 4 $args{matches} Number found where operator expected at (eval 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2, near "matx 4" at (eval 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2 eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package Games::Tournament::Swiss::Procedure::FIDE; $^D = $^D | $DB::db_stop; $args{matx 4 $args{matches}; ;' called at /usr/share/perl/5.8/perl5db.pl line 628 DB::eval called at /usr/share/perl/5.8/perl5db.pl line 3410 DB::DB called at /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm line 175 Games::Tournament::Swiss::Procedure::FIDE::next('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)', 'byes', 'undef', 'matches', 'ARRAY(0x83ed49c)', 'round', 1, 'brackets', 'ARRAY(0x855d5f4)', ...) called at /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm line 149 Games::Tournament::Swiss::Procedure::FIDE::matchPlayers('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)') called at ./pair line 128 (Do you need to predeclare matx?) at (eval 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2 eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package Games::Tournament::Swiss::Procedure::FIDE; $^D = $^D | $DB::db_stop; $args{matx 4 $args{matches}; ;' called at /usr/share/perl/5.8/perl5db.pl line 628 DB::eval called at /usr/share/perl/5.8/perl5db.pl line 3410 DB::DB called at /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm line 175 Games::Tournament::Swiss::Procedure::FIDE::next('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)', 'byes', 'undef', 'matches', 'ARRAY(0x83ed49c)', 'round', 1, 'brackets', 'ARRAY(0x855d5f4)', ...) called at /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm line 149 Games::Tournament::Swiss::Procedure::FIDE::matchPlayers('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)') called at ./pair line 128 Scalar found where operator expected at (eval 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2, near "4 $args" at (eval 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2 eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package Games::Tournament::Swiss::Procedure::FIDE; $^D = $^D | $DB::db_stop; $args{matx 4 $args{matches}; ;' called at /usr/share/perl/5.8/perl5db.pl line 628 DB::eval called at /usr/share/perl/5.8/perl5db.pl line 3410 DB::DB called at /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm line 175 Games::Tournament::Swiss::Procedure::FIDE::next('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)', 'byes', 'undef', 'matches', 'ARRAY(0x83ed49c)', 'round', 1, 'brackets', 'ARRAY(0x855d5f4)', ...) called at /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm line 149 Games::Tournament::Swiss::Procedure::FIDE::matchPlayers('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)') called at ./pair line 128 (Missing operator before $args?) at (eval 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2 eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package Games::Tournament::Swiss::Procedure::FIDE; $^D = $^D | $DB::db_stop; $args{matx 4 $args{matches}; ;' called at /usr/share/perl/5.8/perl5db.pl line 628 DB::eval called at /usr/share/perl/5.8/perl5db.pl line 3410 DB::DB called at /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm line 175 Games::Tournament::Swiss::Procedure::FIDE::next('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)', 'byes', 'undef', 'matches', 'ARRAY(0x83ed49c)', 'round', 1, 'brackets', 'ARRAY(0x855d5f4)', ...) called at /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm line 149 Games::Tournament::Swiss::Procedure::FIDE::matchPlayers('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)') called at ./pair line 128 syntax error at (eval 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2, near "matx 4" DB<8> x 5 $args{matches} 0 ARRAY(0x83ed49c) 0 ARRAY(0x87a1be4) 0 Games::Tournament::Card=HASH(0x83eec3c) 'contestants' => HASH(0x84f57ac) 'Black' => Games::Tournament::Contestant::Swiss=HASH(0x84f4c48) 'White' => Games::Tournament::Contestant::Swiss=HASH(0x85e3cfc) 'floats' => HASH(0x86cf49c) 'Black' => undef 'White' => undef 'result' => undef 'round' => 1 1 Games::Tournament::Card=HASH(0x87a1d34) 'contestants' => HASH(0x8773fe4) 'Black' => Games::Tournament::Contestant::Swiss=HASH(0x84f4df8) 'White' => Games::Tournament::Contestant::Swiss=HASH(0x84f4cd8) 'floats' => HASH(0x87a1c14) 'Black' => undef 'White' => undef 'result' => undef 'round' => 1 2 Games::Tournament::Card=HASH(0x84f571c) 'contestants' => HASH(0x84f5710) 'Black' => Games::Tournament::Contestant::Swiss=HASH(0x84f4d68) 'White' => Games::Tournament::Contestant::Swiss=HASH(0x84f4e88) 'floats' => HASH(0x87a1ae8) 'Black' => undef 'White' => undef 'result' => undef 'round' => 1 I hope that it help us... 2007/4/2, lang@ms.chinmin.edu.tw via RT <bug-Games-Tournament-Swiss@rt.cpan.org>: Show quoted text

> > <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 > > > On Mon, 02 Apr 2007, Antonio Hobmeir Neto via RT wrote: >

> > > Can you run the debugger again, pairing for the first round for > > > an even number of players, and then type, 'c 136', 's', 'c > > > 175', 'c 175'?

>

> > I did what you asked me to do, but I found a problem, in my pair > > script the line 175 is a commented line, after the end of the script. > > Maybe my version is different from yours. > > I attached the pair script in this message.

> > Sorry, I made a mistake. It's not line 136. It's line 128 in the > pair script. > > So, can you run the debugger again, pairing for the first round for > an even number of players, and then type, 'c 128', 's', 'c > 175', 'c 175'? > > Line 175 that we are looking at is not in the script, it is in > lib/Games/Tournament/Swiss/Procedure/FIDE.pm > > return LAST if $index >= $#$groups; > > It is the last line executed there before returning to the > script. At that point, %args should have one key, matches, with > the pairings. > > That is $args{matches} should exist. >

> > > And then type, 'x $index'. You should get 0. > > > And, then 'x 3 %args'. What I get is:

>

> > > DB<14> x 3 %args > > > 0 'matches' > > > 1 ARRAY(0x9dd4518) > > > 0 ARRAY(0x9e0d3e4) > > > 0 Games::Tournament::Card=HASH(0x9d600c4) > > > 1 Games::Tournament::Card=HASH(0x9df2f14) > > > 2 Games::Tournament::Card=HASH(0x9e0d714)

> > Type 'x 2 $args{matches}', 'x 3 $args{matches}', 'x 4 > $args{matches}', 'x 5 $args{matches}', etc. > > -- > Greg Matheson There is nothing as practical as a > good theory. > --Kurt Lewin > > -- > This message has been scanned for viruses and > dangerous content by MailScanner, and is > believed to be clean. > > >

-- ------------------------------------------------- Antonio Hobmeir Neto Ciência da Computação (UFPR) -------------------------------------------------

Wed Apr 04 05:06:22 2007 lang [...] ms.chinmin.edu.tw - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Wed, 4 Apr 2007 17:01:17 +0800
To:	Antonio Hobmeir Neto via RT <bug-Games-Tournament-Swiss [...] rt.cpan.org>
From:	Greg Matheson <lang [...] ms.chinmin.edu.tw>

On Tue, 03 Apr 2007, Antonio Hobmeir Neto via RT wrote: Show quoted text

> Queue: Games-Tournament-Swiss > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 >

Show quoted text

> DB<2> c 175 > Games::Tournament::Swiss::Procedure::FIDE::next(/usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm:175): > 175: return LAST if $index >= $#$groups; > DB<3> c 175 > Next, Bracket 1: 1 2 3 4 5 6 > C1, B1,2 test: ok, no unpairables > C2, x=1 > C3, p=3 Homogeneous. > C4, S1 & S2: 1 2 3 & 4 5 6 > C5, ordered: 1 2 3 & 4 5 6 > C6, 3 tables paired. E1 4&1 E1 2&5 E1 6&3 > C6others: no non-paired players > Games::Tournament::Swiss::Procedure::FIDE::next(/usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm:175): > 175: return LAST if $index >= $#$groups; > DB<4> x 2 $args{matches} > 0 ARRAY(0x83ed49c) > 0 ARRAY(0x87a1be4)

This looks good. Show quoted text

> DB<5> x 3 $args{matches} > 0 ARRAY(0x83ed49c) > 0 ARRAY(0x87a1be4) > 0 Games::Tournament::Card=HASH(0x83eec3c) > 1 Games::Tournament::Card=HASH(0x87a1d34) > 2 Games::Tournament::Card=HASH(0x84f571c) > Dx 4 $args{matches}

That line is strange. It looks like it didn't finish before starting to the next command. Is this how it appeared before you copied it? It looks like the debugger is mangling the line. Show quoted text

> Number found where operator expected at (eval > 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2, near "matx 4" > at (eval 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2 > eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package > Games::Tournament::Swiss::Procedure::FIDE; $^D = $^D | $DB::db_stop; > $args{matx 4 $args{matches};

Show quoted text

> ;' called at /usr/share/perl/5.8/perl5db.pl line 628 > DB::eval called at /usr/share/perl/5.8/perl5db.pl line 3410 > DB::DB called at > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > line 175 > Games::Tournament::Swiss::Procedure::FIDE::next('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)', > 'byes', 'undef', 'matches', 'ARRAY(0x83ed49c)', 'round', 1, > 'brackets', 'ARRAY(0x855d5f4)', ...) called at > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > line 149 > Games::Tournament::Swiss::Procedure::FIDE::matchPlayers('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)') > called at ./pair line 128 > (Do you need to predeclare matx?) > at (eval 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2 > eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package > Games::Tournament::Swiss::Procedure::FIDE; $^D = $^D | $DB::db_stop; > $args{matx 4 $args{matches};

Show quoted text

> ;' called at /usr/share/perl/5.8/perl5db.pl line 628 > DB::eval called at /usr/share/perl/5.8/perl5db.pl line 3410 > DB::DB called at > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > line 175 > Games::Tournament::Swiss::Procedure::FIDE::next('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)', > 'byes', 'undef', 'matches', 'ARRAY(0x83ed49c)', 'round', 1, > 'brackets', 'ARRAY(0x855d5f4)', ...) called at > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > line 149 > Games::Tournament::Swiss::Procedure::FIDE::matchPlayers('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)') > called at ./pair line 128 > Scalar found where operator expected at (eval > 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2, near "4 $args" > at (eval 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2 > eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package > Games::Tournament::Swiss::Procedure::FIDE; $^D = $^D | $DB::db_stop; > $args{matx 4 $args{matches};

Show quoted text

> ;' called at /usr/share/perl/5.8/perl5db.pl line 628 > DB::eval called at /usr/share/perl/5.8/perl5db.pl line 3410 > DB::DB called at > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > line 175 > Games::Tournament::Swiss::Procedure::FIDE::next('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)', > 'byes', 'undef', 'matches', 'ARRAY(0x83ed49c)', 'round', 1, > 'brackets', 'ARRAY(0x855d5f4)', ...) called at > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > line 149 > Games::Tournament::Swiss::Procedure::FIDE::matchPlayers('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)') > called at ./pair line 128 > (Missing operator before $args?) > at (eval 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2 > eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package > Games::Tournament::Swiss::Procedure::FIDE; $^D = $^D | $DB::db_stop; > $args{matx 4 $args{matches};

Show quoted text

> ;' called at /usr/share/perl/5.8/perl5db.pl line 628 > DB::eval called at /usr/share/perl/5.8/perl5db.pl line 3410 > DB::DB called at > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > line 175 > Games::Tournament::Swiss::Procedure::FIDE::next('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)', > 'byes', 'undef', 'matches', 'ARRAY(0x83ed49c)', 'round', 1, > 'brackets', 'ARRAY(0x855d5f4)', ...) called at > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > line 149 > Games::Tournament::Swiss::Procedure::FIDE::matchPlayers('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)') > called at ./pair line 128 > syntax error at (eval 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2, > near "matx 4"

I don't know why you are getting this output. Show quoted text

> DB<8> x 5 $args{matches} > 0 ARRAY(0x83ed49c) > 0 ARRAY(0x87a1be4) > 0 Games::Tournament::Card=HASH(0x83eec3c) > 'contestants' => HASH(0x84f57ac) > 'Black' => Games::Tournament::Contestant::Swiss=HASH(0x84f4c48) > 'White' => Games::Tournament::Contestant::Swiss=HASH(0x85e3cfc) > 'floats' => HASH(0x86cf49c) > 'Black' => undef > 'White' => undef > 'result' => undef > 'round' => 1 > 1 Games::Tournament::Card=HASH(0x87a1d34) > 'contestants' => HASH(0x8773fe4) > 'Black' => Games::Tournament::Contestant::Swiss=HASH(0x84f4df8) > 'White' => Games::Tournament::Contestant::Swiss=HASH(0x84f4cd8) > 'floats' => HASH(0x87a1c14) > 'Black' => undef > 'White' => undef > 'result' => undef > 'round' => 1 > 2 Games::Tournament::Card=HASH(0x84f571c) > 'contestants' => HASH(0x84f5710) > 'Black' => Games::Tournament::Contestant::Swiss=HASH(0x84f4d68) > 'White' => Games::Tournament::Contestant::Swiss=HASH(0x84f4e88) > 'floats' => HASH(0x87a1ae8) > 'Black' => undef > 'White' => undef > 'result' => undef > 'round' => 1

x 5 $args{matches} looks okay. I wonder if it is connected to the odd and even number of entrants. I have uploaded a new version, 0.04 to CPAN. Can you try installing that and seeing how the tests run. It may take some time for it to become available. In particular, if you can find Games-Tournament-Swiss-0.04/t/pairing4.t, and run 'prove -t t/pairing' in the Games-Tournament-Swiss-0.04 directory, we can see if we still have the problem. I changed the format of the score files from pairingnumber: score to name: result. Eg: --- 'Antonio, Hobmeir Neto': Draw 'Tiago, Vignatti': Draw 'Bruno, Ribas': Draw 'Paulo, Zanoni': Draw -- Greg Matheson In theory, theory and practice are the same thing. In practice, they are different. --Jan LA van de Snepscheut -- This message has been scanned for viruses and dangerous content by MailScanner, and is believed to be clean.

Wed Apr 04 14:08:48 2007 hobmeir [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Wed, 4 Apr 2007 15:08:25 -0300
To:	bug-Games-Tournament-Swiss [...] rt.cpan.org
From:	"Antonio Hobmeir Neto" <hobmeir [...] gmail.com>

2007/4/4, lang@ms.chinmin.edu.tw via RT <bug-Games-Tournament-Swiss@rt.cpan.org>: Show quoted text

> > <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 > > > On Tue, 03 Apr 2007, Antonio Hobmeir Neto via RT wrote: > >

> > Queue: Games-Tournament-Swiss > > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 >

>

> > DB<2> c 175 > > Games::Tournament::Swiss::Procedure::FIDE::next(/usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm:175): > > 175: return LAST if $index >= $#$groups; > > DB<3> c 175 > > Next, Bracket 1: 1 2 3 4 5 6 > > C1, B1,2 test: ok, no unpairables > > C2, x=1 > > C3, p=3 Homogeneous. > > C4, S1 & S2: 1 2 3 & 4 5 6 > > C5, ordered: 1 2 3 & 4 5 6 > > C6, 3 tables paired. E1 4&1 E1 2&5 E1 6&3 > > C6others: no non-paired players > > Games::Tournament::Swiss::Procedure::FIDE::next(/usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm:175): > > 175: return LAST if $index >= $#$groups; > > DB<4> x 2 $args{matches} > > 0 ARRAY(0x83ed49c) > > 0 ARRAY(0x87a1be4)

> > This looks good. >

> > DB<5> x 3 $args{matches} > > 0 ARRAY(0x83ed49c) > > 0 ARRAY(0x87a1be4) > > 0 Games::Tournament::Card=HASH(0x83eec3c) > > 1 Games::Tournament::Card=HASH(0x87a1d34) > > 2 Games::Tournament::Card=HASH(0x84f571c) > > Dx 4 $args{matches}

> > That line is strange. It looks like it didn't finish before > starting to the next command. Is this how it appeared before you > copied it?

Yes, it's the exactly that i got. Show quoted text

> > It looks like the debugger is mangling the line. >

> > Number found where operator expected at (eval > > 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2, near "matx 4" > > at (eval 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2 > > eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package > > Games::Tournament::Swiss::Procedure::FIDE; $^D = $^D | $DB::db_stop; > > $args{matx 4 $args{matches};

>

> > ;' called at /usr/share/perl/5.8/perl5db.pl line 628 > > DB::eval called at /usr/share/perl/5.8/perl5db.pl line 3410 > > DB::DB called at > > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > > line 175 > > Games::Tournament::Swiss::Procedure::FIDE::next('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)', > > 'byes', 'undef', 'matches', 'ARRAY(0x83ed49c)', 'round', 1, > > 'brackets', 'ARRAY(0x855d5f4)', ...) called at > > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > > line 149 > > Games::Tournament::Swiss::Procedure::FIDE::matchPlayers('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)') > > called at ./pair line 128 > > (Do you need to predeclare matx?) > > at (eval 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2 > > eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package > > Games::Tournament::Swiss::Procedure::FIDE; $^D = $^D | $DB::db_stop; > > $args{matx 4 $args{matches};

>

> > ;' called at /usr/share/perl/5.8/perl5db.pl line 628 > > DB::eval called at /usr/share/perl/5.8/perl5db.pl line 3410 > > DB::DB called at > > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > > line 175 > > Games::Tournament::Swiss::Procedure::FIDE::next('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)', > > 'byes', 'undef', 'matches', 'ARRAY(0x83ed49c)', 'round', 1, > > 'brackets', 'ARRAY(0x855d5f4)', ...) called at > > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > > line 149 > > Games::Tournament::Swiss::Procedure::FIDE::matchPlayers('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)') > > called at ./pair line 128 > > Scalar found where operator expected at (eval > > 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2, near "4 $args" > > at (eval 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2 > > eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package > > Games::Tournament::Swiss::Procedure::FIDE; $^D = $^D | $DB::db_stop; > > $args{matx 4 $args{matches};

>

> > ;' called at /usr/share/perl/5.8/perl5db.pl line 628 > > DB::eval called at /usr/share/perl/5.8/perl5db.pl line 3410 > > DB::DB called at > > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > > line 175 > > Games::Tournament::Swiss::Procedure::FIDE::next('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)', > > 'byes', 'undef', 'matches', 'ARRAY(0x83ed49c)', 'round', 1, > > 'brackets', 'ARRAY(0x855d5f4)', ...) called at > > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > > line 149 > > Games::Tournament::Swiss::Procedure::FIDE::matchPlayers('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)') > > called at ./pair line 128 > > (Missing operator before $args?) > > at (eval 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2 > > eval '($@, $!, $^E, $,, $/, $\\, $^W) = @saved;package > > Games::Tournament::Swiss::Procedure::FIDE; $^D = $^D | $DB::db_stop; > > $args{matx 4 $args{matches};

>

> > ;' called at /usr/share/perl/5.8/perl5db.pl line 628 > > DB::eval called at /usr/share/perl/5.8/perl5db.pl line 3410 > > DB::DB called at > > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > > line 175 > > Games::Tournament::Swiss::Procedure::FIDE::next('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)', > > 'byes', 'undef', 'matches', 'ARRAY(0x83ed49c)', 'round', 1, > > 'brackets', 'ARRAY(0x855d5f4)', ...) called at > > /usr/local/share/perl/5.8.7/Games/Tournament/Swiss/Procedure/FIDE.pm > > line 149 > > Games::Tournament::Swiss::Procedure::FIDE::matchPlayers('Games::Tournament::Swiss::Procedure=HASH(0x84f526c)') > > called at ./pair line 128 > > syntax error at (eval 20)[/usr/share/perl/5.8/perl5db.pl:628] line 2, > > near "matx 4"

> > I don't know why you are getting this output. >

> > DB<8> x 5 $args{matches} > > 0 ARRAY(0x83ed49c) > > 0 ARRAY(0x87a1be4) > > 0 Games::Tournament::Card=HASH(0x83eec3c) > > 'contestants' => HASH(0x84f57ac) > > 'Black' => Games::Tournament::Contestant::Swiss=HASH(0x84f4c48) > > 'White' => Games::Tournament::Contestant::Swiss=HASH(0x85e3cfc) > > 'floats' => HASH(0x86cf49c) > > 'Black' => undef > > 'White' => undef > > 'result' => undef > > 'round' => 1 > > 1 Games::Tournament::Card=HASH(0x87a1d34) > > 'contestants' => HASH(0x8773fe4) > > 'Black' => Games::Tournament::Contestant::Swiss=HASH(0x84f4df8) > > 'White' => Games::Tournament::Contestant::Swiss=HASH(0x84f4cd8) > > 'floats' => HASH(0x87a1c14) > > 'Black' => undef > > 'White' => undef > > 'result' => undef > > 'round' => 1 > > 2 Games::Tournament::Card=HASH(0x84f571c) > > 'contestants' => HASH(0x84f5710) > > 'Black' => Games::Tournament::Contestant::Swiss=HASH(0x84f4d68) > > 'White' => Games::Tournament::Contestant::Swiss=HASH(0x84f4e88) > > 'floats' => HASH(0x87a1ae8) > > 'Black' => undef > > 'White' => undef > > 'result' => undef > > 'round' => 1

> > x 5 $args{matches} looks okay. I wonder if it is connected to the > odd and even number of entrants. > > I have uploaded a new version, 0.04 to CPAN. Can you try > installing that and seeing how the tests run. It may take some > time for it to become available. >

I saw that the new version allow more than 4-rounds, i need 6-rounds, is this available? I didn't test the new version yet, because don't have the tarball in site, could you put it? or on e-mail to me? Thanks, Show quoted text

> In particular, if you can find > Games-Tournament-Swiss-0.04/t/pairing4.t, and run 'prove -t > t/pairing' in the Games-Tournament-Swiss-0.04 directory, we can > see if we still have the problem. > > I changed the format of the score files from pairingnumber: score > to name: result. > > Eg: > > --- > 'Antonio, Hobmeir Neto': Draw > 'Tiago, Vignatti': Draw > 'Bruno, Ribas': Draw > 'Paulo, Zanoni': Draw > > -- > Greg Matheson In theory, theory and practice are the same thing. > In practice, they are different. > --Jan LA van de Snepscheut > > -- > This message has been scanned for viruses and > dangerous content by MailScanner, and is > believed to be clean. > > >

-- ------------------------------------------------- Antonio Hobmeir Neto Ciência da Computação (UFPR) -------------------------------------------------

Fri Apr 06 02:50:38 2007 lang [...] ms.chinmin.edu.tw - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Fri, 6 Apr 2007 14:45:24 +0800
To:	Antonio Hobmeir Neto via RT <bug-Games-Tournament-Swiss [...] rt.cpan.org>
From:	Greg Matheson <lang [...] ms.chinmin.edu.tw>

On Wed, 04 Apr 2007, Antonio Hobmeir Neto via RT wrote: Show quoted text

> > That line is strange. It looks like it didn't finish before > > starting to the next command. Is this how it appeared before you > > copied it?

> Yes, it's the exactly that i got.

The debugger didn't return a prompt. I don't understand. Show quoted text

> I saw that the new version allow more than 4-rounds, i need 6-rounds, > is this available?

I don't understand. How many players do you have? I thought the swiss rules were that you could only have fewer rounds than the number of players. If you want them to play each other a number of times, then probably best is to run an independent second and third tournament. Show quoted text

> I didn't test the new version yet, because don't have the tarball in > site, could you put it? or on e-mail to me?

It is there now at http://search.cpan.org/~drbean/Games-Tournament-Swiss-0.04 Can you try running 'prove -t t/pairing4.t' in the directory in which you open the tarball? CPAN Testers are finding no problems with that test, so I wonder if it works for you too. -- Greg Matheson Where do I have to be to get to there from here? --Dr Bean -- This message has been scanned for viruses and dangerous content by MailScanner, and is believed to be clean.

Mon Apr 09 10:19:23 2007 hobmeir [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Mon, 9 Apr 2007 11:18:32 -0300
To:	bug-Games-Tournament-Swiss [...] rt.cpan.org
From:	"Antonio Hobmeir Neto" <hobmeir [...] gmail.com>

2007/4/6, lang@ms.chinmin.edu.tw via RT <bug-Games-Tournament-Swiss@rt.cpan.org>: Show quoted text

> > <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 > > > On Wed, 04 Apr 2007, Antonio Hobmeir Neto via RT wrote: >

> > > That line is strange. It looks like it didn't finish before > > > starting to the next command. Is this how it appeared before you > > > copied it?

> > Yes, it's the exactly that i got.

> > The debugger didn't return a prompt. I don't understand. >

> > I saw that the new version allow more than 4-rounds, i need 6-rounds, > > is this available?

> > I don't understand. How many players do you have? I thought the > swiss rules were that you could only have fewer rounds than the > number of players. >

Sorry, i made a mistake. Show quoted text

> If you want them to play each other a number of times, then probably best > is to run an independent second and third tournament. >

> > I didn't test the new version yet, because don't have the tarball in > > site, could you put it? or on e-mail to me?

> > It is there now at > http://search.cpan.org/~drbean/Games-Tournament-Swiss-0.04 > > Can you try running 'prove -t t/pairing4.t' in the directory in > which you open the tarball?

I did and works for me too. I will make some tests today with the new version. Thanks, Show quoted text

> > CPAN Testers are finding no problems with that test, so I wonder > if it works for you too. > > -- > Greg Matheson Where do I have to be to get to > there from here? > --Dr Bean > > -- > This message has been scanned for viruses and > dangerous content by MailScanner, and is > believed to be clean. > > >

-- ------------------------------------------------- Antonio Hobmeir Neto Ciência da Computação (UFPR) -------------------------------------------------

Tue Apr 10 00:38:10 2007 lang [...] ms.chinmin.edu.tw - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Tue, 10 Apr 2007 12:32:08 +0800
To:	Antonio Hobmeir Neto via RT <bug-Games-Tournament-Swiss [...] rt.cpan.org>
From:	Greg Matheson <lang [...] ms.chinmin.edu.tw>

On Mon, 09 Apr 2007, Antonio Hobmeir Neto via RT wrote: Show quoted text

> Queue: Games-Tournament-Swiss > Ticket <URL: http://rt.cpan.org/Ticket/Display.html?id=25825 >

Show quoted text

> > Can you try running 'prove -t t/pairing4.t' in the directory in > > which you open the tarball?

Show quoted text

> I did and works for me too.

That test does a lot of the same things as script_files/pair. Is the pair script still failing for you? -- Greg Matheson If there is one thing we learn from the study of the knowledge of experts, it is that experts learn more than we learn. -- This message has been scanned for viruses and dangerous content by MailScanner, and is believed to be clean.

Tue Sep 11 00:54:20 2007 DRBEAN [...] cpan.org - Correspondence added

This seemed like a problem with perl, rather than Games::Tournament::Swiss. Anyway, Antonio hasn't replied to my last message for a long time so I'm marking this stalled.

Tue Sep 11 00:54:21 2007 DRBEAN [...] cpan.org - Status changed from 'open' to 'stalled'

Tue Sep 11 08:07:32 2007 hobmeir [...] gmail.com - Correspondence added

Subject:	Re: [rt.cpan.org #25825] Script Pair
Date:	Tue, 11 Sep 2007 09:07:08 -0300
To:	bug-Games-Tournament-Swiss [...] rt.cpan.org
From:	"Antonio Hobmeir Neto" <hobmeir [...] gmail.com>

Sorry for don't reply anymore. I had changes in my project and i stopped to use the script pair and components. Thank you for the help, and keep your nice work. -- ---------------------------------------------------------------- Antonio Hobmeir Neto Bacharel em Ciência da Computação (UFPR) Mestrando em Informática (UFPR) ----------------------------------------------------------------

Tue Sep 11 08:07:35 2007 The RT System itself - Status changed from 'stalled' to 'open'

Fri Sep 14 06:03:38 2007 DRBEAN [...] cpan.org - Correspondence added

Bug closed. Antonio has moved on to another project.

Fri Sep 14 06:03:47 2007 DRBEAN [...] cpan.org - Status changed from 'open' to 'resolved'