From: <mn...@us...> - 2007-12-18 15:21:42
|
Author: mnodine Date: 2007-12-18 16:21:20 +0100 (Tue, 18 Dec 2007) New Revision: 5474 Modified: trunk/prest/lib/Text/Restructured/Writer.pm Log: Turn off line directives if running under the perl debugger. Modified: trunk/prest/lib/Text/Restructured/Writer.pm =================================================================== --- trunk/prest/lib/Text/Restructured/Writer.pm 2007-12-17 23:21:33 UTC (rev 5473) +++ trunk/prest/lib/Text/Restructured/Writer.pm 2007-12-18 15:21:20 UTC (rev 5474) @@ -223,7 +223,10 @@ } $subname =~ s/\W/_/g; my $sub = "package Text::Restructured::Writer::Eval;sub $subname {\n $str}"; - my $line_directive = defined $self->{opt}{D}{no_line_directives} ? "" : + # Turn off line directives if -D no_line_directives or running + # under debugger + my $line_directive = + defined $self->{opt}{D}{no_line_directives} || $^P & 0x10 ? "" : qq(\#line $lineno "$file"\n); my $val = eval("$line_directive$sub"); die "Error: $line: $@" if $@; |