--- sbin/pfsetvlan.orig	2013-05-29 08:34:41.609140888 -0500
+++ sbin/pfsetvlan	2013-05-29 08:58:36.811139294 -0500
@@ -1548,13 +1548,19 @@
                 }
             }
         }
-        @macArray = @tmpMacArray;
+        # Remove duplicate MAC addresses - dgreer@ctdummy.com
+        @macArray = uniq(@tmpMacArray);
+
 
         # }}}3
 
         # number of MACs found > 1 {{{3
         if ( scalar(@macArray) > 1 ) {
+            my $i;
             $logger->info("several MACs found. Do nothing");
+            for($i=0;$i < scalar(@macArray);$i=$i+1){
+                $logger->info("MAC($i): $macArray[$i]")
+            }
 
             # }}}3
 
@@ -2087,6 +2093,23 @@
     }
 }
 
+# Quick function to strip duplicates from an array.
+# Grabbed from "http://stackoverflow.com/questions/7651/how-do-i-remove-duplicate-items-from-an-array-in-perl"
+# -- dgreer@ctdummy
+sub uniq {
+    my %seen = ();
+    my @r = ();
+    foreach my $a (@_) {
+        unless ($seen{$a}) {
+            push @r, $a;
+            $seen{$a} = 1;
+        }
+    }
+    return @r;
+}
+
+
+
 =head1 AUTHOR
 
 Inverse inc. <info@inverse.ca>