Commit f7e9b0dd authored by Leigh B Stoller's avatar Leigh B Stoller
Browse files

Merge branch 'master' of git-public.flux.utah.edu:/flux/git/emulab-devel

parents e2432291 ac367f7b
......@@ -2,6 +2,7 @@ package TraceUse;
use Time::HiRes qw( gettimeofday tv_interval );
use Data::Dumper;
use English;
BEGIN
{
......@@ -54,6 +55,7 @@ sub trace_use
'line' => $line,
'time' => $elapsed,
'module' => $mod_name,
'inc' => "@INC",
};
return;
......@@ -83,6 +85,7 @@ END
my $indent = ' ' x $pos;
$message .= "$indent$mod->{module}, line $mod->{line}";
$message .= sprintf(" (%lf)", $mod->{'time'}) if $mod->{time};
# $message .= " " . $mod->{inc};
warn "$message\n";
}
}
......
......@@ -917,7 +917,9 @@ COMMAND: foreach my $command (@commands) {
foreach my $vlanid (@vlans) {
my $vlan = $vlans{$vlanid};
if (!$vlan->link() || exists($newvlans{$vlan->link()})) {
if (!$vlan->link() ||
exists($newvlans{$vlan->link()}) ||
!exists($vlans{$vlan->link()})) {
push(@newvlans, $vlanid);
$newvlans{$vlanid} = $vlanid;
}
......
......@@ -927,7 +927,9 @@ COMMAND: foreach my $command (@commands) {
foreach my $vlanid (@vlans) {
my $vlan = $vlans{$vlanid};
if (!$vlan->link() || exists($newvlans{$vlan->link()})) {
if (!$vlan->link() ||
exists($newvlans{$vlan->link()}) ||
!exists($vlans{$vlan->link()})) {
push(@newvlans, $vlanid);
$newvlans{$vlanid} = $vlanid;
}
......
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