diff options
| -rw-r--r-- | firstseen.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/firstseen.pl b/firstseen.pl index 7d8f3b6..998836b 100644 --- a/firstseen.pl +++ b/firstseen.pl @@ -38,7 +38,7 @@ foreach $line (<file>) { if ($line =~ m/^\[00:00(:00)?\] --- /){ ($date=$line)=~s/^\[00:00(:00)?\] --- (.*)\n/$2/; } - if ($line =~ m/^\[[0-9]{2}:[0-9]{2}(:[0-]{2})?\] Nick change: .* -> $snick/i) { + if ($line =~ m/^\[[0-9]{2}:[0-9]{2}(:[0-9]{2})?\] Nick change: .* -> $snick/i) { ($newnick=$line)=~s/.* Nick change: (.*) -> $snick\n/$1/i; print "$nick was $newnick\n"; exec($^X, $0, $folder, $chan, $newnick); |