encode: add exclamation mark as unreserved character

Exclamation marks have no special meaning in TeX and thus need to be in
this regex (or we should start blacklisting instead of whitelisting).

Author: a3f

lib/TeX/Encode.pm

@@ -77,7 +77,7 @@ sub encode
 		}
 
 		# basic unreserved characters
-		/\G([\sa-zA-Z0-9\.,:;'"\(\)=\-\/\[\]\*\+]+)/gc and ($tex .= $1, next);
+		/\G([\sa-zA-Z0-9\.,:;'"\(\)=\-\/\[\]\*\+!]+)/gc and ($tex .= $1, next);
 
 		# unsupported code point (may set $bad_cp)
 		/\G(.)/gc and ($tex .= &$check(ord($1)), next);

lib/TeX/Encode/BibTeX.pm

@@ -34,7 +34,7 @@ sub encode
 		/\G($TeX::Encode::charmap::CHAR_MAP_RE)/gc and ($tex .= '{'.$TeX::Encode::charmap::CHAR_MAP{$1}.'}', next);
 
 		# basic unreserved characters
-		/\G([\sa-zA-Z0-9\.,:;'"\(\)=\-\/\[\]\*\+]+)/gc and ($tex .= $1, next);
+		/\G([\sa-zA-Z0-9\.,:;'"\(\)=\-\/\[\]\*\+!]+)/gc and ($tex .= $1, next);
 		/\G([\x00-\x7e])/gc and ($tex .= $1, next);
 
 		/\G(.)/gc and ($tex .= '?', next);