diff options
-rwxr-xr-x | perl/sentry.pl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl/sentry.pl b/perl/sentry.pl index 3da9291..ad82570 100755 --- a/perl/sentry.pl +++ b/perl/sentry.pl @@ -52,11 +52,11 @@ if ( $DEBUG ) { } $oss_sth = $dbh->prepare($oss_sql); - $oss_sth->execute(); + $oss_sth->execute(); - while ( my $os = $oss_sth->fetchrow_hashref() ) { - $oss{$os->{os_id}} = $os->{os_name}; - } + while ( my $os = $oss_sth->fetchrow_hashref() ) { + $oss{$os->{os_id}} = $os->{os_name}; + } } # let's build the location information |