#1 Bug in PerlMonksModules 2.2?

open
nobody
None
5
2002-09-30
2002-09-30
Anonymous
No

Hello, this is bronto from perlmonks.org

I had to change several lines to make the Perl/Tk
chatterbox client work. Here you are the diffs:

# diff Chat.pm.dist Chat.pm
61c61
< my
@msgs=($c=~/message\s+author="([^\"]+)"[^>]+>\s*(.*?)\s*<\/message>/g);---
> my
@msgs=($c=~/message\s+[^>]*author="([^\"]+)"[^>]+>\s*(.*?)\s*<\/message>/g);

# diff Users.pm.dist Users.pm
66c66
< my
%users=($c=~/user\s+username="([^\"]+)"\s+user_id="(\d+)"/g);
---
> my %users= reverse
($c=~/user\s+user_id="(\d+)"\s+username="([^\"]+)"/g);

I hope this helps

Cheers
--bronto <bronto@crs4.it>

Discussion


Log in to post a comment.

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:

JavaScript is required for this form.





No, thanks