Commit edfec844 authored by Leigh Stoller's avatar Leigh Stoller

Minor bug fix.

parent 689fbd13
#!/usr/bin/perl -wT
#
# EMULAB-COPYRIGHT
# Copyright (c) 2005, 2006 University of Utah and the Flux Group.
# Copyright (c) 2005, 2006, 2007 University of Utah and the Flux Group.
# All rights reserved.
#
package NodeType;
......@@ -135,7 +135,7 @@ sub AuxTypes($)
" from node_types_auxtypes as at ".
"left join node_types as nt on nt.type=at.type ");
return undef
return ()
if (!$query_result || !$query_result->numrows);
while (my ($auxtype, $type) = $query_result->fetchrow_array()) {
......
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