From: bw1 Date: Sat, 5 Jan 2019 09:14:23 +0000 (+0100) Subject: [mood] fix a regex X-Git-Url: http://git.99rst.org/?a=commitdiff_plain;h=9da5a03733a6f1b5797a0e4668330d6eda937bee;p=irssi-scripts.irssi.org.git [mood] fix a regex --- diff --git a/scripts/mood.pl b/scripts/mood.pl index b78e82c..660daba 100644 --- a/scripts/mood.pl +++ b/scripts/mood.pl @@ -12,12 +12,15 @@ # # 07.04.2002 # *own messages can be interpreted +# +# 05.01.2019 +# *some regexp tweaking use strict; use vars qw($VERSION %IRSSI); -$VERSION = "20031207"; +$VERSION = "20190105"; %IRSSI = ( authors => "Stefan 'tommie' Tomanek", contact => "stefan\@pico.ruhr.de", @@ -35,7 +38,7 @@ use vars qw(%channels $eye $refresh $shouting $bored_mouth); sub find_smiley { my ($msg) = @_; my $eyes = '[:=8;]'; - my $noses = '[\-\o]?'; + my $noses = '[\-o]?'; my $sad = '[\(\<\[]'; my $happy = '[\)\>\]D]'; my %smiley = ($eyes.$noses.$happy => 10, @@ -195,3 +198,5 @@ Irssi::timeout_add(10000, 'change_bored_mouth', undef); close_mouth; change_bored_mouth(); open_eyes(); + +# vim:set ts=8 sw=4: