Report line/column instead of offset as Pg::Parser now provides that …

…info
asio · Jan 15, 2012 · 8079503 · 8079503
1 parent 6c5987c
commit 8079503
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Pg/Checksource.pm b/lib/Pg/Checksource.pm
@@ -74,10 +74,10 @@ sub run {
             my $stream = Array::Stream::Transactional->new($tokens);
             while ($stream->has_more) {
                 my $t = $stream->current;
-                $self->debug && say "Checking token ", $t->type, " with value '", $t->src, "' at offset: ", $t->offset;
+                $self->debug && say "Checking token ", $t->type, " with value '", $t->src, "' at line: ", $t->line, " column: ", $t->column;
                 for my $rule (@token_rules) {
                     unless ($rule->check($t, $stream)) {
-                        say "'", $t->src, "' at offset ", $t->offset, " doesn't conform to '", $rule->name, "'";
+                        say "'", $t->src, "' at line ", $t->line, " column ", $t->column, " doesn't conform to '", $rule->name, "'";
                     }
                 }