Changeset 10371 for lang/perl/Jipotter

Timestamp:

04/25/08 00:50:45 (5 years ago)

Author:

charsbar

Message:

should've used blessed...

Files:

• lang/perl/Jipotter/branches/Cipotter/lib/Cipotter/Model/DB.pm (modified) (2 diffs)

lang/perl/Jipotter/branches/Cipotter/lib/Cipotter/Model/DB.pm

@@ -4 +4 @@
 use warnings;
 use parent qw( Catalyst::Model::Jifty::DBI Cipotter::Component );
+use Scalar::Util qw( blessed );
 
 __PACKAGE__->config(
@@ -17 +18 @@
 sub timelines {
   my $self = shift;
-  my $c    = $_[0]->isa('Catalyst') ? shift : undef;
+  my $c    = blessed $_[0] && $_[0]->isa('Catalyst') ? shift : undef;
   my %args = @_;