diff options
Diffstat (limited to 'lib/Apache/Inject')
| -rw-r--r-- | lib/Apache/Inject/Handler.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/Apache/Inject/Handler.pm b/lib/Apache/Inject/Handler.pm index f9254fd..0e054e7 100644 --- a/lib/Apache/Inject/Handler.pm +++ b/lib/Apache/Inject/Handler.pm @@ -12,14 +12,14 @@ use Apache2::RequestUtil (); my $doc = qr{ \A (?<head> \s* - (<!doctype[^>]*>)? \s* - (<html[^>]*>)? \s* - ( <head[^>]*>.*?</head> \s* + ( <!doctype[^>]*> )? \s* + ( <html[^>]*> )? \s* + ( <head[^>]*> .*? </head> \s* | ( <meta[^>]*> \s* | <link[^>]*> \s* - | <title[^>]*>.*?</title> \s* - | <style[^>]*>.*?</style> \s* # n.b. - | <script[^>]*>.*?</script> \s* # n.b. + | <title[^>]*> .*? </title> \s* + | <style[^>]*> .*? </style> \s* + | <script[^>]*> .*? </script> \s* | <base[^>]*> \s* )+ )? @@ -57,7 +57,7 @@ sub inject { # Retrieve value implicitly set by Inject directive return if not (my $val = $r->dir_config($var)); - return if $val eq ' '; # special value signifying absence of argument + return if $val eq '-'; # special value signifying absence of argument # Validate path if ($val =~ m{^/}) { |