added a missing $

I noticed because I saw that my code was unexpectedly loading URI::_idna and URI::_punycode.
libwww-perl · Apr 12, 2012 · b4c7de8 · b4c7de8
1 parent 34bf38d
commit b4c7de8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/URI/_server.pm b/URI/_server.pm
@@ -19,7 +19,7 @@ sub _uric_escape {
 }
 
 sub _host_escape {
-    return unless $_[0] =~ /[^URI::uric]/;
+    return unless $_[0] =~ /[^$URI::uric]/;
     eval {
 	require URI::_idna;
 	$_[0] = URI::_idna::encode($_[0]);