Changes in perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm [9375f8c:96134cb]

File:

• perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm (modified) (2 diffs)

perl/modules/Jabber/lib/BarnOwl/Message/Jabber.pm

@@ -70 +70 @@
         $filter = "jabber-room-$room";
         BarnOwl::command(qw[filter], $filter,
-                         qw[type ^jabber$ and room], "^\Q$room\E\$");
+                         qw[type ^jabber$ and room], "^$room\$");
         return $filter;
     } elsif ($self->login ne 'none') {
@@ -84 +84 @@
     my $filter = "jabber-user-$user";
     BarnOwl::command(qw[filter], $filter, qw[type ^jabber$],
-                     qw[and ( ( direction ^in$ and from], "^\Q$user\E(/.*)?\$",
-                     qw[) or ( direction ^out$ and to ], "^\Q$user\E(/.*)?\$",
+                     qw[and ( ( direction ^in$ and from], "^$user",
+                     qw[) or ( direction ^out$ and to ], "^$user",
                      qw[ ) ) ]);
     return $filter;