[Docutils-checkins] r5064 - trunk/prest/lib/Text/Restructured.pm.PL

[<mn...@us...>]

Author: mnodine
Date: 2007-05-03 23:29:47 +0200 (Thu, 03 May 2007)
New Revision: 5064

Modified:
   trunk/prest/lib/Text/Restructured.pm.PL
Log:
Add #line directive to ease debugging

Modified: trunk/prest/lib/Text/Restructured.pm.PL
===================================================================
--- trunk/prest/lib/Text/Restructured.pm.PL	2007-05-03 18:19:53 UTC (rev 5063)
+++ trunk/prest/lib/Text/Restructured.pm.PL	2007-05-03 21:29:47 UTC (rev 5064)
@@ -9,6 +9,14 @@
 my %CONFIG = eval(join('',<CF>));
 close CF;
 
+# Figure out where my <DATA> block starts
+open ME, $0;
+while (<ME>) {
+    last if /^__END__/;
+}
+my $LINENO = $.+3;
+close ME;
+
 open OUT, ">$file" or die "Cannot write to $file";
 # My output
 my $output = join '',<DATA>;
@@ -22,6 +30,7 @@
 close OUT;
 __END__
 # $Id$
+#line ${LINENO} Restructured.pm.PL
 # Copyright (C) 2002-2005 Freescale Semiconductor, Inc.
 
 # Distributed under terms of the Perl license, which is the disjunction of
@@ -417,7 +426,7 @@
     }
     my $line = $lineno ? ":$lineno" : '';
     print STDERR "$source$line ($ERROR_LEVELS{$level}/$level) $msg\n"
-	if $level >= $self->{opt}{D}{report} && $source !~ 'test data';
+	if $level >= $self->{opt}{D}{report} && $source !~ /test data/;
     return $dom;
 }