fix inline script test to only care about javascript

script tags can be used for things other than inline scripts, so only
care about script tags that don't have a type, or have a javascript
type.

Author: haarg

t/html.t

@@ -8,9 +8,8 @@ use Path::Tiny qw( path );
 
 # files that have inline <script> tags
 my %skip = map { $_ => 1 } (
-    'root/account/profile.html',    'root/account/turing.html',
-    'root/author.html',             'root/wrapper.html',
-    'root/about/contributors.html', 'root/inc/favorite.html',
+    'root/about/contributors.html', 'root/account/profile.html',
+    'root/account/turing.html',     'root/wrapper.html',
 );
 
 my $rule = Path::Iterator::Rule->new;
@@ -19,7 +18,13 @@ for my $file ( $rule->all('root') ) {
     my $html = path($file)->slurp_utf8;
     ok $html !~ /<style>/, "no inline style in $file";
     if ( not $skip{$file} ) {
-        ok $html !~ /<script[>\s]/, "no inline script in $file";
+        my @script_tags = $html =~ /<script\b([^>]*)>/;
+        my @js          = grep {
+            /\btype="([^"]*)"/
+                ? ( $1 =~ /(?:j|java|emca)script/ ? 1 : () )
+                : 1
+        } @script_tags;
+        ok !@js, "no inline script in $file";
     }
 }