X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FCursor.pm;fp=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FCursor.pm;h=cac152926bffdb4bed87449ee08aec5036862814;hb=d52fc26dd05b56a41494a5ec86cddecfe3587b96;hp=d9004315bb9ab76ae922ca5fc068e9b607dda8c5;hpb=7e1774f762f0290fae3f9f9104a5d5dc52a1c017;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Storage/DBI/Cursor.pm b/lib/DBIx/Class/Storage/DBI/Cursor.pm index d900431..cac1529 100644 --- a/lib/DBIx/Class/Storage/DBI/Cursor.pm +++ b/lib/DBIx/Class/Storage/DBI/Cursor.pm @@ -83,6 +83,11 @@ Returns a new L object. $self->{_intra_thread} = 1; } + + # Dummy NEXTSTATE ensuring the all temporaries on the stack are garbage + # collected before leaving this scope. Depending on the code above, this + # may very well be just a preventive measure guarding future modifications + undef; } } @@ -229,6 +234,11 @@ Resets the cursor to the beginning of the L. sub reset { $_[0]->__finish_sth if $_[0]->{sth}; $_[0]->sth(undef); + + # Dummy NEXTSTATE ensuring the all temporaries on the stack are garbage + # collected before leaving this scope. Depending on the code above, this + # may very well be just a preventive measure guarding future modifications + undef; } @@ -236,6 +246,11 @@ sub DESTROY { return if &detected_reinvoked_destructor; $_[0]->__finish_sth if $_[0]->{sth}; + + # Dummy NEXTSTATE ensuring the all temporaries on the stack are garbage + # collected before leaving this scope. Depending on the code above, this + # may very well be just a preventive measure guarding future modifications + undef; } sub __finish_sth { @@ -262,6 +277,11 @@ sub __finish_sth { ! $self->{sth}->FETCH('Active') } ); + + # Dummy NEXTSTATE ensuring the all temporaries on the stack are garbage + # collected before leaving this scope. Depending on the code above, this + # may very well be just a preventive measure guarding future modifications + undef; } =head1 FURTHER QUESTIONS?