Tighten notab/eol checks even more

Perl5 · Dec 19, 2012 · 331886e · 331886e
1 parent 7c0072b
commit 331886e
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/xt/eol.t b/xt/eol.t
@@ -15,10 +15,13 @@ unless ( DBIx::Class::Optional::Dependencies->req_ok_for ('test_eol') ) {
 }
 
 # FIXME - temporary workaround for RT#82032
+# also add all scripts (no extension) and some extra extensions
+# we want to check
 {
   no warnings 'redefine';
+
   *Test::EOL::_is_perl_module = sub {
-    $_[0] =~ /\.(?:pm|pod)$/i || $_[0] =~ /::/;
+    $_[0] !~ /\./ || $_[0] =~ /\.(?:pm|pod|skip|json|proto)$/i || $_[0] =~ /::/;
   }
 }
 

diff --git a/xt/notabs.t b/xt/notabs.t
@@ -15,10 +15,13 @@ unless ( DBIx::Class::Optional::Dependencies->req_ok_for ('test_notabs') ) {
 }
 
 # FIXME - temporary workaround for RT#82033
+# also add all scripts (no extension) and some extra extensions
+# we want to check
 {
   no warnings 'redefine';
-  *Test::NoTabs::_is_perl_module = sub {
-    $_[0] =~ /\.(?:pm|pod)$/i || $_[0] =~ /::/;
+
+  *Test::EOL::_is_perl_module = sub {
+    $_[0] !~ /\./ || $_[0] =~ /\.(?:pm|pod|skip|json|proto)$/i || $_[0] =~ /::/;
   }
 }