--- PApp-SQL/SQL.pm 2006/03/03 14:12:22 1.36 +++ PApp-SQL/SQL.pm 2008/01/19 07:38:52 1.37 @@ -10,7 +10,7 @@ local $DBH = ; my $st = sql_exec \my($bind_a, $bind_b), "select a,b ..."; - my $st = sql_insertid + my $id = sql_insertid sql_exec "insert into ... values (?, ?)", $v1, $v2; my $a = sql_fetch "select a from ..."; sql_fetch \my($a, $b), "select a,b ..."; @@ -46,7 +46,7 @@ BEGIN { use base qw(Exporter DynaLoader); - $VERSION = '1.02'; + $VERSION = '1.03'; @EXPORT = qw( sql_exec sql_fetch sql_fetchall sql_exists sql_insertid $sql_exec sql_uexec sql_ufetch sql_ufetchall sql_uexists