[Jifty-commit] jifty branch, master, updated. jifty-1.10228-17-g889e7b5

[Jifty commits]

The branch, master has been updated
       via  889e7b59283411ef9454e2e2f32820872fc2de36 (commit)
      from  434991816a1f760c37ea805325a2e4fd1dae2b17 (commit)

Summary of changes:
 t/99-pod-spelling.t |   26 ++++----------------------
 1 files changed, 4 insertions(+), 22 deletions(-)

- Log -----------------------------------------------------------------
commit 889e7b59283411ef9454e2e2f32820872fc2de36
Author: Shawn M Moore <sartak at bestpractical.com>
Date:   Mon Apr 25 13:13:37 2011 -0400

    I added the file filter I wanted to Test::Spelling 0.12

diff --git a/t/99-pod-spelling.t b/t/99-pod-spelling.t
index 09cafe0..a81a909 100644
--- a/t/99-pod-spelling.t
+++ b/t/99-pod-spelling.t
@@ -4,34 +4,16 @@ use strict;
 use Test::More;
 plan skip_all => "Coverage tests only run for authors" unless (-d 'inc/.author');
 
-eval "use Test::Spelling";
-plan skip_all => "Test::Spelling required for testing POD spelling" if $@;
+eval "use Test::Spelling 0.12";
+plan skip_all => "Test::Spelling 0.12 required for testing POD spelling" if $@;
 
 add_stopwords(<DATA>);
 
 local $ENV{LC_ALL} = 'C';
 set_spell_cmd('aspell list -l en');
 
-# monkeypatch Test::Spelling to hide translated files [rt.cpan.org #63755] {{{
-my @translations = (
-    qr/_de\.pod$/,
-    qr/_ja\.pod$/,
-    qr/_zhtw\.pod$/,
-);
-
-no warnings 'redefine';
-no warnings 'once';
-my $orig = Test::Spelling->can('pod_file_spelling_ok');
-*Test::Spelling::pod_file_spelling_ok = sub {
-    my $file = shift;
-
-    if (grep { $file =~ $_ } @translations) {
-        return ok("ignoring translated file $file");
-    }
-
-    $orig->($file, @_);
-};
-# }}}
+# ignore translations
+set_pod_file_filter(sub { shift !~ /_(de|ja|zhtw)\.pod$/ });
 
 all_pod_files_spelling_ok();
 

-----------------------------------------------------------------------