Logger.pm: Yay for grammatical consistency

bingos · Feb 2, 2008 · 1f918ab · 1f918ab
1 parent 17f71e3
commit 1f918ab
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/Changes b/Changes
@@ -12,6 +12,7 @@ Revision history for Perl extension POE::Component::IRC.
     - Logger.pm: Add 'Format' argument for specifying a custom log format (Hinrik)
     - Logger.pm: Close log files after writing to them (Hinrik)
     - Logger.pm: Omit date from timestamp if sorting log files by date (Hinrik)
+		- Logger.pm: Always use present tense (Hinrik)
     - NickReclaim.pm: Small fix for an edge case (Hinrik)
 
 5.56  Thu Jan 31 12:30:25 GMT 2008

diff --git a/lib/POE/Component/IRC/Plugin/Logger.pm b/lib/POE/Component/IRC/Plugin/Logger.pm
@@ -88,25 +88,25 @@ sub PCI_register {
         nick_change  => sub { my ($old_nick, $new_nick) = @_;    "--- $old_nick is now known as $new_nick" },
         topic_is     => sub { my ($chan, $topic) = @_;           "--- Topic for $chan is: $topic" },
         topic_set_by => sub { my ($chan, $nick, $date) = @_;     "--- Topic for $chan was set by $nick at $date" },
-        topic_change => sub { my ($nick, $topic)= @_;            "--- $topic has changed the topic to: $topic" },
+        topic_change => sub { my ($nick, $topic)= @_;            "--- $topic changes the topic to: $topic" },
         privmsg      => sub { my ($nick, $msg) = @_;             "<$nick> $msg" },
         action       => sub { my ($nick, $action) = @_;          "* $nick $action" },
-        join         => sub { my ($nick, $userhost, $chan) = @_; "--> $nick ($userhost) has joined $chan" },
+        join         => sub { my ($nick, $userhost, $chan) = @_; "--> $nick ($userhost) joins $chan" },
         part         => sub {
             my ($nick, $userhost, $chan, $msg) = @_;
-            my $line = "<-- $nick ($userhost) has left $chan";
+            my $line = "<-- $nick ($userhost) leaves $chan";
             $line .= " ($msg)" if $msg ne '';
             return $line;
         },
         quit         => sub {
             my ($nick, $userhost, $chan, $msg) = @_;
-            my $line = "<-- $nick ($userhost) has quit";
+            my $line = "<-- $nick ($userhost) quits";
             $line .= " ($msg)" if $msg ne '';
             return $line;
         },
         kick         => sub {
             my ($kicker, $victim, $chan, $msg) = @_;
-            my $line = "<-- $kicker has kicked $victim from $chan";
+            my $line = "<-- $kicker kicks $victim from $chan";
             $line .= " ($msg)" if $msg ne '';
             return $line;
         },