[interchange] Fix bug with composite keys and options in the $key argument in the
Stefan Hornburg
interchange-cvs at icdevgroup.org
Thu Jun 17 11:27:09 UTC 2010
commit 33f8140c322a3a4cc85d5baaf129917481d17dd6
Author: Stefan Hornburg (Racke) <racke at linuxia.de>
Date: Thu Jun 17 13:25:20 2010 +0200
Fix bug with composite keys and options in the $key argument in the
set_slice method.
lib/Vend/Table/DBI_CompositeKey.pm | 1 -
1 files changed, 0 insertions(+), 1 deletions(-)
---
diff --git a/lib/Vend/Table/DBI_CompositeKey.pm b/lib/Vend/Table/DBI_CompositeKey.pm
index b3b8d42..e7f9ea6 100644
--- a/lib/Vend/Table/DBI_CompositeKey.pm
+++ b/lib/Vend/Table/DBI_CompositeKey.pm
@@ -320,7 +320,6 @@ sub set_slice {
my $opt;
if (ref ($key) eq 'ARRAY' && ref ($key->[0]) eq 'HASH') {
$opt = shift @$key;
- $key = shift @$key;
}
$opt ||= {};
More information about the interchange-cvs
mailing list