Merge pull request #86 from lisaens/char-conv

Fixed a couple syntax errors
netsage-project · Jun 25, 2018 · b150bce · b150bce
2 parents 70c1c6a + 42c26da
commit b150bce
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/lib/GRNOC/NetSage/ResourceDB/DataService/Util.pm b/lib/GRNOC/NetSage/ResourceDB/DataService/Util.pm
@@ -247,7 +247,6 @@ sub upgrade_to_0_1_0 {
     my $self    = shift;
     my $db      = shift;
     my $version = shift;
-    my $err = undef;
 
     my @queries = (
     "SET FOREIGN_KEY_CHECKS=0;",
@@ -295,7 +294,9 @@ sub upgrade_to_0_1_0 {
     "SET FOREIGN_KEY_CHECKS=1;"
     );
 
-    foreach $query (@queries) {
+    my $err = undef;
+    my $ok = undef;
+    foreach my $query (@queries) {
         $ok = $db->do( $query );
         if (!$ok) {
             $err = $DBI::errstr;