SVN: toys/rsget.pl/RSGet/Processor.pm

[sparky]

Author: sparky
Date: Fri Dec  3 22:53:45 2010
New Revision: 11942

Modified:
   toys/rsget.pl/RSGet/Processor.pm
Log:
- count lines when displaying source


Modified: toys/rsget.pl/RSGet/Processor.pm
==============================================================================
--- toys/rsget.pl/RSGet/Processor.pm	(original)
+++ toys/rsget.pl/RSGet/Processor.pm	Fri Dec  3 22:53:45 2010
@@ -180,12 +180,16 @@
 		my $err = $@;
 		return undef unless $err =~ /line \d+/;
 		my @p = split /\n/, $processed;
-		for ( my $i = 0; $i < scalar @p; $i++ ) {
-			my $n = $i + 1;
+		my $n = 1;
+		foreach ( @p ) {
+			if ( /^#line (\d+)/ ) {
+				$n = $1;
+				next;
+			}
 			p sprintf "%s%4d: %s\n",
 				($err =~ /line $n[^\d]/ ? "!" : " "),
-				$n,
-				$p[ $i ];
+				$n, $_;
+			$n++;
 		}
 		return undef;
 	}