r47087 - in /branches/upstream/libtext-micromason-perl/current: MANIFEST META.yml MicroMason.pm MicroMason/Docs/Changes.pod MicroMason/Docs/ReadMe.pod MicroMason/LineNumbers.pm Text-MicroMason-2.03.tar
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Fri Nov 13 03:44:03 UTC 2009
Author: jawnsy-guest
Date: Fri Nov 13 03:43:53 2009
New Revision: 47087
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=47087
Log:
[svn-upgrade] Integrating new upstream version, libtext-micromason-perl (2.06)
Removed:
branches/upstream/libtext-micromason-perl/current/Text-MicroMason-2.03.tar
Modified:
branches/upstream/libtext-micromason-perl/current/MANIFEST
branches/upstream/libtext-micromason-perl/current/META.yml
branches/upstream/libtext-micromason-perl/current/MicroMason.pm
branches/upstream/libtext-micromason-perl/current/MicroMason/Docs/Changes.pod
branches/upstream/libtext-micromason-perl/current/MicroMason/Docs/ReadMe.pod
branches/upstream/libtext-micromason-perl/current/MicroMason/LineNumbers.pm
Modified: branches/upstream/libtext-micromason-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-micromason-perl/current/MANIFEST?rev=47087&op=diff
==============================================================================
--- branches/upstream/libtext-micromason-perl/current/MANIFEST (original)
+++ branches/upstream/libtext-micromason-perl/current/MANIFEST Fri Nov 13 03:43:53 2009
@@ -87,5 +87,4 @@
t/90-cache-dir-conflict.t
t/91-template_path.t
t/92-template_path-cache.t
-Text-MicroMason-2.03.tar
META.yml Module meta-data (added by MakeMaker)
Modified: branches/upstream/libtext-micromason-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-micromason-perl/current/META.yml?rev=47087&op=diff
==============================================================================
--- branches/upstream/libtext-micromason-perl/current/META.yml (original)
+++ branches/upstream/libtext-micromason-perl/current/META.yml Fri Nov 13 03:43:53 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Text-MicroMason
-version: 2.05
+version: 2.06
abstract: Simple and Extensible Templating
author:
- Alan Ferrency <ferrency at cpan.org>
Modified: branches/upstream/libtext-micromason-perl/current/MicroMason.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-micromason-perl/current/MicroMason.pm?rev=47087&op=diff
==============================================================================
--- branches/upstream/libtext-micromason-perl/current/MicroMason.pm (original)
+++ branches/upstream/libtext-micromason-perl/current/MicroMason.pm Fri Nov 13 03:43:53 2009
@@ -1,5 +1,5 @@
package Text::MicroMason;
-$VERSION = '2.05';
+$VERSION = '2.06';
# The #line directive requires Perl 5.6 to work correctly the way we use
# it in Base.
Modified: branches/upstream/libtext-micromason-perl/current/MicroMason/Docs/Changes.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-micromason-perl/current/MicroMason/Docs/Changes.pod?rev=47087&op=diff
==============================================================================
--- branches/upstream/libtext-micromason-perl/current/MicroMason/Docs/Changes.pod (original)
+++ branches/upstream/libtext-micromason-perl/current/MicroMason/Docs/Changes.pod Fri Nov 13 03:43:53 2009
@@ -4,6 +4,22 @@
=head1 VERSION 2 HISTORY
+
+=head2 Version 2.06
+
+=over 4
+
+=item 2009-11-11
+
+Fix bug reported in CPAN forum: substr() in LineNumbers.pm was being
+used incorrectly, resulting in incorrect line numbering in some cases.
+
+=item 2009-11-12
+
+#51460: Clean up the tarball and resubmit a version that doesn't
+contain a stray .tgz file.
+
+=back
=head2 Version 2.05
Modified: branches/upstream/libtext-micromason-perl/current/MicroMason/Docs/ReadMe.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-micromason-perl/current/MicroMason/Docs/ReadMe.pod?rev=47087&op=diff
==============================================================================
--- branches/upstream/libtext-micromason-perl/current/MicroMason/Docs/ReadMe.pod (original)
+++ branches/upstream/libtext-micromason-perl/current/MicroMason/Docs/ReadMe.pod Fri Nov 13 03:43:53 2009
@@ -50,7 +50,7 @@
=head1 DISTRIBUTION STATUS
-This is version 2.05 of Text::MicroMason.
+This is version 2.06 of Text::MicroMason.
This module has been available on CPAN for over six years.
Modified: branches/upstream/libtext-micromason-perl/current/MicroMason/LineNumbers.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtext-micromason-perl/current/MicroMason/LineNumbers.pm?rev=47087&op=diff
==============================================================================
--- branches/upstream/libtext-micromason-perl/current/MicroMason/LineNumbers.pm (original)
+++ branches/upstream/libtext-micromason-perl/current/MicroMason/LineNumbers.pm Fri Nov 13 03:43:53 2009
@@ -1,4 +1,5 @@
package Text::MicroMason::LineNumbers;
+use strict;
######################################################################
@@ -58,31 +59,31 @@
######################################################################
sub lex {
- my $self = shift;
- local $_ = "$_[0]";
-
- my $lexer = $self->can('lex_token')
- or $self->croak_msg('Unable to lex_token(); must select a syntax mixin');
-
- my $filename = $self->{ last_read_file } || 'unknown source';
- my $linenum = $self->{ last_read_line } || 1;
- my $last_pos = 0;
-
- my @tokens;
- until ( /\G\z/gc ) {
- my @parsed = &$lexer( $self )
- or /\G ( .{0,20} ) /gcxs && die "MicroMason parsing halted at '$1'\n";
- push @tokens, 'line_num' => ( $linenum - 1 ) . qq{ "$filename"};
- push @tokens, @parsed;
-
- # Update the current line number by counting newlines in the text
- # we've parsed since the last time through the loop.
- my $new_pos = pos($_);
- $linenum += ( substr($_, $last_pos, $new_pos) =~ tr[\n][] );
- $last_pos = $new_pos;
- }
-
- return @tokens;
+ my $self = shift;
+ local $_ = "$_[0]";
+
+ my $lexer = $self->can('lex_token')
+ or $self->croak_msg('Unable to lex_token(); must select a syntax mixin');
+
+ my $filename = $self->{ last_read_file } || 'unknown source';
+ my $linenum = $self->{ last_read_line } || 1;
+ my $last_pos = 0;
+
+ my @tokens;
+ until ( /\G\z/gc ) {
+ my @parsed = &$lexer( $self )
+ or /\G ( .{0,20} ) /gcxs && die "MicroMason parsing halted at '$1'\n";
+ push @tokens, 'line_num' => ( $linenum - 1 ) . qq{ "$filename"};
+ push @tokens, @parsed;
+
+ # Update the current line number by counting newlines in the text
+ # we've parsed since the last time through the loop.
+ my $new_pos = pos($_) || 0;
+ $linenum += ( substr($_, $last_pos, $new_pos - $last_pos) =~ tr[\n][] );
+ $last_pos = $new_pos;
+ }
+
+ return @tokens;
}
sub assembler_rules {
More information about the Pkg-perl-cvs-commits
mailing list