Added CGI::Simple to UserAgent.pm.

2013-02-18 20:32:58 -05:00 · 2013-02-18 20:32:58 -05:00 · b2aa1749cd
parent 5f00a08e07
commit b2aa1749cd
1 changed files with 3 additions and 0 deletions
--- a/lib/DDG/Goodie/UserAgent.pm
+++ b/lib/DDG/Goodie/UserAgent.pm
@ -30,6 +30,9 @@ handle query_lc => sub {
 	# Return if it doesn't exist in the dictionary.
 	return unless exists $user_agent_qr{$_};

+	my $q = new CGI::Simple;
+	my $user_agent = $q->user_agent() || '';
+
 	return $user_agent;
 };