From 0711e74b084cc99d8f3508d2aac4daf7f933e142 Mon Sep 17 00:00:00 2001 From: Ralf Ertzinger Date: Sat, 2 Oct 2010 00:07:31 +0200 Subject: [PATCH] TwitterGrabber: Add support for new tweet URL format (aka hashbang vomit) --- quotesite/TwitterGrabber.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/quotesite/TwitterGrabber.pm b/quotesite/TwitterGrabber.pm index 57e0ec4..6fab0cd 100644 --- 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(); -- 1.8.3.1