DBI.xs: In function `dbih_clearcom':

DBI.xs:1183: warning: unused variable `Perl___notused'