Changeset d658c29 for lib/BarnOwl

Timestamp:

May 8, 2009, 12:09:02 PM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.7, release-1.8, release-1.9

Children:

a0385ad3

Parents:

188b745

Message:

Handle old Net::Twitter, instead of just bailing.

File:

• lib/BarnOwl/Module/Twitter.pm (modified) (3 diffs)

lib/BarnOwl/Module/Twitter.pm

@@ -27 +27 @@
 my $instance = "status";
 my $opcode   = "twitter";
+my $use_reply_to = 0;
 
 sub fail {
@@ -35 +36 @@
 }
 
-if($Net::Twitter::VERSION < 2.06) {
-    fail("This version of BarnOwl Twitter requires Net::Twitter at least 2.06\n" .
-         "Only $Net::Twitter::VERSION is currently installed.\n");
+if($Net::Twitter::VERSION >= 2.06) {
+    $use_reply_to = 1;
 }
 
@@ -238 +238 @@
         twitter_direct($1, $2);
     } elsif(defined $twitter) {
-        $twitter->update({
-            status => $msg,
-            defined($reply_to) ? (in_reply_to_status_id => $reply_to) : ()
-           });
+        if($use_reply_to && defined($reply_to)) {
+            $twitter->update({
+                status => $msg,
+                in_reply_to_status_id => $reply_to
+               });
+        } else {
+            $twitter->update($msg);
+        }
     }
 }