Commit c6549984 authored by Mike Hibler's avatar Mike Hibler

Get rid of a long-standing perl warning.

parent a493292c
...@@ -102,8 +102,8 @@ my @PIDONLYTABLES = ("os_info"); ...@@ -102,8 +102,8 @@ my @PIDONLYTABLES = ("os_info");
my $q = DBQueryFatal("select pid_idx from projects ". my $q = DBQueryFatal("select pid_idx from projects ".
"where pid='$TBOPSPID'"); "where pid='$TBOPSPID'");
my ($npid) = $q->fetchrow_array(); my ($npid) = $q->fetchrow_array();
my $q = DBQueryFatal("select gid_idx from groups ". $q = DBQueryFatal("select gid_idx from groups ".
"where pid='$TBOPSPID' and gid=pid"); "where pid='$TBOPSPID' and gid=pid");
my ($ngid) = $q->fetchrow_array(); my ($ngid) = $q->fetchrow_array();
foreach my $table (@PIDGIDTABLES) { foreach my $table (@PIDGIDTABLES) {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment