-#!/usr/bin/perl
-
use strict;
use warnings;
no_chdir => 1,
wanted => sub {
return if /(?:\.(?:jpe?g|png|gif|rej)|\~)$/i;
- return if m{/\.[^/]+\.swp$}; # vim swap files
+ return if m{/\.[^/]+\.sw[op]$}; # vim swap files
return unless -f $_;
local ($@);
ok( eval { compile_file($_) }, "Compiled $File::Find::name ok: $@");
use HTML::Mason::Compiler;
use HTML::Mason::Compiler::ToObject;
BEGIN { require RT::Test; }
-use Encode qw(decode_utf8);
sub compile_file {
my $file = shift;
- my $text = decode_utf8(RT::Test->file_content($file));
+ my $text = Encode::decode( "UTF-8", RT::Test->file_content($file));
my $compiler = new HTML::Mason::Compiler::ToObject;
$compiler->compile(