[DBD::Pg 2/4] Change var name in test - actually important as we are counting sth's!

[email protected] Tue, 6 Jan 2015 16:56:20 +0000
Newsgroups perl.dbd.pg.changes
Message-ID <[email protected]>
Committed by Greg Sabino Mullane <[email protected]>

Subject: [DBD::Pg 2/4] Change var name in test - actually important as we are
counting sth's!

---
 t/02attribs.t | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/t/02attribs.t b/t/02attribs.t
index 0ac694d..9547d27 100644
--- a/t/02attribs.t
+++ b/t/02attribs.t
@@ -1108,17 +1108,17 @@ is_deeply ($attrib, [], $t);
 
 $t='Statement handle attribute "ChildHandles" is an empty list on creation';
 {
-	$sth4 = $dbh4->prepare('SELECT 1');
-	$attrib = $sth4->{ChildHandles};
+	my $sth5 = $dbh4->prepare('SELECT 1');
+	$attrib = $sth5->{ChildHandles};
 	is_deeply ($attrib, [], $t);
 
 	$t='Database handle attribute "ChildHandles" contains newly created statement handle';
 	$attrib = $dbh4->{ChildHandles};
-	is_deeply ($attrib, [$sth4], $t);
+	is_deeply ($attrib, [$sth5], $t);
 
 	$sth4->finish();
 
-} ## sth4 now out of scope
+} ## sth5 now out of scope
 
 $t='Database handle attribute "ChildHandles" has undef for destroyed statement handle';
 $attrib = $dbh4->{ChildHandles};
-- 
1.8.4