cvs commit: p5ee/App-Repository/lib/App/Repository DBI.pm
[email protected] (Stephen Adkins)
| Newsgroups | perl.cvs.p5ee |
|---|---|
| Message-ID | <[email protected]> |
cvsuser 06/02/16 11:26:07
Modified: App-Repository/lib/App/Repository DBI.pm
Log:
dbexpr_update option sprintf()s using more than one $value (5 actually) for 'if(%s=5,%s,3)' expressions
Revision Changes Path
1.37 +3 -3 p5ee/App-Repository/lib/App/Repository/DBI.pm
Index: DBI.pm
===================================================================
RCS file: /cvs/public/p5ee/App-Repository/lib/App/Repository/DBI.pm,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -r1.36 -r1.37
--- DBI.pm 8 Feb 2006 22:11:48 -0000 1.36
+++ DBI.pm 16 Feb 2006 19:26:07 -0000 1.37
@@ -1687,7 +1687,7 @@
$value = "'$value'";
}
if ($tabcols->{$col}{dbexpr_update}) {
- $value = sprintf($tabcols->{$col}{dbexpr_update}, $value);
+ $value = sprintf($tabcols->{$col}{dbexpr_update}, $value, $value, $value, $value, $value);
}
push(@set, "$col = $value");
}