Minor bug fix.

6d9c618d · Leigh B Stoller · 9ceebeb1 · 6d9c618d
Commit 6d9c618d authored Jun 15, 2015 by Leigh B Stoller
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 3 deletions

db/Lan.pm.in db/Lan.pm.in +3 -3

No files found.
--- a/db/Lan.pm.in
+++ b/db/Lan.pm.in
 #!/usr/bin/perl -wT
 #
-# Copyright (c) 2007-2014 University of Utah and the Flux Group.
+# Copyright (c) 2007-2015 University of Utah and the Flux Group.
 # 
 # {{{EMULAB-LICENSE
 # 
@@ -3691,8 +3691,8 @@ sub GetLinkedTo($$;$)
    # Convert to VLan;
    my @tmp = ();
    foreach my $lan (@result) {
-	bless($lan, $class);
-	push(@tmp, $lan);
+	my $vlan = VLan->Lookup($lan->lanid());
+	push(@tmp, $vlan);
    }
    return @tmp;
 }