note Aristotle <p>You probably want to fix this:</p> <blockquote><code> my $code = join( "\n", qq[#line 1 "$filename"], File::Slurp::read_file($filename) ); </code></blockquote> <p>You provide list context to <tt>read_file</tt>, only to then glue all the lines back together anyway. Except that you didn't [perlfunc:chomp|chomp] them, so joining with <tt>\n</tt> doubles all EOLs which throws off your line numbers. You want a simple concatenation instead.</p> <code> my $code = qq[#line 1 "$filename"\n] . File::Slurp::read_file($filename); </code> <p>Very nice work on the node.</p> <div class="pmsig pmsig-114691"> <p align="right"><em>Makeshifts last the longest.</em></p> </div> 393426 393426