fix re syntax

diff --git a/mubot4fb.pl b/mubot4fb.pl
index fb2cc5e..6b7d6de 100755 (executable)
--- a/mubot4fb.pl
+++ b/mubot4fb.pl
@@ -91,7 +91,7 @@ sub _check_dup {
 sub _db_insert {
        my ($me, $db_args) = @_;
 
-       my ($scheme, $path) = split(!://!, $db_args->{uri});
+       my ($scheme, $path) = split(/:\/\//, $db_args->{uri});
        my $sth = $me->{dbh}->prepare("insert into posts (submitter, fb_post_id, uri, prefix, suffix, scheme, path, post_time) values (?, ?, ?, ?, ?, ?)");
        $sth->bind_param(1, $db_args->{submitter}, SQL_TEXT);
        $sth->bind_param(2, $db_args->{fb_post_id}, SQL_BIGINT);
@@ -127,7 +127,7 @@ sub _db_delete {
 sub _db_search {
        my ($me, $word) = @_;
 
-       $column ? $word =~ !://! ? 'uri' : 'path';
+       $column ? $word =~ /:\/\// ? 'uri' : 'path';
 
        my $sth = $me->{dbh}->prepare('select * from posts where match(prefix,'.$column.',suffix) against(?) order by post_time desc limit 1000');
        $sth->bind_param(1, $word, SQL_VARCHAR);