fix graph delete uri

diff --git a/mubot4fb.pl b/mubot4fb.pl
index 865568c..9a0c94b 100755 (executable)
--- a/mubot4fb.pl
+++ b/mubot4fb.pl
@@ -166,7 +166,8 @@ sub _fb_post_uri {
 sub _fb_delete {
        my ($me, $post_id) = @_;
 
-       my $req = HTTP::Request::Common::DELETE($me->_fb_post_uri($post_id));
+       my $uri = $me->{fbo}->query->find($post_id)->uri_as_string;
+       my $req = HTTP::Request::Common::DELETE($uri);
        $req->header('Content-Length', 0);
        my $resp;
        eval{$resp = LWP::UserAgent->new->request($req)};