Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-10-24 18:55:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix a few more missing $sth->finish warnings in DBTools

Browse Source
This commit is contained in:
zach%zachlipton.com 2006-06-21 17:01:20 +00:00
parent 9041c05ece
commit da1394cc30
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
webtools/litmus/Litmus/DBTools.pm
View File

@ -178,6 +178,7 @@ sub TableExists {
$exists = 1;
}
}
$sth->finish;
return $exists;
}
@ -189,6 +190,7 @@ sub GetFieldDef {
while (my $ref = $sth->fetchrow_arrayref) {
next if $$ref[0] ne $field;
$sth->finish;
return $ref;
}
}
@ -201,6 +203,7 @@ sub GetIndexDef {
while (my $ref = $sth->fetchrow_arrayref) {
next if $$ref[2] ne $field;
$sth->finish;
return $ref;
}
}
@ -213,11 +216,14 @@ sub CountIndexes {
$sth->execute;
if ( $sth->rows == -1 ) {
$sth->finish;
die ("Unexpected response while counting indexes in $table:" .
" \$sth->rows == -1");
}
return ($sth->rows);
my $rows = $sth->rows;
$sth->finish;
return ($rows);
}
#########################################################################
@ -263,6 +269,7 @@ sub DropIndexes {
$SEEN{$$ref[2]} = 1;
}
$sth->finish;
}
1;