Web::Contorller::API::Story: fix related story url regex

diff --git a/src/newslash_web/lib/Newslash/Web/Controller/API/Story.pm b/src/newslash_web/lib/Newslash/Web/Controller/API/Story.pm
index 18ddf67..87a63c1 100644 (file)
--- a/src/newslash_web/lib/Newslash/Web/Controller/API/Story.pm
+++ b/src/newslash_web/lib/Newslash/Web/Controller/API/Story.pm
@@ -158,7 +158,7 @@ sub post {
     my @relateds = split(/\s+/, $related_string);
     my $related_sids = [];
     for my $related (@relateds) {
-        if ($related =~ m|^.*(\d\d/\d\d/\d\d/\d+)/|) {
+        if ($related =~ m|^.*(\d\d/\d\d/\d\d/\d+)/?|) {
             push @$related_sids, $1;
         }
     }