From 0ceee8e09d331dfa058485409ed32c82e41a6376 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Fri, 6 Jul 2018 18:56:48 +0200
Subject: [PATCH] comment out debug

---
 vlan-ports.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vlan-ports.pl b/vlan-ports.pl
index 45d8282..a3bf57d 100755
--- a/vlan-ports.pl
+++ b/vlan-ports.pl
@@ -48,7 +48,7 @@ warn dump($stat),$/;
 
 foreach my $sw ( sort keys %$stat ) {
 	my @ports = sort { $a <=> $b } keys %{ $stat->{$sw}->{port_vlan} };
-	warn "# ports = ",dump( \@ports );
+	#warn "# ports = ",dump( \@ports );
 	printf( "%-11s %-5s %s\n", ('-' x 11), ('-' x 5), join(' ', map { sprintf("%-2s", $_) } ( 1 .. $ports[-1] )) );
 	foreach my $vlan ( sort { $a <=> $b } keys %{ $stat->{$sw}->{vlan_port} } ) {
 		my @p = ( '.' ) x ( $ports[-1] + 1 );
-- 
2.20.1