develooper Front page | perl.cvs.p5ee | Postings from January 2012

[svn:p5ee] r15108 - p5ee/trunk/App-Repository/lib/App/Repository

From:
spadkins
Date:
January 30, 2012 12:08
Subject:
[svn:p5ee] r15108 - p5ee/trunk/App-Repository/lib/App/Repository
Message ID:
20120130200828.3642B184B4D@xx12.develooper.com
Author: spadkins
Date: Mon Jan 30 12:08:27 2012
New Revision: 15108

Modified:
   p5ee/trunk/App-Repository/lib/App/Repository/Oracle.pm

Log:
fixed insert_rows({ insert_method => single })

Modified: p5ee/trunk/App-Repository/lib/App/Repository/Oracle.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository/Oracle.pm	(original)
+++ p5ee/trunk/App-Repository/lib/App/Repository/Oracle.pm	Mon Jan 30 12:08:27 2012
@@ -400,7 +400,7 @@
     my $rows_ref = ref($rows);
     if ($rows_ref eq "ARRAY") {
         if ($insert_method eq "single") {
-            foreach my $row (@$rows_ref) {
+            foreach my $row (@$rows) {
                 $ok = $self->_insert_row($table, $cols, $rows, $options);
                 $nrows++ if ($ok);
             }



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About