Commit 84023ab2 authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Minor bug fix to termination check.

parent 650adc28
#!/usr/bin/perl -w #!/usr/bin/perl -w
# #
# Copyright (c) 2003-2013 University of Utah and the Flux Group. # Copyright (c) 2003-2014 University of Utah and the Flux Group.
# #
# {{{EMULAB-LICENSE # {{{EMULAB-LICENSE
# #
...@@ -88,7 +88,7 @@ usage() ...@@ -88,7 +88,7 @@ usage()
my $query_result = my $query_result =
DBQueryFatal("select * from node_reservations ". DBQueryFatal("select * from node_reservations ".
"where end is not null and ". "where end is not null and ".
" UNIX_TIMESTAMP(end) > UNIX_TIMESTAMP(now())"); " UNIX_TIMESTAMP(now()) > UNIX_TIMESTAMP(end)");
while (my $row = $query_result->fetchrow_hashref()) { while (my $row = $query_result->fetchrow_hashref()) {
my $pid = $row->{'pid'}; my $pid = $row->{'pid'};
......
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