Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
cleanup
  • Loading branch information
kraih committed Aug 27, 2011
1 parent 5756496 commit ee6ff0b
Show file tree
Hide file tree
Showing 3 changed files with 10 additions and 7 deletions.
3 changes: 3 additions & 0 deletions Changes
@@ -1,5 +1,8 @@
This file documents the revision history for Perl extension Mojolicious.

1.95 2011-08-27 00:00:00
- Fixed typos.

1.94 2011-08-27 00:00:00
- Fixed lite_app and plugin generators.
- Fixed typos.
Expand Down
12 changes: 6 additions & 6 deletions lib/Mojo/Template.pm
Expand Up @@ -260,20 +260,20 @@ sub parse {

# Perl line
if ($state eq 'text' && $line !~ s/^(\s*)$start$replace/$1$raw_start/) {
if ($state eq 'text' && $line =~ s/^(\s*)$start($expr)?(.*)$//) {
$line = $2 ? "$1$raw_tag_start$2$3 " : "$raw_tag_start$3 $raw_trim";
$line .= $raw_tag_end;
}
$line =~ s/^(\s*)$start($expr)?// and $line =
$2
? "$1$raw_tag_start$2$line $raw_tag_end"
: "$raw_tag_start$line $raw_trim$raw_tag_end";
}

# Escaped line ending
if ($line =~ /(\\+)$/) {
my $len = length $1;

# Escaped newline
# Newline
if ($len == 1) { $line =~ s/\\$// }

# Escaped backslash
# Backslash
if ($len >= 2) {
$line =~ s/\\\\$/\\/;
$line .= "\n";
Expand Down
2 changes: 1 addition & 1 deletion lib/Mojolicious.pm
Expand Up @@ -34,7 +34,7 @@ has static => sub { Mojolicious::Static->new };
has types => sub { Mojolicious::Types->new };

our $CODENAME = 'Smiling Face With Sunglasses';
our $VERSION = '1.94';
our $VERSION = '1.95';

# "These old doomsday devices are dangerously unstable.
# I'll rest easier not knowing where they are."
Expand Down

0 comments on commit ee6ff0b

Please sign in to comment.