Fixed: "since" synthetic arg with InflateObjects role (RT#54901)

semifor · Feb 23, 2010 · 0f8676a · 0f8676a
1 parent 31ca4d6
commit 0f8676a
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 2 deletions.
diff --git a/Changes b/Changes
@@ -1,3 +1,4 @@
+    - Fixed: "since" synthetic arg with InflateObjects role (RT#54901)
     - Fixed: utf8 encoding error for latin1 using Basic Authentication
     - Allow a pre-created user agent object as argument to new (ua => $ua)
     - FAQ: How do I get Twitter to display something other than "from Perl Net::Twitter"?

diff --git a/lib/Net/Twitter/Core.pm b/lib/Net/Twitter/Core.pm
@@ -255,7 +255,7 @@ sub _contains_statuses {
     my ($self, $arrayref) = @_;
 
     my $e = $arrayref->[0] || return;
-    return unless ref $e eq 'HASH';
+    return unless ref $e && reftype $e eq 'HASH';
     return exists $e->{created_at} && exists $e->{text} && exists $e->{id};
 }
 

diff --git a/t/51_since.t b/t/51_since.t
@@ -11,7 +11,7 @@ plan skip_all => 'LWP::UserAgent 5.819 required' if $@;
 
 use_ok 'Net::Twitter';
 
-my $nt = Net::Twitter->new(traits => [qw/API::REST API::Search/]);
+my $nt = Net::Twitter->new(traits => [qw/API::REST API::Search RateLimit InflateObjects/]);
 
 my $datetime_parser = do {
     no warnings 'once';