From bfefa7ab3b5c06d3efb78ce2d1379f8c463edd6b Mon Sep 17 00:00:00 2001
From: Adam Kennedy <adamk@cpan.org>
Date: Wed, 15 Apr 2009 12:55:40 +0000
Subject: [PATCH] Bug fix

---
 lib/DBD/SQLite.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/DBD/SQLite.pm b/lib/DBD/SQLite.pm
index 83ec062..eac479c 100644
--- a/lib/DBD/SQLite.pm
+++ b/lib/DBD/SQLite.pm
@@ -84,12 +84,13 @@ package DBD::SQLite::db;
 
 sub prepare {
     my $dbh = shift;
+    my $sql = shift;
 
     my $sth = DBI::_new_sth( $dbh, {
-        Statement => shift,
+        Statement => $sql,
     } );
 
-    DBD::SQLite::st::_prepare($sth, $statement, @_) or return undef;
+    DBD::SQLite::st::_prepare($sth, $sql, @_) or return undef;
 
     return $sth;
 }