Commit 0e4ce7c7 authored by Leigh Stoller's avatar Leigh Stoller

Fix tp previous revision.

parent c2028677
#!/usr/bin/perl -w
#
# Copyright (c) 2010-2012 University of Utah and the Flux Group.
# Copyright (c) 2010-2013 University of Utah and the Flux Group.
#
# {{{GENIPUBLIC-LICENSE
#
......@@ -696,7 +696,7 @@ sub IsUntaggedLan($)
{
my ($link) = @_;
my $result = 0;
my @tagged = FindNodesNS("n:untagged_vlan", $link,
my @tagged = FindNodesNS("n:vlan_tagging", $link,
$EMULAB_NS)->get_nodelist();
if (scalar(@tagged) > 0) {
my $enabled = GetText("enabled", $tagged[0]);
......@@ -709,7 +709,7 @@ sub IsTaggedLan($)
{
my ($link) = @_;
my $result = 0;
my @tagged = FindNodesNS("n:untagged_vlan", $link,
my @tagged = FindNodesNS("n:vlan_tagging", $link,
$EMULAB_NS)->get_nodelist();
if (scalar(@tagged) > 0) {
my $enabled = GetText("enabled", $tagged[0]);
......
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