mirrors/weechat-opal
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

yiff.pl: lol regex

Browse Source
This commit is contained in:
wowaname 2016-09-30 23:06:01 +00:00
parent 79db45e309
commit 3362f896e1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scripts/yiff.pl
View File

@ -80,7 +80,7 @@ sub yiff {
sub cmd_yiff { sub cmd_yiff {
my $buffer = $_[1]; my $buffer = $_[1];
my ($dbfile, $target) = $_[2] =~ /^(|-[^ ]+) *([^ ]*)/; my ($dbfile, $target) = $_[2] =~ /^(-[^ ]+|) *([^ ]*)/;
my @users = nicklist($buffer); my @users = nicklist($buffer);
return yiff($buffer, $dbfile, $target, @users); return yiff($buffer, $dbfile, $target, @users);
@ -88,7 +88,7 @@ sub cmd_yiff {
sub cmd_ryiff { sub cmd_ryiff {
my $buffer = $_[1]; my $buffer = $_[1];
my ($dbfile) = $_[2] =~ /^(|-[^ ]+)/; my ($dbfile) = $_[2] =~ /^(-[^ ]+|)/;
my @users = nicklist($buffer); my @users = nicklist($buffer);
my $target = $users[rand @users]; my $target = $users[rand @users];