# New Ticket Created by  Mike Mattie 
# Please include the string:  [perl #42899]
# in the subject line of all future correspondence about this issue. 
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=42899 >


Hello,

My version of Emacs appears to be leaking tabs into files despite having this 
in my emacs config:

(setq indent-tabs-mode nil)

To help track down the problem in emacs/cperl and get it fixed I need better 
diagnostics. I have
attached a patch that adds the line numbers to each instance of a tab being 
detected in the
whitespace of a file. Also all the violating lines, not just the first are 
listed.

This should be a win all around.

Cheers,
Mike Mattie - [EMAIL PROTECTED]
--- HEAD/t/codingstd/tabs.t	2007-03-18 05:17:23.000000000 -0700
+++ BASE/t/codingstd/tabs.t	2007-05-07 04:29:23.000000000 -0700
@@ -43,12 +43,15 @@
     open my $fh, '<', $path
         or die "Cannot open '$path' for reading: $!\n";
 
+    my $line = 1;
+
     # search each line for leading tabs
     while (<$fh>) {
         if ( $_ =~ m/^ *\t/ ) {
-            push @tabs => "$path\n";
-            last;
+            push @tabs => "$path:$line\n";
         }
+
+	$line++;
     }
     close $fh;
 }
@@ -56,7 +59,7 @@
 ## L<PDD07/Code Formatting/"Indentation must consist only of spaces">
 ok( !scalar(@tabs), "tabs in leading whitespace" )
     or diag(
-    "Found tab in leading whitespace in " . scalar(@tabs) . " files.  Files affected:[EMAIL PROTECTED]" );
+    "Found tab in leading whitespace " . scalar(@tabs) . "instances.  Lines found:[EMAIL PROTECTED]" );
 
 # Local Variables:
 #   mode: cperl

Attachment: signature.asc
Description: PGP signature

Reply via email to