Tighten notab/eol checks even more
Peter Rabbitson [Wed, 19 Dec 2012 10:36:33 +0000 (11:36 +0100)]
xt/eol.t
xt/notabs.t

index 5d09ac3..da4ef10 100644 (file)
--- 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] =~ /::/;
   }
 }
 
index 3c854f9..d11bd4a 100644 (file)
@@ -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] =~ /::/;
   }
 }