File: fix-cursor-expand-bug

package info (click to toggle)
libmongodbx-class-perl 1.030002-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 396 kB
  • ctags: 95
  • sloc: perl: 876; makefile: 2
file content (13 lines) | stat: -rw-r--r-- 303 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Description: Fix cursor expand bug
Author: dod
--- a/lib/MongoDBx/Class/Cursor.pm
+++ b/lib/MongoDBx/Class/Cursor.pm
@@ -57,7 +57,7 @@
 =cut
 
 around 'next' => sub {
-	my ($orig, $self, $do_not_expand) = (shift, shift);
+	my ($orig, $self, $do_not_expand) = @_;
 
 	my $doc = $self->$orig || return;