--- topic-diff.pl.orig 2004-02-02 08:11:24.000000000 +0100
+++ scripts/topic-diff.pl 2006-10-09 15:57:51.000000000 +0200
@@ -30,8 +30,10 @@
# $server->print ($channel, $server->{tag});
if ($topics{$server->{tag}."_".$channel}) {
- my @original = split /\s*\|\s*/, $topics{$server->{tag}."_".$channel};
- my @modified = split /\s*\|\s*/, $topic;
+ $topics{$server->{tag}."_".$channel} =~ s/^ +| +$//g;
+ $topic =~ s/^ +| +$//g;
+ my @original = split /\s*\|\s*|\s+-\s+/, $topics{$server->{tag}."_".$channel};
+ my @modified = split /\s*\|\s*|\s+-\s+/, $topic;
outer: while( $i <= $#original) {
syntax highlighted by Code2HTML, v. 0.9.1