X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FCursor.pm;h=770608c25f0d10bafec77f24ea0df04467429417;hb=d73c65616463b6d435eac899dc2ef21c1b53b29a;hp=26dca846c7074140ace58b5708956a24bccc4d34;hpb=d601dc88fcedcf9b0ef3c17c29556e26179c1cdc;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/Storage/DBI/Cursor.pm b/lib/DBIx/Class/Storage/DBI/Cursor.pm index 26dca84..770608c 100644 --- a/lib/DBIx/Class/Storage/DBI/Cursor.pm +++ b/lib/DBIx/Class/Storage/DBI/Cursor.pm @@ -30,8 +30,6 @@ information. =head2 new -=back - Returns a new L object. =cut @@ -57,7 +55,7 @@ sub new { =over 4 -=item Arguments: (none) +=item Arguments: none =item Return Value: \@row_columns @@ -99,7 +97,7 @@ sub next { =over 4 -=item Arguments: (none) +=item Arguments: none =item Return Value: \@row_columns+ @@ -123,8 +121,6 @@ sub all { =head2 reset -=back - Resets the cursor to the beginning of the L. =cut @@ -164,7 +160,7 @@ sub DESTROY { my ($self) = @_; $self->_check_forks_threads; - $self->{sth}->finish if $self->{sth}->{Active}; + $self->{sth}->finish if $self->{sth} && $self->{sth}->{Active}; } 1;