TwitterGrabber: Add support for new tweet URL format (aka hashbang vomit)

diff --git a/quotesite/TwitterGrabber.pm b/quotesite/TwitterGrabber.pm
index 57e0ec4..6fab0cd 100644 (file)
--- a/quotesite/TwitterGrabber.pm
+++ b/quotesite/TwitterGrabber.pm
@@ -20,7 +20,7 @@ sub new {
     my $self = $class->SUPER::new();
 
     $self->{'NAME'} = 'twitter.com';
-    $self->{'PATTERNS'} = ['(http://twitter.com/[^/]+/status/(\d+))'];
+    $self->{'PATTERNS'} = ['(http://twitter.com/(?:\#\!/)?[^/]+/status/(\d+))'];
 
     bless($self, $class);
     $self->_prepare_parameters();