adhoc uri fix

[mubot4fb/mubot4fb.git] / lib / Mubot4FB.pm

diff --git a/lib/Mubot4FB.pm b/lib/Mubot4FB.pm
index 0b3cf67..84ed871 100644 (file)
--- a/lib/Mubot4FB.pm
+++ b/lib/Mubot4FB.pm
@@ -66,9 +66,11 @@ sub _add {
                        my $post_ok = 1;
                        eval{$resp = $me->{fb}->publish($text, $uri)};
                        if ($@) {
+                               warn Dumper($resp) if ($me->{cfg}->{debug});
                                $me->{fb}->init();
                                eval{$resp = $me->{fb}->publish($text, $uri)};
                                $post_ok = 0 if ($@);
+                               warn Dumper($resp) if ($me->{cfg}->{debug});
                        }
 
                        if ($post_ok) {