[Discnw-checkins] discnw/src/perl/modules/DiscNW Question.pm,1.5,1.6

[Geoffrey T. D. <da...@us...>]

Update of /cvsroot/discnw/discnw/src/perl/modules/DiscNW
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2167/modules/DiscNW

Modified Files:
	Question.pm 
Log Message:
Fix for '"my" variable $sth masks earlier declaration in same scope' 
warning from 'perl -w'



Index: Question.pm
===================================================================
RCS file: /cvsroot/discnw/discnw/src/perl/modules/DiscNW/Question.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- Question.pm	17 Dec 2004 03:52:22 -0000	1.5
+++ Question.pm	17 Dec 2004 23:15:31 -0000	1.6
@@ -58,9 +58,9 @@
     }
 
     # delete old response(s) to that question if they exist
-    my $sth = $self->_dbh->prepare("DELETE FROM MemberResponses
-                                          WHERE question_id=?
-                                            AND individual_id=?");
+    $sth = $self->_dbh->prepare("DELETE FROM MemberResponses
+                                       WHERE question_id=?
+                                         AND individual_id=?");
     $sth->execute($self->id(),$mem_id);
     $sth->finish;
     # record new response(s)