===================================================================
RCS file: /cvs/trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -r1.34 -r1.35
--- trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2007/02/05 21:02:07	1.34
+++ trango/Net-Telnet-Trango/lib/Net/Telnet/Trango.pm	2007/02/05 21:03:40	1.35
@@ -1,6 +1,6 @@
 package Net::Telnet::Trango;
 
-# $RedRiver: Trango.pm,v 1.33 2007/02/02 21:26:56 andrew Exp $
+# $RedRiver: Trango.pm,v 1.34 2007/02/05 21:02:07 andrew Exp $
 use strict;
 use warnings;
 use base 'Net::Telnet';
@@ -55,8 +55,8 @@
 =head2 B<new>
 - Creates a new Net::Telnet::Trango object.
 
-	new([Options from Net::Telnet,]
-	    [Decode => 0,]);
+    new([Options from Net::Telnet,]
+        [Decode => 0,]);
 
 Same as new from L<Net::Telnet> but sets the default Trango Prompt: 
 '/#> *$/'
@@ -647,11 +647,11 @@
 
 Takes the following paramaters
 
-	suid : numeric,
-	type : (reg|pr)
-	cir  : numeric,
-	mir  : numeric,
-	mac  : Almost any format, it will be reformatted,
+    suid : numeric,
+    type : (reg|pr)
+    cir  : numeric,
+    mir  : numeric,
+    mac  : Almost any format, it will be reformatted,
 
 and returns true on success or undef otherwise.
 
@@ -864,7 +864,7 @@
 - a string containing the command line options that are passed to the
 command
 
-	$t->cmd( String => 'exit', no_prompt => 1, cmd_disconnects => 1 );
+    $t->cmd( String => 'exit', no_prompt => 1, cmd_disconnects => 1 );
 
 =cut
 
@@ -1114,11 +1114,11 @@
     foreach my $line (@lines) {
         $line =~ s/\r?\n$//;
         my ( $mac, $loc, $tm ) = $line =~ /
-			([0-9a-fA-F ]{17})\s+
-			(.*)\s+
-			tm\s+
-			(\d+)
-		/x;
+            ([0-9a-fA-F ]{17})\s+
+            (.*)\s+
+            tm\s+
+            (\d+)
+        /x;
 
         if ($mac) {
             $mac =~ s/\s+//g;