Merge pull request #31 from gedge/all_mods

1-liner to fix Identica issue

twirssi.pl

@@ -16,7 +16,7 @@
 
 use vars qw($VERSION %IRSSI);
 
-$VERSION = sprintf '%s', q$Version: v2.5.1beta2$ =~ /^\w+:\s+v(\S+)/;
+$VERSION = sprintf '%s', q$Version: v2.5.1beta3$ =~ /^\w+:\s+v(\S+)/;
 %IRSSI   = (
     authors     => 'Dan Boger',
     contact     => 'zigdon@gmail.com',
@@ -25,7 +25,7 @@
       . 'Can optionally set your bitlbee /away message to same',
     license => 'GNU GPL v2',
     url     => 'http://twirssi.com',
-    changed => '$Date: 2011-07-13 20:57:10 +0000$',
+    changed => '$Date: 2011-07-27 22:20:01 +0000$',
 );
 
 my $twit;	# $twit is current logged-in Net::Twitter object (usually one of %twits)
@@ -1439,7 +1439,7 @@ sub get_friends {
         for my $page (1..10) {
             &debug($fh, "%G$username%n Loading friends page $page...");
             my $friends;
-            if ( ref($u_twit) =~ /^Net::Twitter/ ) {
+            if ( $username =~ /\@Twitter/ ) {
                 $friends = $u_twit->friends( { cursor => $cursor } );
                 last unless $friends;
                 $cursor  = $friends->{next_cursor};