remove / prefix

Changes

@@ -2,9 +2,6 @@ Revision history for Mojolicious::Plugin::TtRenderer
 
 {{$NEXT}}
 
-1.54      2014-12-20 10:17:47 -0500
-        - cpantesters: do not report on older perls
-
 1.53      2014-05-31 06:22:47 -0400
         - Mojolicious 5.0 support
 

dist.ini

@@ -5,7 +5,7 @@ license = Perl_5
 copyright_holder = Ask Bjørn Hansen
 # copyright_year   = 2009
 
-version = 1.54
+version = 1.53
 
 [@Author::Plicease]
 release_tests = 1
@@ -65,4 +65,3 @@ remove = Mojo::IOLoop
 remove = Mojolicious::Lite
 remove = Test::Mojo
 
-[Author::Plicease::InstallerPerlVersion]

lib/Mojolicious/Plugin/TtRenderer/Engine.pm

@@ -102,6 +102,7 @@ sub _render {
             $self->tt->process(\$inline, @params);
         }
         else {
+            $t =~ s{^/}{};
             my @ret = $provider->fetch($t);
 
             if (not defined $ret[1]) {

t/00_diag.t

@@ -11,12 +11,10 @@ BEGIN {
   } || die $@;
   do {
     my $fh;
-    if(open($fh, '<', File::Spec->catfile($FindBin::Bin, '00_diag.pre.txt')))
+    open($fh, '<', File::Spec->catfile($FindBin::Bin, '00_diag.pre.txt'));
-    {
     @modules = <$fh>;
     close $fh;
     chomp @modules;
-    }
   };
   eval qq{ require $_ } for @modules;
 };

t/deep_recursion.t

@@ -1,69 +0,0 @@
-#!/usr/bin/env perl
-
-use strict;
-use warnings;
-
-#BEGIN { $ENV{MOJO_MODE}='testing'; };
-
-use utf8;
-
-use Test::More;
-
-use Mojolicious::Lite;
-use Test::Mojo;
-use File::Temp qw( tempdir );
-use File::Spec;
-
-if($Mojolicious::VERSION >= 4.0)
-{
-  plan skip_all => 'test broken in mojo 4.0';
-}
-else
-{
-  plan tests => 3;
-}
-
-# Send log to tmp file so that it doesn't clutter up the screen.
-app->log->level('fatal');
-app->log->path(do {
-  File::Spec->catfile(tempdir(CLEANUP => 1), 'mojo.log');
-});
-
-plugin 'tt_renderer' => {template_options => { COMPILE_DIR => tempdir( CLEANUP => 1 ) }};
-
-get '/exception' => sub { die };
-
-#say app->mode;
-#app->start;
-#exit;
-
-my $t = Test::Mojo->new;
-
-$t->app->renderer->default_handler('tt');
-
-my $deep_recursion = 0;
-
-do {
-  local $SIG{__WARN__} = sub {
-    my $warning = shift;
-    if($warning =~ /Deep recursion/) {
-      $deep_recursion = 1;
-      die $warning;
-    }
-  };
-  $t->get_ok('/exception')
-    ->status_is(500);
-};
-
-ok !$deep_recursion, 'no deep recursion';
-
-__DATA__
-
-@@ exception.development.html.tt
-[% 1 + % %]
-
-@@ exception.html.tt
-[% 1 + % %]
-
-@@ exception.testing.html.tt
-[% 1 + % %]

xt/release/fixme.t

@@ -3,7 +3,7 @@ use warnings;
 use Test::More;
 BEGIN { 
   plan skip_all => 'test requires Test::Fixme' 
-    unless eval q{ use Test::Fixme 0.14; 1 };
+    unless eval q{ use Test::Fixme; 1 };
 };
 use Test::Fixme 0.07;
 use FindBin;
@@ -14,6 +14,5 @@ chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
 run_tests(
   match => qr/FIXME/,
   where => [ grep { -e $_ } qw( bin lib t Makefile.PL )],
-  warn  => 1,
 );
 

xt/release/pod_coverage.t

@@ -27,9 +27,6 @@ chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
 my @private_classes;
 my %private_methods;
 
-push @{ $config->{pod_coverage}->{private} },
-  'Alien::.*::Install::Files#Inline';
-
 foreach my $private (@{ $config->{pod_coverage}->{private} })
 {
   my($class,$method) = split /#/, $private;

xt/release/pod_spelling_common.t

@@ -4,23 +4,11 @@ use Test::More;
 BEGIN { 
   plan skip_all => 'test requires Test::Pod::Spelling::CommonMistakes' 
     unless eval q{ use Test::Pod::Spelling::CommonMistakes; 1 };
-  plan skip_all => 'test requires YAML'
-    unless eval q{ use YAML qw( LoadFile ); 1 };
 };
 use Test::Pod::Spelling::CommonMistakes;
 use FindBin;
 use File::Spec;
 
-my $config_filename = File::Spec->catfile(
-  $FindBin::Bin, 'release.yml'
-);
-
-my $config;
-$config = LoadFile($config_filename)
-  if -r $config_filename;
-
-plan skip_all => 'disabled' if $config->{pod_spelling_common}->{skip};
-
 chdir(File::Spec->catdir($FindBin::Bin, File::Spec->updir, File::Spec->updir));
 
 # FIXME test files in bin too.